【CorelDRAW VBA極限の知見】ネストされたグループを迷いなく狩る：再帰走査による属性一括置換の完全設計
CorelDRAWでの自動化開発において、最もフラストレーションが溜まる瞬間はどこか？
それは、「複雑に入り組んだグループ階層の奥深くにあるシェイプを、フラットなコードで捉えきれず処理漏れを起こす」ことだ。
世の中の入門書やリファレンスサイトには、`ActivePage.Shapes` を `For Each` で回すだけの退屈なコードしか載っていない。しかし、実際の業務データ、特に外部からインポートしたCAD図面やDTPの複雑なテンプレートにおいて、オブジェクトは「グループの中にグループ、さらにその中にマスクやコンテナ…」という深いネスト構造（木構造）の迷宮に囚われている。
今回は、CorelDRAW VBAのオブジェクトモデルの挙動、メモリ管理、そして安全な型安全性を知り尽くしたチーフアーキテクトの視点から、「深部にあるネストされたグループを再帰的に走査し、特定条件のオブジェクト属性を一括置換するプロダクションコード」を授けよう。
—
1. なぜ「深部検索」でエンジニアはハマるのか？
CorelDRAWの `ShapeRange` や `Shapes` コレクションの仕様を甘く見ていると痛い目をみる。
- 浅い走査の罠: `ActivePage.Shapes` はトップレベルのオブジェクトしか返さない。グループの内部（`Group` オブジェクトの配下）にあるシェイプは完全に不可視となる。
- イベントと再描画の負荷: 階層を潜るたびに画面描画（ScreenUpdating）やイベントが発生していると、数千個のオブジェクトを持つファイルでは処理が数分で終わらない。
- 型の迷子（Runtime Error 438など）: グループ（`cdrGroupShape`）と通常のパス（`cdrCurveShape`）では、持っているプロパティが異なる。これを判別せずにアクセスすると即座にクラッシュする。
これらを完全に克服するためには、「再帰関数（Recursive Function）」を用いたアルゴリズムの構築が不可欠となる。
—
2. 堅牢な再帰走査アルゴリズムの設計思想
木構造を走査する際の鉄則は以下の3点だ。
1. 司令塔（エントリーポイント）と実務者（再帰プロシージャ）の分離
2. グループの判定と、子要素（`Shapes`）へのダイブ
3. パフォーマンスと安定性のための描画・イベント抑制
特にCorelDRAW VBAでは、`Optimization = True` を宣言し、処理中の画面再描画を完全に断つことが、プロとアマを分ける最初の分水嶺である。
—
3. 【プロダクションコード】ネスト全網羅・属性一括置換エンジン
以下のコードは、アクティブページの全階層を走査し、「特定の輪郭色（アウトライン）を持つシェイプの塗りつぶし色とアウトライン幅を強制的に一括置換する」という実務に直結するスクリプトだ。
そのままコピペして、VBAエディタ（Alt + F11）の標準モジュールに貼り付けて実行してほしい。
Option Explicit
‘ ==============================================================================
‘ 処理名: 階層構造再帰走査による属性一括置換エンジン
‘ 概要: グループの深さに関わらず、配下の全シェイプを走査してプロパティを書き換える
‘ ==============================================================================
Sub ExecuteRecursivePropertyReplacement()
Dim startTime As Double
startTime = Timer
‘ 1. パフォーマンス最適化の呪文（これがないコードは実務で使えない）
EventsEnabled = False
ActiveDocument.BeginCommandGroup “Recursive Property Replace”
On Error GoTo ErrorHandler
Dim processedCount As Long
processedCount = 0
‘ 2. アクティブページの全シェイプを起点として再帰処理を開始
If ActivePage.Shapes.Count > 0 Then
Call TraverseAndReplace(ActivePage.Shapes, processedCount)
End If
‘ 3. 変更をコミット
ActiveDocument.EndCommandGroup
EventsEnabled = True
‘ 完了通知
MsgBox “処理が完了しました。” & vbCrLf & _
“走査・置換されたオブジェクト数: ” & processedCount & ” 個” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, _
vbInformation, “CorelDRAW 自動化エンジン”
Exit Sub
ErrorHandler:
‘ 異常終了時の安全ネット
EventsEnabled = True
ActiveDocument.AbortCommandGroup
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
‘ ==============================================================================
‘ 再帰関数: シェイプコレクションを走査し、グループなら自分自身を再呼び出しする
‘ ==============================================================================
Private Sub TraverseAndReplace(ByVal shps As Shapes, ByRef count As Long)
Dim shp As Shape
Dim i As Long
‘ コレクションの末尾からループを回す（実行中の削除や動的変更に備えるため）
For i = shps.Count To 1 Step -1
Set shp = shps(i)
‘ デバッグ用（イミディエイトウィンドウに名前を出力する場合）
‘ Debug.Print “Checking: ” & shp.Name & ” (Type: ” & shp.Type & “)”
‘ 判定A: オブジェクトがグループである場合
If shp.Type = cdrGroupShape Then
‘ 【重要】グループ自体は子を持っているので、その内部（Shapes）に対して再帰呼び出しを行う
Call TraverseAndReplace(shp.Shapes, count)
‘ 判定B: 通常のシェイプ、または複合パスなどの場合（必要に応じて条件を追加）
Else
‘ ここに「目的のオブジェクトを特定する条件」を記述する
‘ 例: アウトライン（輪郭線）の色が「赤 (RGB: 255, 0, 0)」であるものをターゲットにする
If shp.StaticType <> cdrGuidelineShape Then ‘ ガイドライン等は除外
‘ 例として、特定の条件を満たした場合にプロパティを書き換える
‘ （ここでは安全性のため、アウトラインが存在するかチェック）
If Not shp.Outline Is Nothing Then
‘ 条件判定の例：もし現在の線の太さが特定の値以上、または特定の色の場合
‘ ここではシンプルに「すべてのベクターシェイプの線を特定の青色に変更する」例を示す
‘ — 属性置換ロジック —
shp.Outline.SetColor CreateRGBColor(0, 114, 189) ‘ プロフェッショナルな青へ変更
shp.Outline.Width = 0.5 ‘ 線の太さを 0.5mm に統一
‘ 塗り（Fill）の変更例
If shp.Fill.Type = cdrUniformFill Then
‘ 単色塗りの場合、色をスレートグレーに変更
shp.Fill.UniformColor.SetRGB 240, 240, 240
End If
count = count + 1
End If
End If
End If
Next i
End Sub
—
4. チーフアーキテクトが教える、コードの急所と実務上の注意点
このスクリプトを実務の現場（印刷会社、看板製造、アパレル型紙CAD、大規模DTPなど）に導入する際、絶対に押さえておくべきポイントを伝授する。
① ループは必ず「逆順（`To 1 Step -1`）」で回せ
コレクションの操作において、上から順（`1 To Count`）に回すと、途中でオブジェクトの削除やグループ解除、構造変化が発生した瞬間にインデックスがズレてクラッシュするか、処理漏れが起きる。
「ネストを降りる・構造を変える可能性のあるコレクション操作は、常に末尾からの逆順ループ」。これがVBAにおける鉄則中の鉄則だ。
② 無限ループとメモリリークの防止
極稀に、不正なOLEオブジェクト構造や破損したCDRファイルにおいて、グループが自分自身を参照しているような異常なツリー構造に遭遇することがある。
プロダクション環境では、スタックオーバーフロー（Stack Overflow）を防ぐために、再帰の深さ（Depth）に上限（例: 最大32階層など）を設けるカウンターを引数に持たせる設計にすると、より堅牢性が増す。
③ 外部データベースやCSV連携への拡張
今回のサンプルは属性の「一括置換」だが、これを実務でさらに進化させるなら、「外部CSVやExcelから製品IDやカラーコードのマスターデータを読み込み、グループ階層の奥底にあるテキストフレームやシェイプの値を動的に書き換える」というバッチ処理への応用だ。
`FileSystemObject` を用いてCSVをパースし、この再帰エンジンの条件分岐部分に流し込むだけで、数万点あるパーツの多品種少量生産用デザインバリエーション生成が、わずか数秒で完了する完全自動化ラインが完成する。
—
結び：手作業の地獄からオペレーターを解放せよ
「グループの奥深くに隠れているから手動で一つずつクリックして色を変えるしかない」——そんな前時代的な絶望を、今日で終わりにしよう。
今回解説した再帰走査のアルゴリズムをあなたのツールボックスに組み込めば、どんなに複雑怪奇にネストされたCorelDRAWドキュメントであっても、一網打尽にコントロール下に置くことができる。
プロのエンジニアとして、美しく、速く、そして絶対に落ちないコードを書き上げ、職場の非効率を根絶やしにしてほしい。
