【入門編】【イベント連携】ページが新たに追加された瞬間に自動でデフォルトガイド線を引くDocument_PageCreateイベントの活用 – CorelDRAW VBA解析バイブル

CorelDRAW VBA

2026.10.18

CorelDRAW VBAの「神」になる：ページ追加と同時にガイド線を自動生成するイベント駆動術

こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロの記録」ボタンを押して、生成されたコードを眺めて満足する段階はもう卒業しましょう。

今回は、CorelDRAW VBAにおいて最も強力な武器の一つである「イベントドリブン（イベント駆動）」を解説します。特に、「ページが追加された瞬間に、自動でガイド線を引く」という処理を実装します。

これができるようになると、あなたの作業効率は劇的に向上し、「手作業によるガイド線のズレ」という概念がこの世から消滅します。

—

通常、マクロは「ボタンを押して実行」するものだと思われがちです。しかし、プロの現場では「システムが勝手にやってくれる」状態を目指します。

`Document_PageCreate` イベントを使うことで、ユーザーが「＋」ボタンを押した瞬間に、CorelDRAW自身が「おっと、新しいページができたな。よし、ガイド線を引いておこう」と自律的に判断して動くようになります。

CorelDRAWのVBAには、特定のタイミングで自動発火する「イベント」が用意されています。これらを記述するのは、標準モジュールではなく、`GlobalMacros`（または `ThisDocument`）です。

1. CorelDRAWで `Alt + F11` を押してVBAエディタを開く。
2. 左側のプロジェクトウィンドウで `ThisDocument` をダブルクリック。
3. 上部のドロップダウンメニューから、左側で `Document`、右側で `PageCreate` を選択。

これで、自動的にコードの雛形が生成されます。

以下のコードを `ThisDocument` モジュールに貼り付けてください。

‘ ページが追加された瞬間に実行されるイベント
Private Sub Document_PageCreate(ByVal Page As Page)
‘ エラーハンドリング：予期せぬ挙動を防ぐための基本の防御
On Error GoTo ErrorHandler

‘ 描画の更新を一時停止して処理速度を向上させる（プロの定石）
Optimization = True

‘ ガイド線を追加する処理
‘ ここではページ中央に十字のガイドを引く例
With Page
‘ 水平ガイド（Y座標）
.GuideLines.Add .SizeHeight / 2

‘ 垂直ガイド（X座標）
.GuideLines.Add .SizeWidth / 2
End With

‘ 処理終了後に描画を更新
Optimization = False
ActiveWindow.Refresh

Exit Sub

ErrorHandler:
MsgBox “ガイド線の自動配置に失敗しました：” & Err.Description
Optimization = False
End Sub

`Optimization = True`: これが最も重要です。CorelDRAWは処理のたびに画面を再描画しようとします。これをオフにすることで、処理速度が体感で数倍変わります。
`Page` 引数: `Document_PageCreate` は、新しく生成されたページオブジェクトそのものを引数として受け取ります。`ActivePage` を使うよりも、この引数を使うほうが「今、まさに生まれたページ」を正確に制御できるため、バグが激減します。
`On Error GoTo`: 自動化処理は、予期せぬタイミング（例：ページを削除した直後など）で動くことがあります。エラーハンドリングがないとCorelDRAWごと強制終了することがあるため、これは「保険」ではなく「必須」です。

—

マクロがセキュリティ設定でブロックされている: [ツール] > [オプション] > [VBA] でマクロを有効にする設定を確認してください。
`ThisDocument` 以外に書いている: イベントプロシージャは、標準モジュール（Module1など）に書いても反応しません。必ず `ThisDocument` に書くのが鉄則です。

このコードは「ページが追加されるたびに」実行されます。もし特定のレイヤーにガイドをまとめたい場合は、以下のようにレイヤー名を指定してクリアする処理を冒頭に入れると、より洗練されます。

‘ ガイド用レイヤーがあれば一旦クリアする等の応用
Dim guideLayer As Layer
Set guideLayer = Page.Layers.Find(“Guides”)
If Not guideLayer Is Nothing Then guideLayer.Delete

—

今回解説した `Document_PageCreate` は、単なるガイド線の配置だけでなく、「ページ追加時のテンプレート自動適用」や「特定レイヤー名の強制命名」など、プロジェクトの標準化に大きく貢献します。

「マクロの記録」で生成された命令をただ並べるだけの段階は卒業です。オブジェクトのライフサイクルを理解し、CorelDRAWに「何をすべきか」を教え込む。それこそが、世界最高峰の自動化エンジニアへの第一歩です。

次は、どのイベントを掌握しますか？ `SelectionChange` で選択したオブジェクトの情報をリアルタイムに表示させるのも面白いですよ。

何か詰まったら、いつでも戻ってきてください。応援しています。