【CorelDRAW VBA】Zオーダーを死守せよ：複数ページへの「同期コピー」を極める極意
CorelDRAWで「全ページにまたがる共通パーツ」を運用する際、安易にマスターページに頼りすぎていないか？ マスターページは強力だが、レイヤー構造が複雑化すると制御不能な「予期せぬ挙動」の温床になる。
実務レベルで求められるのは、「指定レイヤーのZオーダー（重なり順）を維持したまま、別ページの同一座標へ図形を射影する」という高度な同期メカニズムだ。今回は、オブジェクトのライフサイクルを制御し、バグを排除するための「プロダクション品質」のコードを伝授する。
—
1. なぜ「単純なコピペ」では破綻するのか？
VBAで `Shape.Copy` や `Shape.Duplicate` を繰り返すと、多くの開発者が以下の罠に陥る。
- Zオーダーの崩壊: 貼り付け順序が制御できず、背面に隠れるべきオブジェクトが前面に出てくる。
- レイヤーの不整合: ターゲットページに同名のレイヤーが存在しない場合、あるいはレイヤーのロック状態を考慮していない場合、エラーが連鎖する。
- メモリリークの温床: `ShapeRange` を適切にクリアしないままループを回し続け、CorelDRAWの内部スタックを肥大化させる。
これを解決するには、「ターゲットレイヤーの最前面にスタックし、かつ元のZオーダー順序を逆転させて貼り付ける」という逆転の発想が必要だ。
—
2. 実装の要諦：プロフェッショナル・コード
以下のコードは、選択したオブジェクトを全ページ（あるいは指定ページ）の特定レイヤーへ、座標・Zオーダーを完全に維持して複製するテンプレートだ。
‘ ———————————————————
‘ 機能: 選択図形を全ページの同一レイヤーへ同期複製する
‘ 注意: 事前に同期元となるレイヤーを選択しておくこと
‘ ———————————————————
Public Sub SyncObjectsToAllPages()
Dim sr As ShapeRange
Dim shp As Shape
Dim targetLayerName As String
Dim p As Page
Dim doc As Document
Set doc = ActiveDocument
Set sr = ActiveSelectionRange
If sr.Count = 0 Then Exit Sub
‘ 元のレイヤー名を保存
targetLayerName = sr.FirstShape.Layer.Name
‘ 効率化のため、画面更新を停止
Optimization = True
‘ ページをループ（現在のページ以外へ適用）
For Each p In doc.Pages
If p.Index <> doc.ActivePage.Index Then
‘ ターゲットレイヤーの取得または作成
Dim lyr As Layer
Set lyr = p.Layers.Find(targetLayerName)
If lyr Is Nothing Then Set lyr = p.Layers.Add(targetLayerName)
‘ オブジェクトを逆順で複製（これにより貼り付け後のZオーダーが維持される）
Dim i As Long
For i = sr.Count To 1 Step -1
Dim newShp As Shape
Set newShp = sr(i).Duplicate
newShp.MoveToLayer lyr
Next i
End If
Next p
Optimization = False
ActiveWindow.Refresh
MsgBox “同期完了：全ページへの配置が終了しました。”, vbInformation
End Sub
—
3. アーキテクトからの設計上の忠告
A. オブジェクトのライフサイクルを管理せよ
`Duplicate` メソッドは新しいオブジェクトを生成する。もし既存の図形を「更新」したいのであれば、単なる複製ではなく、「IDによる管理」を推奨する。図形作成時に `Shape.Name` にユニークなID（例: `GUID_XXXX`）を付与しておけば、次回実行時に `Layer.Shapes.Find(name)` で特定し、位置情報だけを同期させることが可能だ。
B. パフォーマンスの境界線
数千個のオブジェクトをループで処理する場合、`Optimization = True` は必須だが、それでもメモリ不足に陥る場合がある。その際は `DoEvents` をループ内に挟むことで、CorelDRAWのUIスレッドを解放し、フリーズを防ぐことができる。
C. ファイル・データベース連携の注意点
外部のデータベースから座標データを読み込んで図形を配置する場合、「座標系の不一致」に注意せよ。CorelDRAWの座標は「左下が原点」である。Excel等から座標をインポートする際は、この計算式をコード内に明示的に記述すること。さもなくば、位置が上下反転するトラブルが必ず発生する。
—
結論：自動化の先にあるもの
このコードの肝は、`For i = sr.Count To 1 Step -1` という「逆順ループ」にある。単純なロジックだが、これを知っているか否かで、現場のエンジニアとしての格が変わる。
ツールを作ることは、単なる「作業の短縮」ではない。「ミスが起きる余地をシステム的に排除する」ことこそが、我々アーキテクトの使命だ。このコードをベースに、君の現場のワークフローに合わせた「堅牢な同期エンジン」を構築してほしい。
迷ったら、いつでもオブジェクトモデルの原点に立ち返れ。CorelDRAWは、設計思想さえ正しければ、必ず期待通りの挙動で応えてくれるはずだ。
