CorelDRAW VBAの深淵：再帰的オブジェクト走査で「見えない階層」を完全制圧する
CorelDRAWの自動化において、多くのエンジニアが最初の壁として直面するのが「階層構造の罠」です。`ActivePage.Shapes`をループさせるだけで満足していませんか？ それでは、グループ化されたオブジェクトやPowerClipの内部、あるいはそのさらに奥底に眠るネストされたシェイプには手が届きません。
本稿では、CorelDRAWのオブジェクトモデルを完全に掌握し、どんなに複雑な構造であっても一括で制御するための「再帰的走査アルゴリズム」の設計思想を伝授します。
—
1. なぜ「フラットなループ」では不十分なのか
CorelDRAWの`Shape`オブジェクトは、コンテナ（親）とコンテンツ（子）の親子関係で成り立っています。
- Group: 複数のシェイプを束ねるコンテナ。
- PowerClip: フレーム（親）の中にコンテンツ（子）を内包する特殊な構造。
これらを「フラットなループ」で処理しようとすると、グループ内のオブジェクトを無視したり、PowerClipのフレーム自体を操作してしまい、意図しない破壊的な結果を招くことが多々あります。業務自動化において「一部のオブジェクトだけ変換し忘れた」というバグは、信頼を失う致命傷です。
—
2. 堅牢な再帰関数の設計思想
再帰処理の鍵は、「現在のオブジェクトがコンテナか否かを判定し、コンテナであれば自分自身を呼び出す」というシンプルな原則にあります。
再帰の黄金ルール
1. 型判定の徹底: `Shape.Type`を確認し、`cdrGroupShape`や`cdrPowerClipShape`を検知する。
2. 安全性（Safety First）: 処理対象が`Layer`なのか`Shape`なのかを明確にする。
3. 無限ループの回避: 原則として深い階層から処理し、スタックオーバーフローを避ける設計にする。
—
3. 実践コード：階層を完全に掌握する「ShapeWalk」
以下のコードは、プロの現場で即戦力となる再帰走査のテンプレートです。これをベースに、プロパティ変更ロジックを差し替えてください。
‘ ———————————————————
‘ 目的: 再帰的にシェイプ階層を走査し、特定の条件で処理を行う
‘ ———————————————————
Public Sub ProcessShapesRecursively(ByVal shp As Shape)
‘ エラーハンドリング: 予期せぬオブジェクト構造に対応
On Error Resume Next
‘ ここに「処理したいロジック」を書く
‘ 例: 特定の色の塗りつぶしを変更する
‘ If shp.Fill.Type = cdrUniformFill Then …
‘ コンテナ構造の判定
Select Case shp.Type
Case cdrGroupShape
‘ グループ内の全シェイプを走査
Dim subShp As Shape
For Each subShp In shp.Shapes
ProcessShapesRecursively subShp
Next subShp
Case cdrPowerClipShape
‘ PowerClip内のコンテンツを走査
If Not shp.PowerClip Is Nothing Then
Dim pcShp As Shape
For Each pcShp In shp.PowerClip.Shapes
ProcessShapesRecursively pcShp
Next pcShp
End If
End Select
On Error GoTo 0
End Sub
‘ 実行用ラッパー
Public Sub ExecuteMassUpdate()
Dim shp As Shape
‘ ActivePage上の全シェイプに対して実行
For Each shp In ActivePage.Shapes
ProcessShapesRecursively shp
Next shp
End Sub
—
4. 開発現場で勝つための注意点
パフォーマンスの最適化
CorelDRAWのVBAは実行速度がボトルネックになりがちです。大量のオブジェクトを扱う場合は、以下の設定を必ず追加してください。
- `Optimization = True`: 再描画を停止し、処理速度を劇的に向上させます。
- `EventsEnabled = False`: イベント監視を一時停止し、予期せぬトリガーを回避します。
‘ 処理開始前
Application.Optimization = True
Application.EventsEnabled = False
‘ … 処理を実行 …
‘ 処理終了後
Application.Optimization = False
Application.EventsEnabled = True
ActiveWindow.Refresh
データベース連携の罠
CSVや外部DBからプロパティを読み込む場合、「名前の不一致」が最大の敵です。`Shape.Name`はユーザーが自由に変更できるため、コード内で一意性を保証するなら`Shape.StaticID`を使用してください。これはセッションを超えても保持される強力な識別子です。
—
5. 最後に：エンジニアとしての矜持
VBAはレガシーな言語だと揶揄されることもあります。しかし、CorelDRAWの深い階層まで潜り込み、数万のオブジェクトを一瞬で最適化するツールを作れば、それは単なるスクリプトではなく「生産性を生み出すエンジン」です。
今回紹介した再帰アルゴリズムは、あらゆる自動化の基礎となります。コードをコピーして終わりにするのではなく、「なぜここでエラーが出る可能性があるのか」「もっと効率的な枝刈りはできないか」を常に自問自答してください。
君たちが書くコードが、誰かの残業を減らし、創造的な時間を生み出すことを期待しています。次回の深掘り記事では、`Effect`系（ドロップシャドウやブレンド）の解析手法について触れましょう。準備はいいですか？
