序論：なぜあなたの自動化ツールは「深層」で止まるのか
CorelDRAW VBAを操るエンジニアにとって、真の試練は「ネスト（入れ子）」にあります。
単純な`For Each s In ActivePage.Shapes`で満足しているうちは、まだ初級の域を出ません。実務の現場で回ってくるデータは、デザイナーの意図（あるいは無意識）によって、複雑にグループ化され、PowerClipの中にPowerClipが閉じ込められた、いわば「情報の迷宮」です。
標準的なループ処理では、PowerClip内部のテキストや、多重グループの最下層にあるシェイプに触れることはできません。これを力技で解こうとすれば、コードは肥大化し、わずかな構造の変化でバグを誘発する脆弱なツールに成り下がります。
本稿では、プロフェッショナルが採用すべき「再帰的走査アルゴリズム」を軸に、PowerClipの壁を穿ち、全階層のオブジェクトを確実に掌握するための堅牢な設計手法を伝授します。
—
1. オブジェクトモデルの深淵：PowerClipとグループの正体
CorelDRAWにおいて、GroupとPowerClipは似て非なるものです。
- GroupShape: 複数のShapeを束ねているだけ。`s.Type = cdrGroupShape` で判定し、`.Shapes` コレクションを掘ればよい。
- PowerClip: これは「容器（Container）」です。`s.PowerClip` プロパティが存在するかを確認し、その中の `.Contents.AllShapes` を走査する必要があります。
最悪なのは、「グループの中にPowerClipがあり、その中のテキストがさらにグループ化されている」といったケースです。これを解決する唯一の論理的解法が「再帰（Recursion）」です。
—
2. プロダクション・グレードの実装例：再帰的置換エンジン
以下のコードは、ドキュメント内の全階層を走査し、特定の文字列を置換、あるいは特定条件のオブジェクトを処理するためのテンプレートです。パフォーマンス最大化のために `Optimization` を制御し、エラーハンドリングを組み込んでいます。
Option Explicit
‘ =================================================================
‘ 業務自動化エンジン：再帰的シェイプ走査・置換処理
‘ 開発者：CorelDRAW Automation Architect
‘ =================================================================
Public Sub ExecuteGlobalDeepSearch()
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then Exit Sub
‘ パフォーマンス最適化の開始
On Error GoTo ErrorHandler
Optimization = True
EventsEnabled = False
ActiveView.SeekView = cdrSeekMainDocument ‘ ビュー固定
‘ トランザクション（Undoのひとまとめ）
doc.BeginCommandGroup “Global Deep Replace”
‘ 全ページ走査（必要に応じてActivePageのみに限定可）
Dim pg As Page
For Each pg In doc.Pages
‘ 再帰関数の呼び出し
TraverseShapes pg.Shapes
Next pg
doc.EndCommandGroup
CleanExit:
Optimization = False
EventsEnabled = True
Application.Refresh
MsgBox “処理が完了しました。”, vbInformation
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
Resume CleanExit
End Sub
‘ —————————————————————–
‘ 再帰関数：シェイプの型を判別し、深層まで潜り込む
‘ —————————————————————–
Private Sub TraverseShapes(ByRef shps As Shapes)
Dim s As Shape
For Each s In shps
‘ — 1. 個別処理：ここで置換や色変更を行う —
ProcessShape s
‘ — 2. ネスト構造への分岐 —
‘ A: グループの場合
If s.Type = cdrGroupShape Then
TraverseShapes s.Shapes
‘ B: PowerClipの場合（最重要）
ElseIf Not s.PowerClip Is Nothing Then
‘ PowerClip内部のシェイプを再帰的に走査
TraverseShapes s.PowerClip.Contents.AllShapes
‘ C: シンボルの場合（必要に応じて）
ElseIf s.Type = cdrSymbolShape Then
‘ シンボル定義を書き換えると全インスタンスに影響するため注意
End If
Next s
End Sub
‘ —————————————————————–
‘ 個別処理：具体的なロジック（テキスト置換など）をここに集約
‘ —————————————————————–
Private Sub ProcessShape(ByRef s As Shape)
‘ 例：テキストの置換
If s.Type = cdrTextShape Then
‘ データベース連携を想定したIDマッチング等のロジックもここに記述可能
If InStr(s.Text.Contents, “{ReplaceMe}”) > 0 Then
s.Text.Contents = Replace(s.Text.Contents, “{ReplaceMe}”, “確定データ”)
s.Fill.UniformColor.CMYKAssign 0, 100, 100, 0 ‘ ついでに赤くする等の処理
End If
End If
‘ 例：特定の塗りつぶし色を一括変更
‘ If s.Fill.Type = cdrUniformFill Then …
End Sub
—
3. 現場で差が出る「設計の急所」
① データベース・外部ファイル連携の注意点
実務では、ExcelやCSVから流し込むケースが多いでしょう。その際、`TraverseShapes` の中で毎回外部ファイルにアクセスするのは致命的な設計ミスです。
- 正解: 最初に外部データを `Scripting.Dictionary`（連想配列）にキャッシュし、`ProcessShape` 内でそのメモリ上の辞書を参照する。これにより、ディスクI/Oを最小化し、数千個のオブジェクト処理を数秒で終わらせることができます。
② Shapeのライフサイクルと参照切れ
PowerClip内部を操作する際、稀にオブジェクト参照が不安定になることがあります。特に、操作によってシェイプの総数が変わる（削除や分解を伴う）場合は、`For Each` ではなく、`For i = shps.Count To 1 Step -1` のように逆順ループを採用するのが定石です。
③ PowerClipの「空」判定
`s.PowerClip` は、プロパティ自体は存在しても中身が空の場合にエラーを吐くことがあります。本コードのように `Not s.PowerClip Is Nothing` でガードをかけるのは必須の作法です。
—
4. アーキテクトからのアドバイス
「動けばいい」コードと「保守に耐える」コードの差は、副作用の制御に現れます。
1. Undoの管理: `BeginCommandGroup` を忘れると、ユーザーがCtrl+Zを100回叩く羽目になります。これは「プロのツール」としては失格です。
2. 画面更新の停止: `Optimization = True` は単なる高速化ではありません。描画エンジンのオーバーヘッドによるクラッシュを防ぐ「安全装置」です。
3. 再帰の深度: 通常、CorelDRAWのデータでスタックオーバーフローを起こすほどのネスト（数百階層）は考えにくいですが、循環参照（理論上は起こりにくいが）を避けるため、オブジェクトのIDをチェックするガードを入れることも検討してください。
このアルゴリズムをマスターすれば、CorelDRAWを用いたバリアブル印刷、自動製版、大規模なデザイン修正システムの構築において、向かうところ敵なしです。複雑な構造を恐れず、その構造を逆手に取って、エレガントな自動化を実現してください。
