こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して図形を描くだけの自動化から一歩進み、自分自身の頭でオブジェクトを自在に操る「真のエンジニア」への扉を開いたあなたへ、今日はとてもエキサイティングなお話をします。
業務でCorelDRAWを使っていると、「他の人が作った複雑なグループ（グループの中にグループがある多重ネスト構造）」や、「中に別のグラフィックが隠されているPowerClip（コンテナ）」に直面することがよくありますよね。
「このイラスト全体に含まれる『特定の赤色』をすべて『青色』に書き換えたい」と思ったとき、単に選択した図形をループさせるだけのコードでは、グループの奥深くやPowerClipの内部に取り残されたシェイプを見逃してしまいます。
今回は、プロの現場で必須となる「再帰的走査（サーチャー・アルゴリズム）」を駆使して、どんなに複雑なネスト構造の奥底にある要素をもれなく見つけ出し、安全に置換する極限のテクニックを伝授します。
ここをクリアすれば、あなたのCorelDRAW VBAのスキルは間違いなくプロの領域に到達しますよ。一緒にマスターしていきましょう！
—
1. 基礎知識：なぜ通常のループでは深い階層に届かないのか？
CorelDRAWのオブジェクトモデルは、ツリー構造（階層構造）をしています。
ActivePage
┗ Layer
┣ Shape (Rectangle)
┗ Shape (Group) ─── [グループの親]
┣ Shape (Ellipse)
┗ Shape (Group) ─── [子グループ]
┗ Shape (Text) ─── ★ここに届かない！
`ActivePage.Shapes` というコレクションは、あくまで「一番上の階層（表面）」にあるシェイプしか返しません。グループの内部（`GroupItems`）にアクセスするには、明示的にその扉を開けて中に入る必要があるのです。
さらに、PowerClipは厄介です。見た目は一つの図形ですが、その内部（`Shape.PowerClip.Shapes`）に全く別の世界（コンテナ）を持っています。
これらをすべて手動で、しかも何段階のネストがあるかわからない状態で網羅するのは不可能。だからこそ、「自分自身を呼び出す関数（再帰関数）」というプログラミングの魔法を使う必要があります。
—
2. 陥りやすい罠：オブジェクトのライフサイクルとエラー対策
実務のコードを書く前に、CorelDRAW VBA特有の「ハマりどころ」を知っておきましょう。
1. `Shape.Type` の判定ミス
グループやPowerClip、通常のパス（曲線や矩形）など、CorelDRAWには多様なシェイプタイプがあります。誤ったプロパティにアクセスすると、容赦なく実行時エラー（Type mismatchなど）が発生します。
2. PowerClipの特殊性
PowerClipの中身を操作したあと、コンテナ自体の再描画やプレビューの更新を行わないと、画面上は変わっていないように見える（しかしデータは書き換わっている）という現象が起きます。
3. 参照のロスト
ループ中にシェイプ構造を動的に変更すると、インデックスが狂ってエラーや無限ループの原因になります。
これらを完璧に回避する、実戦仕様のコードを次にお見せします。
—
3. 実装：ネストグループ＆PowerClipを完全網羅する再帰置換エンジン
以下のコードは、選択したシェイプ（またはページ全体）を起点として、グループの深部、そしてPowerClipの内部まで潜り込み、特定の条件（例：赤い塗りを青い塗りに変更する）で要素を書き換えるプロ仕様のマクロです。
開発環境（VBAエディタ）の標準モジュールに貼り付けて実行してみてください。
‘ ==============================================================================
‘ 【上級者向け】グループ階層およびPowerClip内部の再帰的走査とプロパティ置換
‘ ==============================================================================
Public Sub RunRecursiveReplacer()
‘ 処理の高速化と画面ちらつき防止
EventsEnabled = False
ActiveDocument.BeginCommandGroup “Deep Property Replacement”
On Error GoTo ErrorHandler
Dim targetShapes As Shapes
‘ 選択しているものがあればそれを対象に、なければページ全体を対象にする
If ActiveSelection.Shapes.Count > 0 Then
Set targetShapes = ActiveSelection.Shapes
Else
Set targetShapes = ActivePage.Shapes
End If
‘ 再帰的走査のメイン処理を呼び出す
ProcessShapesRecursive targetShapes
ActiveDocument.EndCommandGroup
EventsEnabled = True
MsgBox “深層要素の置換処理が完了しました！”, vbInformation, “CorelDRAW VBA 成功”
Exit Sub
ErrorHandler:
ActiveDocument.EndCommandGroup
EventsEnabled = True
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
‘ ==============================================================================
‘ 脳髄となる再帰関数：シェイプの種類を判定し、必要に応じて自らを呼び出す
‘ ==============================================================================
Private Sub ProcessShapesRecursive(ByVal shps As Shapes)
Dim shp As Shape
Dim i As Long
‘ コレクションの末尾からループを回す（安全性の確保）
For i = shps.Count To 1 Step -1
Set shp = shps(i)
‘ ———————————————————————-
‘ 1. 【本体の処理】ここでシェイプに対する置換・変更を行う
‘ ———————————————————————-
ApplyCustomTransformation shp
‘ ———————————————————————-
‘ 2. 【グループの判定と再帰】
‘ ———————————————————————-
If shp.Type = cdrGroupShape Then
‘ グループの中身に対して自分自身を再帰呼び出し
ProcessShapesRecursive shp.Shapes
‘ ———————————————————————-
‘ 3. 【PowerClipの判定と再帰】
‘ ———————————————————————-
ElseIf shp.StaticType = cdrPowerClipShape Then
‘ PowerClipコンテナの内部シェイプに対して再帰呼び出し
If shp.PowerClip.Shapes.Count > 0 Then
ProcessShapesRecursive shp.PowerClip.Shapes
End If
End If
Next i
End Sub
‘ ==============================================================================
‘ 個々のシェイプに対する具体的な変更ロジック（サンプル）
‘ ==============================================================================
Private Sub ApplyCustomTransformation(ByRef shp As Shape)
‘ サンプル条件：もし塗りが「単色(CMYK)」で、かつ特定の色（例：鮮やかな赤）だったら青に変える
If shp.Fill.Type = cdrUniformFill Then
‘ 例として、シアン100%のマゼンタ0%などに置き換えるロジックをここに書く
‘ ※安全のため、テキストフレームや特殊なオブジェクトは除外する条件を入れると堅牢になります
‘ ここでは分かりやすく、テキストシェイプの場合のフォント変更を例示
If shp.Type = cdrTextShape Then
‘ すべてのテキストのフォントを「BIZ UDPゴシック」に変更する例
shp.Text.Story.Font = “BIZ UDPゴシック”
End If
‘ ※カラー置換の例（CMYKカラーの判定）
‘ If shp.Fill.Color.Type = cdrColorCMYK Then
‘ If shp.Fill.Color.CMYKCyan = 0 And shp.Fill.Color.CMYKMagenta = 100 Then
‘ shp.Fill.Color.SetCMYK 100, 0, 0, 0 ‘ 青に変更
‘ End If
‘ End If
End If
End Sub
—
4. コードの深掘り解説：ここがプロの知見
このコードがなぜ美しく、そして堅牢に動作するのか、重要なポイントを解説します。
① コレクションを逆順（`Step -1`）で回す理由
VBAでシェイプの削除や動的な構造変更を行う際、先頭からループを回すとインデックスがズレてバグの温床になります。末尾から逆順に処理することで、メモリ上の安全性を保ちながら確実に全要素を捉えることができます。
② 再帰呼び出し（Recursion）の美しさ
`ProcessShapesRecursive` の中で、再び `ProcessShapesRecursive` を呼んでいます。
- 「グループを見つけた？ じゃあその中身の `Shapes` をこの関数に渡してもう一回最初から調べて！」
- 「PowerClipを見つけた？ じゃあその中身の `PowerClip.Shapes` を渡して調べて！」
この仕組みにより、何階層ネストしていようとも、自動的に最深部まで潜り込んで戻ってくる全自動の探索エンジンが完成します。
③ 処理の高速化 (`EventsEnabled = False`)
CorelDRAWは、VBAから図形を変更するたびに画面の再描画（プレビューの更新）を行おうとします。数千個のオブジェクトを再帰走査する場合、これが原因で極端に動作が重くなります。処理の最初に `EventsEnabled = False` にし、最後に戻すことで、爆速の処理速度を実現しています。
—
5. おわりに
いかがでしたでしょうか？
今回は、CorelDRAW VBAにおける最難関の一つである「多重ネスト構造とPowerClipの再帰的走査」を解説しました。
最初は「再帰関数」という言葉に少し難しさを感じるかもしれませんが、構造の本質を理解してしまえば、どんなに複雑なレイアウトデータであっても、あなたのプログラムが瞬時に、そして完璧にコントロールできるようになります。
ここをクリアしたあなたなら、もうマクロの記録者ではありません。立派なCorelDRAW自動化エンジニアです。ぜひ自分の業務データで試して、その圧倒的な処理スピードを体感してくださいね。
それでは、次回の応用編でお会いしましょう！バッチリ業務を効率化していきましょう！
