【極限の知見】CorelDRAW VBA：複数ドキュメント間におけるレイヤー階層とガイドセットの「完全構造転送」エンジン
プロフェッショナルの現場において、「コピー＆ペースト」という言葉は、自動化エンジニアにとっては「敗北」を意味することがある。
もし君が、テンプレートのレイヤー構造や精密なガイド設定を別のドキュメントへ同期させるために、`Selection.Copy` と `ActiveDocument.Paste` を組み合わせて使っているとしたら、今すぐそのコードを破棄すべきだ。なぜなら、その手法は「オブジェクトの属性」ではなく「単なる描画データ」を転送しているに過ぎないからだ。
レイヤーのネスト（階層）構造、各レイヤーの可視性、ロック状態、そしてページに紐付いた精密なガイド線のメタデータ。これらを欠落させることなく、別ウィンドウで開いているマスターデータへ「構造そのもの」を転送するには、CorelDRAWのオブジェクトモデルを深く理解した上での「再構築型エンジン」が必要となる。
本記事では、単なるデータの移動ではなく、ドキュメントの「設計図」を複製する、堅牢なディープコピー・エンジンの設計思想と実装を伝授する。
1. なぜ標準のCopy/Pasteでは「不完全」なのか
CorelDRAWのAPIにおいて、`Copy` メソッドは基本的に「選択されたオブジェクト（Shape）」の幾何学的情報をクリップボードに送る。しかし、我々が求めているのは以下の要素だ：
1. Layer Hierarchy (階層性): 親レイヤーの下に子レイヤーが存在するツリー構造。
2. Layer Properties (属性): レイヤーの透明度、ロック状態、可視性、カラーモード。
3. Guide Metadata (ガイドのメタデータ): ページに設定された水平・垂直ガイドの正確な座標と種類。
標準のコピーでは、レイヤーという「器」は無視され、中身の「具」だけがコピーされる。これでは、複雑なワークフローを支えるテンプレートの再利用は不可能だ。我々が構築すべきは、ソースの構造をスキャンし、ターゲット側に同じ構造を「再構築（Reconstruct）」しながら、プロパティを注入していくプロセスである。
2. 設計思想：再帰的構造転送（Recursive Reconstruction）
レイヤーはツリー構造である。親レイヤーの中に子レイヤーがあり、その中にさらに子レイヤーがある。これをフラットなループで処理しようとするのは素人の発想だ。
プロフェッショナルの設計は「再帰（Recursion）」を用いる。
1. Source Layerを走査：現在のレイヤーのプロパティ（名前、可視性等）を取得。
2. Target Layerを作成：ターゲットドキュメントに、全く同じ名前・属性を持つレイヤーを生成。
3. 再帰呼び出し：そのレイヤーが持つ `Layers` コレクションを対象に、自分自身（関数）を再度呼び出す。
4. Guidesの同期：ページオブジェクトにアクセスし、ガイドの座標と種類を一つずつ精査して再現する。
3. プロダクション・コードの実装例
以下に、実務でそのまま利用可能なレベルまで堅牢性を高めた、構造転送エンジンのコアモジュールを示す。
Option Explicit
' ==============================================================================
' Module: DeepCopyEngine
' Description: レイヤー階層とガイドセットを別ドキュメントへ完全に複製するエンジン
' Author: Chief Architect
' ==============================================================================
''' <summary>
''' 2つのドキュメント間でレイヤー構造とガイドを同期させるメインルーチン
''' </summary>
''' <param name="srcDoc">コピー元ドキュメント</param>
''' <param name="tgtDoc">コピー先ドキュメント</param>
Public Sub ExecuteDeepCopy(ByRef srcDoc As Document, ByRef tgtDoc As Document)
If srcDoc Is Nothing Or tgtDoc Is Nothing Then
Err.Raise vbObjectError + 513, "DeepCopyEngine", "ドキュメントオブジェクトが不正です。"
End If
' パフォーマンス最適化：描画更新とイベントを一時停止
On Error GoTo ErrorHandler
Optimization = True
EventsEnabled = False
ActiveDocument.BeginCommandGroup "Deep Copy Structure"
Dim pg As Page
Dim i As Integer
' 1. ガイド線の同期 (各ページに対して実行)
' 注：ここでは簡易的にsrcDocの1ページ目をtgtDocの1ページ目に同期する例とする
' 実務ではループで全ページを回す設計にする
SyncPageGuides srcDoc.Pages(1), tgtDoc.Pages(1)
' 2. レイヤー階層の再構築
' ターゲットの既存レイヤーをクリアしてから開始する場合の設計
' (実務上の要件に応じて、既存レイヤーへのマージか、完全置換かを選択すること)
ClearAllLayers tgtDoc
' ソースの各レイヤーを再帰的にコピー
Dim srcLayer As Layer
For Each srcLayer In srcDoc.Layers
' ルートレイヤー（通常はLayer 1）の処理
' CorelDRAWの特殊レイヤー（Background等）の扱いに注意
ReplicateLayerHierarchy srcLayer, tgtDoc
Next srcLayer
ActiveDocument.EndCommandGroup
CleanUp:
Optimization = False
EventsEnabled = True
Application.Refresh
Exit Sub
ErrorHandler:
MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
Resume CleanUp
End Sub
''' <summary>
''' レイヤー階層を再帰的に再構築する内部メソッド
''' </summary>
Private Sub ReplicateLayerHierarchy(ByRef srcLayer As Layer, ByRef tgtDoc As Document)
Dim tgtLayer As Layer
Dim subLayer As Layer
' ターゲットドキュメントに新しいレイヤーを作成
' 名前が重複する場合の挙動はCorelDRAWの仕様に依存するため、慎重に扱う
Set tgtLayer = tgtDoc.Layers.Add(Name:=srcLayer.Name)
' プロパティの同期（可視性、ロック状態など）
tgtLayer.Visible = srcLayer.Visible
tgtLayer.Locked = srcLayer.Locked
' 必要に応じて、レイヤーの透明度やカラー設定もここで同期する
' 子レイヤーが存在する場合、再帰的に自分自身を呼び出す
If srcLayer.Layers.Count > 0 Then
For Each subLayer In srcLayer.Layers
ReplicateLayerHierarchy subLayer, tgtDoc
Next subLayer
End If
End Sub
''' <summary>
''' ページのガイド設定を完全に同期する
''' </summary>
Private Sub SyncPageGuides(ByRef srcPage As Page, ByRef tgtPage As Page)
Dim g As Guide
Dim newGuide As Guide
' 既存のターゲットガイドを一旦クリア（クリーンな同期のため）
Do While tgtPage.Guides.Count > 0
tgtPage.Guides(1).Delete
Loop
' ソースのガイドを走査
For Each g In srcPage.Guides
' ガイドの種類（水平/垂直）と位置を正確に転送
' 座標系（Unit）の不一致を防ぐため、明示的な変換が必要な場合がある
Set newGuide = tgtPage.AddGuide(g.Type, g.Position)
' 座標の微細な誤差を防ぐための丸め処理（必要に応じて）
' newGuide.Position = Round(g.Position, 4)
Next g
End Sub
''' <summary>
''' ターゲットドキュメントのレイヤーを初期化する（安全な上書きのため）
''' </summary>
Private Sub ClearAllLayers(ByRef tgtDoc As Document)
Dim i As Integer
' 最小1つのレイヤーは残す必要があるため、逆順で削除
For i = tgtDoc.Layers.Count To 2 Step -1
tgtDoc.Layers(i).Delete
Next i
' Layer 1 の中身をクリア
tgtDoc.Layers(1).AllShapes.Delete
End Sub4. 実装における「極限の注意点」：エンジニアが陥る罠
このコードをプロダクション環境に投入する前に、以下の3点を必ず検証せよ。
① 座標系の不一致（Unit Mismatch）
CorelDRAWの内部座標は、ドキュメントの設定（ミリメートル、インチ、ピクセル）に依存する。`g.Position` を取得する際、ターゲットドキュメントの `Unit` が異なる場合、ガイドの位置が狂う。
対策: `srcLayer.Document.Unit` と `tgtLayer.Document.Unit` を比較し、必要に応じて `CorelDRAW.ConvertUnits` を介して変換を行うロジックを組み込め。
② 実行時エラーとUndoスタック
大量のレイヤーやガイドを操作する場合、`Optimization = True` を忘れると、画面描画のオーバーヘッドで処理が指数関数的に遅くなる。また、`BeginCommandGroup` を使用しないと、ユーザーが「元に戻す（Undo）」をしようとした際に、数百回の操作が個別にスタックされ、アプリケーションがハングアップする原因となる。
③ 特殊なレイヤーの保護
CorelDRAWには、削除不可能な、あるいは挙動が特殊な「背景レイヤー」や「マスターページに関連付けられたレイヤー」が存在する。これらを `ClearAllLayers` で無差別に消そうとすると、ランタイムエラーが発生する。
対策: `srcLayer.Type` をチェックし、特殊なレイヤータイプ（`cdrLayerType…`）を判別するガード節を実装せよ。
5. 結論
優れた自動化ツールとは、単に「作業を速くするもの」ではない。「設計の意図を、寸分の狂いもなく別の場所に再現するもの」である。
今回紹介した再帰的構造転送エンジンは、データの表面的なコピーを超え、ドキュメントの「構造的整合性」を担保するためのアプローチだ。このレベルの設計思想を身につけることで、君の書くコードは「スクリプト」から、真の「エンタープライズ・ソリューション」へと昇華する。
さあ、コードを書き直せ。構造を支配する者が、自動化を支配するのだ。
