マクロ記録を卒業しよう：マスターレイヤーとガイド線を一括同期する「設計図」の作り方
こんにちは。今日も設計、あるいはデザインの最前線で戦っているあなたへ。
CorelDRAWを使っていると、必ず直面する壁があります。それは「同じ構造のページを、何度も何度も手作業で作らされる」という、創造性とは無縁のルーチンワークです。
「レイヤーを『背景』『文字』『裁ち落とし』と作り直し、ガイド線をミリ単位で引き直す……」
もしあなたがこれを「マクロの記録」機能で解決しようとしているなら、少しだけ立ち止まってほしいのです。マクロの記録は「あなたの動き」を記録しますが、プログラミングは「あなたの意図（ロジック）」を記述するものだからです。
今日は、マスターとなるテンプレートから、新しいドキュメントの全ページへ「レイヤー構成」と「ガイド線」を完璧に同期させる、一歩進んだVBAの世界へご案内します。
1. なぜ「マクロの記録」では足りないのか？
「マクロの記録」は、非常に便利なツールです。しかし、実務で使うには決定的な弱点があります。それは「変化に弱い」ということです。
例えば、マクロの記録でレイヤーを作ると、コードには必ず `Layers(“Layer 1”)` のように、その時の名前が直接書き込まれます。もし、テンプレートのレイヤー名が変わったり、ページ数が変わったりした瞬間、そのマクロはエラーを吐いて止まってしまいます。
私たちが目指すのは、「構造を読み取り、同じ構造を再構築する」という、柔軟なプログラムです。
2. 実装の設計図（アルゴリズム）
今回のミッションは、「マスター（雛形）」の構造を「ターゲット（複製先）」へ移植することです。以下のステップで思考を組み立てます。
1. 準備: 画面の更新を止める（これ、プロの鉄則です。高速化のために必須です）。
2. レイヤーの同期:
- マスターの全レイヤーを順番にスキャンする。
- ターゲットの各ページに、同じ名前・同じ設定のレイヤーを作成する。
3. ガイド線の同期:
- マスターの各ページにあるガイド線の座標（X, Y）を取得する。
- ターゲットの各ページに、同じ座標にガイド線を引く。
4. 後片付け: 画面の更新を再開し、完了を伝える。
3. 極限の同期スクリプト
さあ、実際に動くコードを見てみましょう。初心者の方でも読みやすいよう、丁寧にコメントを添えました。
' ======================================================================
' テーマ: マスターレイヤー構成およびガイド線の完全同期スクリプト
' 作成者: あなたの頼れるシニアエンジニア
' 概要: アクティブなドキュメント（マスター）から、別のドキュメント
' （ターゲット）の全ページへ、構造をコピーします。
' ======================================================================
Sub SynchronizeTemplateStructure()
Dim srcDoc As Document ' マスター（コピー元）
Dim tgtDoc As Document ' ターゲット（コピー先）
Dim srcPage As Page ' マスターのページ
Dim tgtPage As Page ' ターゲットのページ
Dim srcLayer As Layer ' マスターのレイヤー
Dim tgtLayer As Layer ' ターゲットのレイヤー
Dim guide As Guide ' マスターのガイド線
' --- 1. 前準備 ---
Set srcDoc = ActiveDocument ' 今開いているドキュメントをマスターとする
' ターゲットとなるドキュメントを選択（ここでは、別のドキュメントが開いている前提）
' 実務では、特定のファイル名を指定する方法もありますが、まずはシンプルに。
' もしターゲットがなければ終了します。
If Documents.Count < 2 Then
MsgBox "コピー元のドキュメントと、コピー先のドキュメントの両方を開いてください。", vbExclamation
Exit Sub
End If
Set tgtDoc = Documents(2) ' 2番目に開いているドキュメントをターゲットとする
' パフォーマンス向上のため、画面更新を停止（これ重要！）
Optimization = True
EventsEnabled = False
On Error GoTo ErrorHandler ' エラーが発生した時のための保険
' --- 2. メインループ（ターゲットの全ページに対して実行） ---
For Each tgtPage In tgtDoc.Pages
' まず、ターゲットページの既存レイヤーを一旦クリアしたい場合はここに処理を書きますが、
' 今回は「追加・同期」にフォーカスします。
' マスターの各ページから構造を読み取る（ここではマスターの1ページ目を基準にします）
Set srcPage = srcDoc.Pages(1)
' --- 2-1. レイヤーの同期 ---
For Each srcLayer In srcPage.Layers
' 既に同じ名前のレイヤーがあればスキップ、なければ作成
If Not tgtPage.Layers.FindLayers(srcLayer.Name) Is Nothing Then
Set tgtLayer = tgtPage.Layers(srcLayer.Name)
Else
Set tgtLayer = tgtPage.Layers.Create(srcLayer.Name)
End If
' 可視性やロック状態を同期（ここがプロのこだわり）
tgtLayer.Visible = srcLayer.Visible
tgtLayer.Locked = srcLayer.Locked
Next srcLayer
' --- 2-2. ガイド線の同期 ---
' ターゲットのガイドを一旦リセット（既存のガイドと混ざらないようにするため）
' tgtPage.Guides.Clear ' 必要に応じてコメントアウトを解除
For Each guide In srcPage.Guides
' マスターのガイドと同じ位置に、ターゲットのページへガイドを作成
' guide.Position は座標情報を持っています
tgtPage.Guides.Add guide.Position
Next guide
Next tgtPage
' --- 3. 終了処理 ---
Optimization = False
EventsEnabled = True
Application.Refresh
MsgBox "同期が完了しました！素晴らしい仕事です。", vbInformation
Exit Sub
ErrorHandler:
' エラーが起きたら、必ず画面更新を元に戻すこと
Optimization = False
EventsEnabled = True
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub4. ここが重要！エンジニアの視点
このコードをただコピペするだけでなく、以下の3つの「知見」を心に刻んでください。これこそが、マクロ記録から脱却するためのエッセンスです。
① `Optimization = True` の重み
CorelDRAWは、プログラムから操作されるたびに「画面を描き直そう」とします。100個のレイヤーを作れば、100回画面を書き直す……これでは時間がかかりすぎて、PCがフリーズしたようになります。`Optimization = True` は、「作業が終わるまで、黙って見ていてくれ」とCorelDRAWに命令する魔法の言葉です。
② オブジェクト変数（`Set`）の活用
`srcLayer` や `tgtLayer` といった変数を使っていますね。これは、特定のオブジェクト（レイヤーやページ）に「名前」をつけて、後で何度でも呼び出せるようにするためです。
`ActiveLayer` のような「今選んでいるもの」に頼るコードは、ユーザーが誤って何かをクリックした瞬間に崩壊します。「対象を特定して、変数に格納する」。これが堅牢なコードの第一歩です。
③ エラーハンドリング（`On Error GoTo`）
プロのコードには、必ず「失敗した時の逃げ道」があります。もし途中でエラーが起きてプログラムが強制終了すると、`Optimization` が `True`（画面更新停止）のままになってしまい、CorelDRAWの画面が真っ白なまま動かなくなることがあります。
「エラーが起きても、必ず設定を元に戻して終了する」。この配慮が、道具を使いこなすプロの証です。
5. さあ、次のステップへ
今回のスクリプトは、「マスターの1ページ目」を基準に全ページへ展開する仕組みにしています。これを応用すれば、「特定の色のレイヤーだけコピーする」「ガイド線の色も同期する」といったカスタマイズも自由自在です。
最初は難しく感じるかもしれません。でも、大丈夫。
「何がしたいのか」を日本語で書き出し、それを少しずつコードに翻訳していく。その繰り返しが、あなたを「単なるユーザー」から「自動化のアーキテクト」へと変えていきます。
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。
応援しています。また次の技術解説でお会いしましょう！
