CorelDRAW VBAの深淵へ：ネストされたグループを「再帰関数」で解き放つ技術
こんにちは。CorelDRAWの自動化の世界へようこそ。
マクロの記録ボタンを押して生成されたコードを眺め、「なぜか上手くいかない」「グループ化されたオブジェクトが思うように操作できない」と悩んだことはありませんか？
CorelDRAWのデータ構造は、まるでマトリョーシカです。グループの中にグループがあり、さらにその中に……。これらを一つずつ手作業で解除するのは、エンジニアの仕事ではありません。今日は、「再帰関数（Recursive）」という強力なアルゴリズムを使い、どんなに深くネストされた構造でも一撃でフラットな構造へと解き放つ、プロフェッショナルの技術を伝授します。
—
なぜ「再帰」が必要なのか？
カッタープロッターやレーザー加工機は、複雑な階層構造を嫌います。彼らが欲しているのは、単一のパス（形状）の羅列です。
通常のループ（`For Each`）でグループを解除しようとすると、解除した瞬間にインデックスが変わり、エラーや「取りこぼし」が発生します。ここで登場するのが再帰処理です。自分自身を呼び出すことで、階層の深さを気にせず、最深部まで潜り込み、帰り際にすべてをフラットにする。まさに、データ構造を攻略するための特効薬です。
—
実装コード：完全フラット化スクリプト
このコードを標準モジュールに貼り付けてください。`FlattenGroup` プロシージャが、魔法のようにオブジェクトを平坦化します。
‘ 選択したオブジェクト内の全グループを再帰的に解除するメインルーチン
Public Sub FlattenAllGroups()
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
If sr.Count = 0 Then
MsgBox “対象を選択してください。”
Exit Sub
End If
‘ 再帰処理の開始
Call RecursiveUngroup(sr)
MsgBox “フラット化完了！”, vbInformation
End Sub
‘ 【再帰関数】深さを問わずグループを分解する核心部
Private Sub RecursiveUngroup(sr As ShapeRange)
Dim s As Shape
Dim i As Long
‘ 逆順ループが鉄則。グループ解除時にインデックスがずれるのを防ぐため
For i = sr.Count To 1 Step -1
Set s = sr(i)
If s.Type = cdrGroupShape Then
‘ グループなら、まず中身を再帰的に処理させる
Call RecursiveUngroup(s.UngroupEx)
End If
‘ グループ以外（カーブや矩形）はそのまま残る
Next i
End Sub
—
コードの解説：ここが「プロの視点」です
1. 逆順ループ（`For i = sr.Count To 1 Step -1`）の重要性
多くの初心者がここで躓きます。順方向（1から開始）で回すと、グループを解除した瞬間にオブジェクトの総数が変わり、メモリ上のインデックスが崩壊します。「破壊的処理は常に後ろから」。これが自動化の鉄則です。
2. `UngroupEx` メソッドの活用
`Ungroup` ではなく `UngroupEx` を使っています。これは、グループを解除した直後のオブジェクトを `ShapeRange` として返すため、再帰処理との相性が抜群に良いのです。
3. 再帰の仕組み
`If s.Type = cdrGroupShape Then` で「もしグループなら」と判定し、自分自身を呼び出します（`Call RecursiveUngroup(…)`）。これにより、どれほど深くネストされていても、必ず最深部に到達し、内側から順に殻を剥いていくことができます。
—
陥りやすいエラーと回避策
- 「オブジェクトが見つかりません」エラー
これは、ループ中に親オブジェクトが消滅した後に子にアクセスしようとした時に発生します。`UngroupEx` を使い、常に「現在の階層」を正しく参照することで回避可能です。
- 「無限ループ」の恐怖
再帰関数は強力ですが、終了条件を間違えるとフリーズします。必ず `If s.Type = cdrGroupShape` のように、グループであることの確認条件を厳密に入れてください。
—
さあ、自動化の先へ
このスクリプトをマスターすれば、データ加工の時間は劇的に短縮されます。複雑なロゴデータも、CAD用のDXF書き出しも、これで怖くありません。
CorelDRAW VBAは、単なる「操作の記録」ではありません。オブジェクトの階層構造をプログラムで制御する「建築術」です。この再帰処理という武器を手に入れたあなたは、もう初級者ではありません。
次は、このフラット化したオブジェクトに対して、線幅の一括変換や、特定のレイヤーへの移動を自動化してみましょう。世界はもっとシンプルに、そして美しく自動化できます。
質問があれば、いつでもコメント欄へ。あなたの自動化ライフが、より快適なものになることを願っています。
