CorelDRAW VBAを掌握する極限の知見：ネストされたグループを再帰走査する属性一括置換のアルゴリズム
CorelDRAW VBAによる自動化の現場において、真に我々を苦しめるのはフラットな構造のデータではない。外部CADやDTPソフトからコンバートされた、幾重にもネストされたグループ、レイヤーの迷宮、そしてシンボルインスタンスの群れである。
「特定のレイヤー配下にある、すべての特定条件のシェイプの色やアウトラインを一括置換したい」
この一見シンプルな要求に対し、浅い階層のループだけで挑んだエンジニアは、決まって「一部のオブジェクトが取りこぼされる」という壁に突き当たる。CorelDRAWのオブジェクトモデルにおいて、`Layer.Shapes`コレクションはグループの内部まで自動的に掘り下げてはくれない。グループはあくまで「1つのコンテナシェイプ」であり、その深部（ChildShapes）にアクセスするには、明示的な再帰アルゴリズムが不可欠だ。
本稿では、CorelDRAW VBAのオブジェクトライフサイクル、メモリ管理の罠、そして無限ネストに対応する再帰走査の極限実装を解説する。
—
1. CorelDRAWオブジェクトモデルの深部：グループとレイヤーの非対称性
CorelDRAWのドキュメント構造は、`Document` > `Page` > `Layer` > `Shape` という階層を持つ。しかし、`Shape`が `cdrGroupShape`（グループ）である場合、その内側には独自の `ShapeRange`（あるいは `Shapes` コレクション）が存在する。
ここで多くの開発者が犯す過ちは、`Layer.Shapes.All` や単純な `For Each` ループで全シェイプを走査しようとすることだ。グループ化されたシェイプは親のコンテナに隠蔽されており、フラットなイテレーションでは網羅できない。さらに、CorelDRAWのCOMラッパーは、不適切なオブジェクト参照の保持や解放漏れを起こすと、メモリリークや最悪の場合はアプリケーションのクラッシュ（Access Violation）を引き起こす。
シニアエンジニアに求められるのは、「安全かつ高速にネストを潜り抜け、用が済んだオブジェクトの参照を即座に破棄する」というメモリ規律である。
—
2. 再帰関数による深部走査のアーキテクチャ
ネストされたグループを攻略するための鍵は、VBAにおける再帰関数（Recursive Function）の設計にある。関数が自分自身を呼び出しながらツリー構造の末端（リーフ）まで潜り込み、条件に合致するシェイプを捕捉して属性を書き換える。
以下のコードは、指定したレイヤー（または選択範囲）を起点とし、無限にネストされたグループの深部まで再帰的に走査して、特定の条件（例：塗りの色）を持つシェイプを一括置換するプロダクション品質のモジュールである。
実装コード：深層グループ走査と属性置換エンジン
Option Explicit
‘ =====================================================================================
‘ 処理メインエントリーポイント
‘ =====================================================================================
Public Sub ExecuteDeepAttributeReplacement()
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical
Exit Sub
End If
‘ トランザクションと画面描画のロックによるパフォーマンス最適化
doc.BeginCommandGroup “深層グループ属性一括置換”
EventsEnabled = False
Optimization = True
On Error GoTo ErrorHandler
Dim targetLayer As Layer
Set targetLayer = doc.ActivePage.ActiveLayer
‘ 処理カウンターの初期化
Dim processedCount As Long
processedCount = 0
‘ 再帰走査の実行（アクティブレイヤーのShapesコレクションを渡す）
ProcessShapesRecursive targetLayer.Shapes, processedCount
MsgBox “処理が完了しました。置換されたオブジェクト数: ” & processedCount, vbInformation
CleanUp:
‘ 最適化の解除とオブジェクトの明示的解放
Optimization = False
EventsEnabled = True
doc.EndCommandGroup
Set targetLayer = Nothing
Set doc = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
‘ =====================================================================================
‘ 再帰的シェイプ走査エンジン
‘ =====================================================================================
Private Sub ProcessShapesRecursive(ByVal shapesCol As Shapes, ByRef count As Long)
Dim sh As Shape
Dim i As Long
‘ コレクションの逆順ループ（走査中の要素削除や構造変更への耐性を高める）
For i = shapesCol.Count To 1 Step -1
Set sh = shapesCol(i)
If Not sh Is Nothing Then
‘ シェイプの種類に応じた分岐
If sh.Type = cdrGroupShape Then
‘ 【ケースA】グループシェイプの場合：さらに深部へ再帰呼び出し
‘ グループの内部構造（ChildShapes）を対象に自分自身を呼び出す
ProcessShapesRecursive sh.Shapes, count
Else
‘ 【ケースB】リーフシェイプ（通常のパス、テキストなど）の場合
If EvaluateAndReplace(sh) Then
count = count + 1
End If
End If
End If
‘ ループごとの参照破棄（VBAのCOM参照リークを防ぐための防衛策）
Set sh = Nothing
Next i
End Sub
‘ =====================================================================================
‘ 個別シェイプの評価と属性置換ロジック
‘ =====================================================================================
Private Function EvaluateAndReplace(ByRef sh As Shape) As Boolean
EvaluateAndReplace = False
‘ 例：特定のカラーパレット（CMYK: C=100, M=0, Y=0, K=0）を持つオブジェクトを捕捉し、
‘ RGB（Red: 255, Green: 0, Blue: 0）に一括置換するサンプルロジック
On Error Resume Next ‘ プロパティを持たない特殊シェイプ（ガイド線など）のエラー回避
If sh.Fill.Type = cdrUniformFill Then
‘ 塗りつぶしが単色の場合の判定
Dim c As CMYKColor
Set c = sh.Fill.Color.CMYK
‘ 例として、シアン100%のオブジェクトを赤に置換
If c.Cyan = 100 And c.Magenta = 0 And c.Yellow = 0 And c.Black = 0 Then
sh.Fill.ApplyRGBColor CreateRGBColor(255, 0, 0)
EvaluateAndReplace = True
End If
Set c = Nothing
End If
On Error GoTo 0
End Function
—
3. チーフアーキテクトが解説する実装の急所
上記のコードは単なる「動くスクリプト」ではない。極限の負荷がかかる巨大なベクターデータ（数万〜数十万のオブジェクトを持つDTP入稿データ等）を処理するために、以下のアーキテクチャ上の工夫が組み込まれている。
① コレクションの逆順ループ (`For i = shapesCol.Count To 1 Step -1`)
VBAでコレクションを `For Each` や正順（1からCount）で回す際、もしスクリプト内で動的なグループの分解や要素の削除・追加を行うと、インデックスのズレによる致命的な実行時エラー（インデックスが範囲外です）を引き起こす。
さらに、再帰処理の過程でCOMラッパーのスタックを圧迫しないよう、逆順ループによってメモリ上のポインタ参照の安全性を高めている。
② `Optimization = True` と `EventsEnabled = False` による爆速化
CorelDRAW VBAにおいて、マクロ実行中に画面描画やイベント監視が有効になっていると、1つのプロパティを変更するたびにGUIが再描画され、数分〜数時間の遅延が発生する。
処理の冒頭でこれらを無効化し、メモリ上で一気に演算を完結させることで、処理速度を最大100倍以上に引き上げることが可能だ。これは大規模な印刷用データムラを自動修正するシステムでは必須の定石である。
③ 徹底的なオブジェクトの解放 (`Set sh = Nothing`)
VBAのガベージコレクションは非常に曖昧であり、特にCOMオブジェクト（CorelDRAWの内部インスタンス）の参照はスコープを抜けてもメモリ上に残留しやすい。
ループのインクリメントごとに `Set sh = Nothing` を明示的に実行し、再帰呼び出しのスタックフレームが破棄されるタイミングでメモリリークが起きないよう厳密に管理している。
—
4. レガシー環境・システム間連携への応用
この再帰走査エンジンは、単なる色の一括置換にとどまらず、以下のような高度なシステム間連携の基盤として拡張できる。
- 外部ERP/PDMシステムからのメタデータ埋め込み:
データベースから取得した部品型番や管理IDを、ネストされたグループの奥深くにある特定のシェイプの「オブジェクトデータ（Shape.DataFields）」に再帰的に流し込む。
- プリフライト・自動修正システム:
印刷入稿データの規格外のアウトライン幅や、禁止されているスポットカラーを深部から検出し、自動的にレギュレーション適合値へ書き換える。
CorelDRAWのポテンシャルを極限まで引き出し、手作業では数時間かかる複雑なベクターデータの修復をミリ秒単位で完了させる――これこそが、VBAを真に「システム化」するためのアプローチである。現場のエンジニア諸賢には、このコードをベースに、自社のワークフローに合わせたカスタムバリデーションを組み込んでいただきたい。
