マクロの記録から「システム」へ。Document_PageChangeでCorelDRAWを自動制御する極限の技術
こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロの記録」ボタンを押して、生成されたコードを眺めて「ふーん、こうやって動くんだ」と思ったことはありませんか？ もしあなたが今、その段階にいるのなら、おめでとうございます。あなたは今、自動化の入り口に立っています。
しかし、真にユーザーの作業を劇的に変える「エンジニア」への道は、その先にあります。
今日、私たちが挑戦するのは「イベント駆動型プログラミング」です。
ボタンを押して動かすのではなく、「ユーザーがページを切り替えた」という動作そのものを検知し、CorelDRAWが自律的に動き出す仕組みを作ります。
「ページが変わった瞬間に、そのページのレイヤー構成を解析してステータスバーに表示する」。
一見シンプルですが、ここにはVBAのオブジェクトモデルと、イベント制御の極意が詰まっています。準備はいいですか？ 一緒に一歩ずつ進んでいきましょう。
1. なぜ「イベント」が必要なのか？
一般的なマクロは、あなたが「実行」ボタンを押した時にだけ動きます。これを「プル型（Pull）」と呼びます。
一方で、今回作る仕組みは「プッシュ型（Push）」です。CorelDRAW側から「ページが変わったよ！」という通知（イベント）が飛んできて、それをVBAが待ち構えて捕まえるのです。
これができるようになると、以下のような高度なツールが作れるようになります。
- 特定のレイヤーが非表示になった瞬間に警告を出す。
- ページを切り替えるたびに、そのページ専用のガイド線を自動配置する。
- カスタムUI（ユーザーフォーム）の表示内容を、現在のページに合わせてリアルタイムに書き換える。
まさに、CorelDRAWの中に「自分専用のインテリジェントな秘書」を住まわせるような感覚です。
2. 実装の設計図：クラスモジュールという「器」
VBAでイベントを扱うには、一つ大きな壁があります。それは、「イベントを待ち構えるための専用の器（クラスモジュール）」が必要だということです。
普通のモジュール（標準モジュール）は、命令を実行するための場所ですが、イベントを監視する能力は持っていません。そこで、「イベントを監視する能力を持った専用のクラス」を作成します。
ステップ1：クラスモジュールの作成
まず、VBAエディタのメニューから `挿入` -> `クラスモジュール` を選択してください。
作成されたクラスの名前を、プロパティウィンドウで `clsAppEventHandler` に変更してください。
以下のコードを、そのクラスの中に貼り付けます。
' ============================================================
' クラス名: clsAppEventHandler
' 役割: CorelDRAWのアプリケーションイベントを監視する
' ============================================================
Option Explicit
' WithEvents を使うことで、Applicationオブジェクトのイベントを「捕まえ」られるようになります
' これが、プロへの分かれ道となる魔法のキーワードです
Private WithEvents App As Application
' クラスを初期化するメソッド
' 監視を開始するために、Applicationオブジェクトをこのクラスに渡します
Public Sub Initialize(ByRef targetApp As Application)
Set App = targetApp
End Sub
' ------------------------------------------------------------
' Document_PageChange イベント
' ページが切り替わった瞬間に、CorelDRAWから自動的に呼び出されます
' ------------------------------------------------------------
Private Sub App_DocumentPageChange(ByVal Doc As Document)
On Error GoTo ErrorHandler
Dim curPage As Page
Dim lyr As Layer
Dim layerInfo As String
' 現在のページを特定
Set curPage = Doc.ActivePage
' ユーザーへのフィードバック：処理中であることを示す
' (大規模な処理を行う場合は、ここで描画更新を止めるなどの最適化が必要です)
layerInfo = "Page: " & curPage.Index & " | Layers: "
' ページの全レイヤーを走査して解析
' ここで、レイヤーの名前や表示状態（Visible）をチェックします
For Each lyr In curPage.Layers
If lyr.Visible Then
layerInfo = layerInfo & "[" & lyr.Name & "] "
Else
layerInfo = layerInfo & "(" & lyr.Name & ") " ' 非表示はカッコで表現
End If
Next lyr
' 解析結果をCorelDRAWのステータスバー（画面左下）に表示
' これにより、ユーザーは操作を邪魔されることなく情報を得られます
Application.StatusBar = layerInfo
Exit Sub
ErrorHandler:
' エラーが発生しても、CorelDRAWが止まらないように優しく処理します
Application.StatusBar = "Error in PageChange Event: " & Err.Description
End Subここが「プロの知見」：`WithEvents` の意味
`Private WithEvents App As Application` という一文。これがこのコードの心臓部です。
通常の変数宣言とは違い、`WithEvents` を付けることで、その変数は「何かが起きたら教えてね」という待機状態に入ります。これこそが、受動的なマクロを能動的なシステムへと進化させる鍵です。
3. 実行のスイッチ：標準モジュール
クラスを作っただけでは、まだ誰もその「監視役」を雇っていません。
次に、監視役を起動するための「スイッチ」となる標準モジュールを作成しましょう。
ステップ2：標準モジュールの作成
`挿入` -> `標準モジュール` を選択し、以下のコードを記述します。
' ============================================================
' 標準モジュール
' 役割: イベント監視の開始と終了を管理する
' ============================================================
Option Explicit
' 監視役（クラスのインスタンス）を、プログラムが終了するまで保持するために
' モジュールレベル変数として宣言します。
' ここで Dim してしまうと、プロシージャが終わった瞬間に監視役が消滅してしまいます！
Private EventHandler As clsAppEventHandler
' ------------------------------------------------------------
' 監視を開始するメインプロシージャ
' ------------------------------------------------------------
Sub StartMonitoring()
' すでに動いている場合は、二重起動を防ぐために一度リセット
StopMonitoring
' クラスのインスタンスを生成
Set EventHandler = New clsAppEventHandler
' クラスに現在のApplicationを渡し、監視を開始させる
EventHandler.Initialize Application
MsgBox "ページ切り替えの監視を開始しました。" & vbCrLf & _
"ページを切り替えて、画面左下のステータスバーを見てみてください。", vbInformation
End Sub
' ------------------------------------------------------------
' 監視を停止するプロシージャ
' ------------------------------------------------------------
Sub StopMonitoring()
' インスタンスを破棄することで、イベントのフックを解除します
Set EventHandler = Nothing
Application.StatusBar = "Monitoring stopped."
End Sub4. 実際に動かしてみよう！
さあ、テストの時間です。
1. CorelDRAWで適当なドキュメントを開いてください。
2. いくつかのページを作成し、それぞれのページでレイヤーの名前を変えたり、表示/非表示を切り替えたりしておいてください。
3. VBAエディタに戻り、`StartMonitoring` マクロを実行します。
4. CorelDRAWの画面に戻り、ページをカチカチと切り替えてみてください。
見てください！ 画面の左下（ステータスバー）に、現在のページのレイヤー構成がリアルタイムに表示されているはずです。
5. 陥りやすい罠：エンジニアが教える「トラブルシューティング」
この高度な技術を使う上で、初心者が必ずと言っていいほど陥るポイントが2つあります。
① 「監視が止まってしまった！」問題
もし、マクロの実行中にエラーが発生してコードが止まってしまうと、作成した `EventHandler`（監視役）はメモリから消えてしまいます。すると、ページを切り替えても何も起きなくなります。
対策: `StopMonitoring` を一度実行してから、再度 `StartMonitoring` を動かす癖をつけましょう。
② 「動作が重くなった……」問題
今回のように、レイヤーを数個ループさせる程度なら問題ありません。しかし、もしページ切り替えの瞬間に「全オブジェクトの座標を計算して、複雑な描画を行う」といった重い処理を書き込んでしまうと、ページを切り替えるたびにCorelDRAWがフリーズしたようになります。
対策:
- イベント内では「解析」や「情報の表示」に留め、重い処理は別のタイミングで行う。
- `Application.Optimization = True` を活用して、描画更新を一時的に停止する（今回は単純な表示なので不要ですが、実戦では必須です）。
最後に：君はもう、単なる「記録係」ではない
お疲れ様でした。
今日、あなたは「ユーザーの操作に呼応するシステム」の作り方を学びました。
マクロの記録は「過去の自分の動き」を再現するものですが、イベント駆動は「未来のユーザーの動き」を予測して準備するもの。この考え方の転換こそが、プログラミングにおける最大の飛躍です。
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。
次は、このイベントをトリガーにして、ガイド線を自動で引いたり、特定のレイヤーの色を自動で変えたりすることに挑戦してみてください。
その先には、もっと広く、自由な自動化の世界が待っています。
応援していますよ！
