マクロ記録から「システム開発」へ。Document_PageChangeで実現する、ページ連動型ガイド線自動配置術
こんにちは。今日もCorelDRAWの海を、コードという羅針盤で航海していますか？
「マクロの記録」ボタンを押して、生成されたコードを眺めては、「もっとスマートに書けないものか……」と溜息をつく。そんな経験があるなら、あなたはすでに「単なるユーザー」を卒業し、「エンジニア」への入り口に立っています。
今日は、マクロ記録の限界を突破し、CorelDRAWを「ユーザーの動きを察知して動くインテリジェントな道具」へと進化させる、極めて実践的なテクニックをお伝えします。
テーマは、`Document_PageChange`イベントを活用した「動的ガイド線フィードバックシステム」の構築です。
1. なぜ「マクロ記録」では足りないのか？
マクロの記録は、いわば「ビデオ録画」です。あなたがボタンを押し、ガイド線を引く動作をそのまま記録します。しかし、ビデオは「再生」はできても、「状況の変化に応じて、自ら判断して動く」ことはできません。
例えば、以下のような要望を考えてみてください。
- 「1ページ目はA4だから、上下左右に10mmのガイドが欲しい」
- 「2ページ目は名刺サイズだから、中央に十字のガイドが欲しい」
マクロ記録で作ったコードでは、ページを切り替えた瞬間に、そのページに最適なガイドを自動で用意することは不可能です。
そこで必要になるのが、「イベント駆動型プログラミング（Event-Driven Programming）」という考え方です。これは、「ユーザーがページを切り替えた（イベントが発生した）」という信号を、プログラムがバックグラウンドで待ち構えて捕まえる手法です。
2. 核心となる技術：Document_PageChange
CorelDRAWのVBAには、ドキュメント内で起こる様々な出来事を検知する「イベント」が用意されています。その中でも今回主役となるのが、`Document_PageChange`です。
このイベントは、「今表示されているページが変わった瞬間」に、自動的に特定のコードを実行させることができます。
システムの設計図
私たちが作るシステムのロジックはこうなります。
1. 監視開始: CorelDRAWが開いている間、常に「ページ変更」を監視する。
2. イベント検知: ユーザーがページを切り替える。
3. 属性解析: 切り替わったページのサイズや名前をチェックする。
4. ガイド再配置: そのページに最適なガイド線を、古いガイドを消去した上で自動生成する。
3. 実装：プロフェッショナル・コード
ここからが本番です。
注意してほしいのは、イベントを扱うには「クラスモジュール」という仕組みを使う必要がある点です。標準モジュールに書くだけでは、プログラムは「待ち構える」ことができないからです。
以下の手順でコードを配置してください。
ステップ1：クラスモジュールの作成
VBAエディタのメニューから `挿入` -> `クラスモジュール` を選択し、プロパティウィンドウでオブジェクト名を `clsEventWatcher` に変更してください。
' --- クラスモジュール: clsEventWatcher ---
Option Explicit
' CorelDRAWのDocumentオブジェクトをイベントとして受け取るための宣言
Private WithEvents AppDoc As Document
' クラスを初期化する際に、監視対象のドキュメントをセットするメソッド
Public Sub Init(doc As Document)
Set AppDoc = doc
End Sub
' 【ここが心臓部】ページが切り替わった時に自動で実行されるイベント
Private Sub AppDoc_PageChange(ByVal Page As Page)
On Error Resume Next ' エラーによる停止を防ぐ（プロの作法）
' 画面の更新を一時停止（高速化とチラつき防止の鉄則）
Optimization = True
' 1. 現在のページのガイド線を一旦すべてクリアする
' ※既存のガイドを壊さないよう注意が必要ですが、今回は自動配置を優先します
Dim g As Guide
For Each g In Page.Guides
g.Delete
Next g
' 2. ページ属性に応じたガイド線のロジック
' ここでは、ページ名やサイズによって挙動を変える例を示します
Select Case Page.Name
Case "Page1" ' 1ページ目の場合
Call CreateMarginGuides(Page, 10) ' 10mmのマージン
Case "Page2" ' 2ページ目の場合
Call CreateCenterGuides(Page) ' 中央十字
Case Else
' それ以外のページは何もしない、あるいはデフォルト設定
End Select
' 画面更新を再開し、変更を反映させる
Optimization = False
ActiveWindow.Refresh
End Sub
' --- 補助的なルーチン（ガイド作成ロジック） ---
' マージン用のガイドを作成する関数
Private Sub CreateMarginGuides(p As Page, marginMm As Double)
Dim m As Double
m = Application.ConvertUnits(marginMm, cdrMillimeter, cdrMillimeter)
' 上下左右にガイドを配置
p.AddGuide cdrGuideHorizontal, p.SizeHeight - m
p.AddGuide cdrGuideHorizontal, m
p.AddGuide cdrGuideVertical, p.SizeWidth - m
p.AddGuide cdrGuideVertical, m
End Sub
' 中央十字のガイドを作成する関数
Private Sub CreateCenterGuides(p As Page)
p.AddGuide cdrGuideHorizontal, p.SizeHeight / 2
p.AddGuide cdrGuideVertical, p.SizeWidth / 2
End Subステップ2：標準モジュールの作成
次に、`挿入` -> `標準モジュール` を選択し、以下のコードを記述してください。これは、上記の「監視役（クラス）」を起動するためのスイッチになります。
' --- 標準モジュール ---
Option Explicit
' クラスのインスタンスを保持するための変数（これがないと監視がすぐに終了してしまう）
Dim myWatcher As clsEventWatcher
' マクロを実行してシステムを起動するメインルーチン
Sub StartGuidelineSystem()
' 監視役を生成
Set myWatcher = New clsEventWatcher
' 現在のドキュメントを監視対象としてセット
myWatcher.Init ActiveDocument
MsgBox "動的ガイドシステムを起動しました！" & vbCrLf & _
"ページを切り替えてみてください。", vbInformation
End Sub
' システムを停止する場合
Sub StopGuidelineSystem()
Set myWatcher = Nothing
MsgBox "システムを停止しました。", vbExclamation
End Sub4. エンジニアとしての視点：ここが「プロ」の分かれ道
このコードをただ動かすだけでなく、なぜこのように書いたのか、その「意図」を理解することが重要です。
① `Optimization = True` の重み
コードの中に `Optimization = True` という記述がありましたね。これは、CorelDRAWに対して「今、裏で大量の計算をしているから、画面の描画（再計算）を待っててくれ」と命令するものです。
これがないと、ガイドを一本引くたびに画面がパカパカと点滅し、動作も極端に重くなります。プロの自動化ツールにおいて、ユーザー体験（UX）を損なわないための必須テクニックです。
② `WithEvents` によるイベントハンドリング
標準モジュールでは「命令を実行して終わり」ですが、クラスモジュールで `WithEvents` を使うことで、プログラムは「待機状態（リスナー）」に入ります。これにより、ユーザーがマウスでページをカチカチと切り替える動作を、プログラムが「待ち伏せ」できるようになるのです。
③ オブジェクトのライフサイクル
標準モジュールの冒頭で `Dim myWatcher As clsEventWatcher` を宣言した理由。これは、プログラミングにおける「生存期間（スコープ）」の問題です。
もしこの変数を `StartGuidelineSystem` の中だけで宣言してしまうと、関数が終わった瞬間に監視役のオブジェクトがメモリから消滅（破棄）してしまいます。ドキュメントが開いている間ずっと監視させたいなら、モジュールレベル（関数の外）で保持しておく必要があるのです。
5. 陥りやすいエラーと対策
このシステムを運用する上で、初心者がハマりやすいポイントが2つあります。
1. 「マクロを動かしたのに反応しない！」
- 原因：`myWatcher` 変数が消えてしまっている可能性があります。必ずモジュールレベルで宣言されているか確認してください。
2. 「無限ループの恐怖」
- 原因：もし、`PageChange` イベントの中で「ページの設定を変更する」ようなコード（例：`Page.Name = “NewName”`）を書いてしまうと、ページ変更がまたイベントを呼び、無限にループしてCorelDRAWがフリーズします。
- 対策：イベント内では、「ページの属性（サイズやガイド）を変える」ことに留め、「ページそのものを操作・変更する」ことは避けるのが鉄則です。
最後に
いかがでしたでしょうか？
「マクロの記録」は、あなたの作業を記録するだけのビデオです。
しかし、今回学んだ「イベント駆動」の技術は、あなたの意図を汲み取り、先回りして動く「相棒」を作る技術です。
最初はクラスモジュールやイベントの概念は難しく感じるかもしれません。でも、一度これをマスターすれば、CorelDRAWの操作感は劇的に変わります。
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。
さあ、次はどんな「賢い道具」を作ってみますか？
Happy Coding!
