CorelDRAW VBAの深淵へ：ネストされたグループを「再帰」で攻略するアルゴリズム
こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロの記録」ボタンを押して生成されたコードを眺め、その冗長さに絶望したことはありませんか？あるいは、グループの中にグループがある複雑なデザインを操作しようとして、`ShapeRange`の制御に頭を悩ませた経験があるはずです。
今日は、CorelDRAW VBAの真髄である「オブジェクトモデルの階層走査」についてお話しします。ここをマスターすれば、どんなに複雑なデータ構造もあなたの手の中で自由に操れるようになります。
—
1. なぜ「再帰処理」が必要なのか？
CorelDRAWのオブジェクト構造は「ツリー構造」です。
- ドキュメント（Document）の中に
- ページ（Page）があり
- レイヤー（Layer）があり
- その中にシェイプ（Shape）がある。
そして、シェイプは「グループ」という形で、さらに子シェイプを抱え込むことができます。この「グループの中にグループ」という入れ子構造を、単純なループだけで攻略しようとすると、必ず限界が来ます。
ここで登場するのが「再帰アルゴリズム」です。自分自身を呼び出し、最深部まで潜り込んで処理を完了させる、この手法こそが自動化エンジニアの嗜みです。
—
2. 階層走査の極意：コードの実践
以下のコードは、選択したオブジェクトの中にどれだけ深いグループがあろうとも、それをすべて分解して個別にアクセスするための「汎用テンプレート」です。
‘ 選択したオブジェクトを再帰的に走査し、個別のシェイプを処理する
Public Sub ProcessShapesRecursively()
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
If sr.Count = 0 Then
MsgBox “対象を選択してください。”
Exit Sub
End If
‘ 再帰処理を開始
Call TraverseShapes(sr)
End Sub
Private Sub TraverseShapes(ByVal shapes As ShapeRange)
Dim s As Shape
For Each s In shapes
‘ 1. グループかどうかを判定
If s.Type = cdrGroupShape Then
‘ グループなら、その中のShapesコレクションを再度自分自身（TraverseShapes）に渡す
Call TraverseShapes(s.Shapes.All)
Else
‘ 2. グループでなければ、ここで個別の処理を行う
‘ 例: 全ての矩形を赤色にする等
s.Fill.UniformColor.RGBAssign 255, 0, 0
Debug.Print “処理したシェイプ名: ” & s.Name
End If
Next s
End Sub
このコードの「賢い」ポイント
- `s.Shapes.All`: これが重要です。グループ内の全シェイプを`ShapeRange`として一気に抽出します。
- 再帰呼び出し: `If s.Type = cdrGroupShape` の判定によって、どこまで深く潜るかを自動的に判断させています。これなら、何階層のグループがあってもエラーになりません。
—
3. 陥りやすい「落とし穴」を回避する
初心者が最も苦しむのが、「処理中にオブジェクト構造を変えてしまうこと」です。
例えば、ループ中に `s.Ungroup` を実行してグループを破壊すると、`Shapes`コレクションのインデックスがずれてしまい、VBAが「オブジェクトが存在しません」とパニックを起こします。
安全に分解するための鉄則：
1. 「走査」と「操作」を分ける: 再帰でオブジェクトの場所を特定し、処理のキュー（リスト）に入れてから実行する。
2. `Parent`プロパティを信じすぎない: 階層が深い場合、親をたどるよりも、上から順に潜っていく（トップダウン）ほうがメモリ効率もコードの可読性も高くなります。
—
4. ステップアップのためのアドバイス
ここをクリアしたあなたへ、次なる挑戦を提案します。
- フィルター機能の追加: `If s.Type = cdrCurveShape Then` と条件を加えれば、パスデータを持つオブジェクトだけを抽出できるようになります。
- レイヤーごとの制御: `ActiveDocument.Pages` を回して、ページ単位で再帰処理を走らせれば、ドキュメント全体の正規化ツールが完成します。
CorelDRAWのVBAは、単なる「作業の自動化」を超えて、デザインデータの「構造を支配する」ための言語です。この階層走査をマスターすれば、もはやあなたが手作業でオブジェクトをいじる必要はありません。
迷ったときは、常に「今、自分はどの階層にいるのか？」を意識してください。コードが物語を語り始めたら、あなたはもう一人前の自動化エンジニアです。
何か詰まったら、いつでも戻ってきてくださいね。応援しています！
