CorelDRAW VBAの深淵へ：再帰関数で「複雑な階層」を完全制圧する
こんにちは。CorelDRAWの自動化の世界へようこそ。
マクロの記録機能で生成されたコードを見て、「なぜか動かない」「複雑なデータだとエラーで落ちる」と悩んでいませんか？
CorelDRAWのデータ構造は、実は「入れ子（ネスト）の迷宮」です。グループの中にグループがあり、その中にシンボルインスタンスが潜む……。この階層をそのまま外部アプリケーションに渡そうとすると、データ構造の崩壊やメモリ不足（Stack Overflow）を引き起こします。
今回は、この「階層の迷宮」を論理的に解体し、すべてのオブジェクトを最上位レイヤーにフラット化する「再帰アルゴリズム」の実装術を伝授します。ここをマスターすれば、あなたはもう脱・初学者です。
—
なぜ「再帰関数」が必要なのか？
皆さんが普段触れているグループは、`ShapeRange`というオブジェクトで管理されています。しかし、グループの中にグループがある場合、単純なループ処理では「外側の階層」しか見えません。
再帰関数とは、「自分自身を呼び出す関数」のことです。
「グループを見つけたら、その中身をさらに探索し、グループでなくなるまで分解する」という処理を、関数自身に繰り返させることで、どんなに深いネストも最短距離で攻略できます。
【極限の知見】フラット化を成功させるコード例
以下のコードは、選択したオブジェクトの深層にある全てのシェイプを抽出し、ルート階層へ引き上げるための設計図です。
‘ メイン処理：選択したオブジェクトをフラット化する
Sub FlattenSelectedObjects()
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
If sr.Count = 0 Then
MsgBox “対象を選択してください。”
Exit Sub
End If
‘ Undoの単位を記録（これがないとCtrl+Zで戻せません）
Optimization = True
ActiveDocument.BeginCommandGroup “FlattenHierarchy”
‘ 再帰的に処理を実行
ProcessShapes sr
ActiveDocument.EndCommandGroup
Optimization = False
ActiveWindow.Refresh
End Sub
‘ 再帰関数：シェイプを再帰的に巡回する
Private Sub ProcessShapes(ByVal shapes As ShapeRange)
Dim s As Shape
For Each s In shapes
‘ グループかシンボルインスタンスなら、さらに深く潜る
If s.Type = cdrGroupShape Or s.Type = cdrSymbolShape Then
‘ シンボルの場合はインスタンスを解除してフラット化しやすくする
If s.Type = cdrSymbolShape Then s.Symbol.Detach
‘ 再帰呼び出し：グループの中身を引数にして自分自身を呼ぶ
ProcessShapes s.Ungroup.Shapes
Else
‘ グループでなければ、最上位レイヤーへ移動（MoveToLayer）
‘ ここでレイヤー構造を強制的にフラットにする
s.MoveToLayer ActivePage.ActiveLayer
End If
Next s
End Sub
コードの心臓部を読み解く
1. `Optimization = True`:
描画更新を一時停止させる重要コマンドです。これがないと、1つ処理するごとに画面が再描画され、数分かかる処理が数秒で終わるようになります。プロなら必須のテクニックです。
2. `s.Ungroup`:
グループを解除するコマンドですが、これを再帰の中で使うのがコツです。内側から外側へ向かって皮を剥くように解体していきます。
3. `s.MoveToLayer`:
これが「フラット化」の正体です。どんなに深い階層にあっても、現在のドキュメントの最上位レイヤーへ強制的に移動させることで、データ構造を一撃で平面化します。
陥りやすい罠と対策
- 「Stack Overflow」に注意:
あまりにも巨大なファイルを一気に処理すると、メモリ制限に達することがあります。その場合は、`DoEvents`をループ内に挟み、OSに処理権を渡す猶予を与えてください。
- Undo（元に戻す）の重み:
`BeginCommandGroup`がないと、失敗した時にすべてが水の泡になります。VBAを書く際は「失敗した後のこと」まで設計するのが一流の流儀です。
最後に：自動化の先にあるもの
今回紹介した再帰処理は、単なる階層のフラット化だけでなく、特定の属性（色や線幅）を持つシェイプを全探索して一括置換する際など、応用範囲が非常に広いテクニックです。
「CorelDRAW VBAは難しい」と敬遠する層が多い中で、こうしてアルゴリズムの基本に触れたあなたは、すでに一歩先を行っています。最初はコードをそのままコピペして動かしてみてください。そこから、「もしグループではなく特定のレイヤーだけ対象にしたら？」と改造を試みることが、最強のエンジニアへの近道です。
さあ、迷宮を解き明かし、あなたの業務を劇的に加速させましょう。応援しています！
