CorelDRAW VBAを掌握せよ：ネストされた「グループの迷宮」を再帰処理で完全攻略する
こんにちは。自動化の世界へようこそ。
CorelDRAWでの作業中、こんな経験はありませんか？
「デザイナーから受け取ったデータ、グループ化が何重にも入り組んでいて、奥底にあるパスの色を一括変更できない……」
マクロの記録機能で操作をなぞるだけでは、この「ネスト（入れ子）構造」の壁は越えられません。今日は、CorelDRAW VBAの真髄である「再帰処理（Recursive Processing）」を使い、どんなに深い階層に隠れたオブジェクトでも一網打尽にする、プロレベルの自動化術を伝授します。
—
1. なぜ「再帰」が必要なのか？
CorelDRAWの`Shape`オブジェクトには、`Group`という概念があります。グループの中にグループがある状態を「ネスト（入れ子）」と呼びます。
単純なループ文（For Each等）で全オブジェクトを回そうとしても、グループの中身までは見てくれません。そこで登場するのが「再帰」です。自分自身を呼び出す関数を作ることで、階層がいくつあっても、まるで探査機のように奥深くまで潜り込み、目的のオブジェクトを特定できるのです。
—
2. 実践コード：再帰的オブジェクト走査エンジン
このコードは、指定した範囲内のすべてのグループを分解（せず）に潜り込み、線幅や塗りを書き換える強力なテンプレートです。
‘ メインプロシージャ：選択範囲から走査を開始する
Sub ProcessAllObjectsInGroups()
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
‘ 選択がない場合は警告して終了
If sr.Count = 0 Then
MsgBox “対象を選択してください。”, vbExclamation
Exit Sub
End If
‘ 再帰処理の開始
Call RecursiveShapeProcessor(sr)
End Sub
‘ 再帰関数：ここが心臓部です
Sub RecursiveShapeProcessor(shapes As shapes)
Dim s As Shape
For Each s In shapes
‘ グループ化されているかチェック
If s.Type = cdrGroupShape Then
‘ グループなら、その中身に対して自分自身を呼び出す（再帰）
Call RecursiveShapeProcessor(s.shapes)
Else
‘ グループでない場合（パスやテキスト等）、属性を調整
‘ ここで任意の処理を実行
With s
.Outline.Width = 0.5 ‘ 線幅を0.5mmに
.Fill.UniformColor.CMYKAssign 0, 100, 100, 0 ‘ 赤色に塗りつぶし
End With
End If
Next s
End Sub
—
3. コードの読み解き：ここがポイント！
① `s.Type = cdrGroupShape` の判定
CorelDRAWのオブジェクトは型を持っています。この定数が「このオブジェクトはグループである」と教えてくれます。グループだと分かった瞬間に、その中の `s.shapes` コレクションを再び関数に投げ込む。これが再帰の魔法です。
② `For Each` と `shapes` コレクション
`ActiveLayer.Shapes` も、グループ内の `s.Shapes` も、同じ `Shapes` コレクションとして扱えます。この「階層の統一性」こそが、CorelDRAW APIの設計の美しさです。
—
4. 陥りやすいエラーと回避策
中級者へのステップアップで必ず直面する「落とし穴」を先回りしてお教えします。
- 無限ループの恐怖:
もし誤って自分自身を無限に呼び出し続けるコードを書くと、CorelDRAWがフリーズします。条件分岐（If文）で、必ず「グループではない時」の処理（再帰を止めるタイミング）を明示してください。
- テキストオブジェクトの扱い:
`s.Outline.Width` はすべてのオブジェクトで有効ですが、テキストオブジェクトに対しては意図しない挙動になることがあります。必要であれば `If s.Type = cdrTextShape Then …` といった条件で弾く処理を加えるとより堅牢になります。
—
5. 最後に：自動化は「思考の整理」
今回学んだ「再帰」という考え方は、CorelDRAWに限らず、すべてのプログラミングにおける最強のツールの一つです。
「複雑なデータ構造」を前にしたとき、まずは「一番外側の袋を開ける。中に袋があれば、また同じ手順で開ける」というルーチンを考えてみてください。それができれば、どんなに巨大なデザインデータでも、あなたの指先ひとつで一瞬にして最適化できるはずです。
さあ、次はあなたの業務にある「繰り返し作業」を、このエンジンの力で粉砕してみてください。応援しています！
