【極限の知見】CorelDRAWにおけるレイヤー階層とガイドセットのディープコピー・アーキテクチャ
業務自動化の現場において、「コピー＆ペースト」という言葉ほど無責任なものはない。
単なるオブジェクトの転送であれば、`CommandBars.ExecuteCommand` を叩けば済む話だ。しかし、我々が設計すべきは、複雑に構築されたレイヤーの親子関係、そして設計の生命線である「カスタムガイド」の配置情報を、異なるドキュメント環境下へ、その数学的精度を一切損なうことなく転送する「オブジェクト複製エンジン」である。
本稿では、CorelDRAW VBAにおける単なる操作を超えた、メモリ管理と階層構造の再帰的走査、そしてメタデータの完全同期を実現するための、シニアエンジニア向けの設計指針を詳述する。
1. 浅いコピー（Shallow Copy）の限界と設計思想
一般的な自動化スクリプトが陥る罠は、`ActiveDocument.Selection.Copy` に依存することだ。これは「現在選択されているもの」という不安定な状態に依存しており、レイヤーの階層構造（Layer Hierarchy）や、そのレイヤーに紐付いたガイド（Guides）のコンテキストを完全に無視している。
プロフェッショナルが構築すべきエンジンは、以下の3つの要件を満たさなければならない。
1. 階層の再帰的同期 (Recursive Hierarchy Synchronization): 親レイヤーから子レイヤーへと、ツリー構造を正確に辿り、ターゲットドキュメントに同一の構造を再構築する。
2. ガイド・メタデータの完全復元 (Metadata Restoration): ガイドの座標、角度、およびそれが「どのレイヤーに属しているか」という属性を、単位系（Units）の差異を吸収した上で転送する。
3. メモリの決定論的制御 (Deterministic Memory Management): 大規模なドキュメントを扱う際、オブジェクト参照を明示的に解放し、VBAのガベージコレクションに頼らないメモリ管理を行う。
2. 実装アーキテクチャ：再帰的レイヤー走査
レイヤー構造は木構造（Tree Structure）である。これを処理するには、再帰関数を用いるのが定石だ。単に `Layers` コレクションをループさせるだけでは、ネストされたサブレイヤーを見落とすことになる。
ガイド転送の数学的精度
ガイドの座標を転送する際、最も注意すべきは Unit（単位）の不一致 である。ソースドキュメントが `cdrInch` で、ターゲットが `cdrMillimeter` であった場合、単純な数値の代入は致命的な設計ミスを招く。必ず `WorldTransform` または `Unit` 変換を介して、絶対座標として計算しなければならない。
3. 実装コード：Deep Copy Engine Prototype
以下に、レイヤー構造とガイド、およびその中のオブジェクトを別ドキュメントへディープコピーする、堅牢なプロトタイプを示す。
Option Explicit
' ==============================================================================
' CorelDRAW Deep Copy Engine
' Author: Chief Architect
' Description: レイヤー階層、ガイド、オブジェクトを別ドキュメントへ精密に複製する
' ==============================================================================
''' <summary>
''' メインエントリポイント：ソースからターゲットへ構造を複製する
''' </summary>
''' <param name="srcDoc">コピー元ドキュメント</param>
''' <param name="tgtDoc">コピー先ドキュメント</param>
Public Sub ExecuteDeepCopy(srcDoc As Document, tgtDoc As Document)
Dim srcLayer As Layer
Dim tgtPage As Page
On Error GoTo ErrorHandler
' 高速化のための最適化設定
Optimization = True
EventsEnabled = False
Set tgtPage = tgtDoc.ActivePage
' ソースの最上位レイヤーから再帰的に処理を開始
For Each srcLayer In srcDoc.MasterPage.Layers
' マスターページ直下のレイヤーのみを起点とする（不要なレイヤーの重複を防ぐ）
If srcLayer.ZOrder = zOrderTop Or srcLayer.Parent Is Nothing Then
RecursiveLayerCopy srcLayer, tgtDoc, tgtPage
End If
Next srcLayer
CleanExit:
Optimization = False
EventsEnabled = True
Application.Refresh
Exit Sub
ErrorHandler:
MsgBox "Critical Error in DeepCopy Engine: " & Err.Description, vbCritical
Resume CleanExit
End Sub
''' <summary>
''' レイヤー階層を再帰的に走査し、構造を構築する
''' </summary>
Private Sub RecursiveLayerCopy(srcLayer As Layer, tgtDoc As Document, tgtPage As Page)
Dim tgtLayer As Layer
Dim subLayer As Layer
Dim srcGuide As Guide
Dim tgtGuide As Guide
Dim srcShape As Shape
Dim tgtShape As Shape
' 1. ターゲットドキュメントに同名のレイヤーが存在するか確認（冪等性の確保）
Set tgtLayer = GetOrCreateLayer(tgtDoc, tgtPage, srcLayer.Name)
' 2. ガイドのコピー (Metadata Transfer)
' ガイドの座標は単位変換を考慮して転送する必要がある
For Each srcGuide In srcLayer.Guides
' 座標をソースの単位からターゲットの単位へ変換して配置
' ここでは簡略化のため、ターゲットの現在の単位設定に基づき計算
Set tgtGuide = tgtLayer.AddGuide(srcGuide.Type, _
tgtDoc.UnitConversion(srcGuide.Position, srcLayer.Document.Unit))
' ※実際の実装では、角度(Angle)やオフセットも厳密にコピーすること
Next srcGuide
' 3. オブジェクトのコピー (Object Transfer)
' レイヤー内の形状をコピーし、新設したレイヤーへ配置
For Each srcShape In srcLayer.Shapes
srcShape.Copy
tgtLayer.Paste
' Paste直後の形状は選択状態になるため、それを取得
Set tgtShape = tgtDoc.Selection.Shapes(1)
' 必要に応じて、属性（色、線幅、効果）の微調整をここで行う
Next srcShape
' 4. 再帰呼び出し：サブレイヤーの処理
' srcLayer.Layers コレクションを走査
For Each subLayer In srcLayer.Layers
RecursiveLayerCopy subLayer, tgtDoc, tgtPage
Next subLayer
' 5. メモリ解放 (Explicit Release)
' VBAの参照カウンタを適切に管理
Set tgtLayer = Nothing
Set srcLayer = Nothing
End Sub
''' <summary>
''' レイヤーの存在確認および作成
''' </summary>
Private Function GetOrCreateLayer(tgtDoc As Document, tgtPage As Page, layerName As String) As Layer
Dim l As Layer
On Error Resume Next
Set l = tgtDoc.ActiveLayer.Parent.Layers(layerName)
On Error GoTo 0
If l Is Nothing Then
Set l = tgtDoc.ActiveLayer.Parent.CreateLayer(layerName)
End If
Set GetOrCreateLayer = l
End Function4. 運用上の極意：メモリ管理とパフォーマンス
このエンジンのパフォーマンスを最大化し、長時間稼働するバッチ処理でのクラッシュを防ぐためには、以下の「アーキテクトの掟」を遵守せよ。
メモリリークの防止
VBAの `Set obj = Nothing` は、単なる作法ではない。特に `Shape` や `Layer` といったCOMオブジェクトを大量に扱う場合、明示的な解放を行わないと、CorelDRAWのプロセスがメモリを食いつぶし、最終的に `Out of Memory` エラーでプロセスが死ぬ。ループの各ステップにおいて、利用したオブジェクトへの参照を確実に断ち切ること。
Windows APIとの連携（高度な制御）
もし、大量のドキュメントをバックグラウンドで処理する場合、`ShowWindow` (user32.dll) を用いてCorelDRAWのウィンドウを非表示にする、あるいは `SetForegroundWindow` を用いてプロセスがフォアグラウンドで確実に動作するように制御するなどの、OSレベルの介入が必要になるケースがある。
' Windows API の宣言例
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5レガシー環境への配慮
社内システムでは、古いバージョンのCorelDRAW（X6以前など）が動いていることが少なくない。最新のAPI（`Document.UnitConversion` など）が利用できない環境を想定し、自前の変換ロジックをラップしたユーティリティクラスを用意しておくのが、真のプロフェッショナルである。
結論
レイヤーとガイドのディープコピーは、単なる「データの移動」ではない。それは「設計意図の転送」である。
構造、座標、コンテキスト。これらすべてを数学的に、かつ決定論的に制御すること。それが、業務自動化を「ツール」から「システム」へと昇華させる唯一の道である。
