【CorelDRAW VBA道場】レイヤーのZオーダーを死守せよ！別ページへ図形を完璧に同期させる極意
CorelDRAWで「全ページ共通のロゴや枠を、修正のたびに全ページ手作業でコピペしている」なんてことはありませんか？
マスターページを使えばいいという意見もありますが、実務では「特定のページだけ少しずらしたい」「レイヤー構成を動的に維持したい」という、マスターページでは制御しきれない繊細な要求が発生します。
今日は、マクロの記録を卒業したあなたが、「オブジェクトのZオーダー（重なり順）を維持したまま、別ページの同一座標へ図形を正確に同期させる」という、中級者への登竜門を突破するための極意を伝授します。
—
なぜ「ただのコピー＆ペースト」ではダメなのか？
CorelDRAW VBAで単純に`Copy`して`Paste`すると、その時のアクティブレイヤーにオブジェクトが吸い込まれてしまいます。これでは、レイヤー階層が崩れ、印刷時の出力順序やデザインの整合性が壊滅します。
我々が目指すべきは、「ソース（元）のオブジェクトがどのレイヤーにいたかを解析し、ターゲット（先）ページで同じ名前のレイヤーを特定し、そこに全く同じ順序で配置する」という精密な同期処理です。
—
極限の設計：同期用VBAコード
このコードは、現在選択しているオブジェクトを、ドキュメント内の「全ページ」の「同一レイヤー名」へ、座標とZオーダーを保って複製するものです。
Sub SyncSelectedObjectAcrossPages()
Dim doc As Document
Dim sourceObj As Shape
Dim sourceLayerName As String
Dim targetPage As Page
Dim targetLayer As Layer
Dim newShape As Shape
Set doc = ActiveDocument
‘ 1. 選択オブジェクトのチェック
If doc.Selection.Count = 0 Then
MsgBox “対象となる図形を選択してください。”
Exit Sub
End If
Set sourceObj = doc.Selection(1)
sourceLayerName = sourceObj.Layer.Name
‘ 2. 全ページをループ（現在のページ以外を対象にするのがコツ）
For Each targetPage In doc.Pages
If targetPage.Index <> doc.ActivePage.Index Then
‘ ターゲットページ内の該当レイヤーを特定
Set targetLayer = targetPage.Layers(sourceLayerName)
‘ 3. 複製と配置
Set newShape = sourceObj.Duplicate()
newShape.MoveToLayer targetLayer
‘ 4. Zオーダーの同期（重要：レイヤー内での順序を維持）
newShape.OrderTo sourceObj.Order
End If
Next targetPage
MsgBox “同期完了：全ページへの反映が完了しました。”
End Sub
—
このコードの「賢いポイント」を解説
1. `MoveToLayer` の魔法
`Duplicate` した直後、オブジェクトは元のレイヤーに残ります。`MoveToLayer` を使うことで、新しいページにある同名のレイヤーへと、重なり順の情報を保持したまま移送できます。
2. `OrderTo` で重なり順を固定する
実は、同じレイヤー内に移動させても、そのレイヤーの中での前後関係（Zオーダー）がズレることがあります。`newShape.OrderTo sourceObj.Order` を記述することで、元の図形と全く同じ重なり順位置に強制的に「刺す」ことができます。
3. 陥りやすい罠：レイヤー名の存在
もしターゲットページに同じ名前のレイヤーが存在しない場合、このコードはエラーを吐きます。実務では `On Error Resume Next` でレイヤーがないページをスキップするか、自動でレイヤーを作成するロジックを組み込むのが「プロの防衛策」です。
—
読者の皆さんへ：ここをクリアすれば「自動化の達人」です
このコードを理解し、自分の環境に合わせて「特定のレイヤーだけ対象にする」「特定のページ範囲だけ同期する」といった改造ができるようになれば、あなたの作業時間は劇的に短縮されます。
ステップアップのアドバイス：
- 座標の微調整: `newShape.SetPosition x, y` を追加すれば、ページごとに微妙なオフセットをかけることも可能です。
- ガイド線の同期: 同様に `ActivePage.GuidesLayer` を操作すれば、ガイド線まで自動で同期させる高度なツールに進化します。
CorelDRAW VBAは、決して難しい言語ではありません。「オブジェクトがどこにいて、どんな状態にあるのか」を論理的に追跡する癖をつけるだけです。
さあ、退屈な手作業から解放されましょう。次はあなたのコードで、この伝説の続きを書いてみてください！
