【CorelDRAW VBA道場】ファイルを開いた瞬間に「型」を整える。イベント駆動型ガイドライン自動構築術
こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロの記録」ボタンを押して操作をなぞるだけの段階を卒業しようとしているあなたへ。今日は、CorelDRAW VBAの真髄である「イベントハンドリング」の世界をご案内します。
現場で最も無駄な時間。それは「ファイルを開くたびに、ガイド線を引いて、レイヤーを整理して…」というルーチンワークです。これをファイルを開いた瞬間に自動化できたらどうでしょう？
今日は、`Application_DocumentOpen` イベントを使い、ドキュメントのライフサイクルに介入する「プロの設計」を伝授します。
—
1. なぜ「イベントハンドリング」なのか？
通常のVBAは、ユーザーがボタンを押してマクロを実行しますが、これでは「忘れる」というヒューマンエラーが必ず発生します。
イベントハンドリングとは、CorelDRAWが特定の操作（ファイルを開く、保存する、ページを追加するなど）を検知したタイミングで、プログラムが自律的に動く仕組みのこと。これを使えば、作業者が意識することなく「社内標準の環境」が構築されます。
—
2. 準備：クラスモジュールの魔法
CorelDRAWのイベントを捕捉するには、標準モジュールではなく「クラスモジュール」が必要です。まずはここを突破しましょう。
手順
1. VBAエディタ（Alt + F11）を開きます。
2. 「挿入」→「クラスモジュール」を選択。
3. プロパティウィンドウで名前を `AppEvents` に変更します。
このクラスが、CorelDRAW本体の「耳」となって、ドキュメントのオープンを待ち構えるわけです。
—
3. 実践：ガイド線自動構築コード
以下のコードを、先ほど作成したクラスモジュール `AppEvents` に記述してください。
‘ クラスモジュール: AppEvents
‘ CorelDRAWのApplicationオブジェクトをイベント対応で保持する
Public WithEvents App As CorelApplication
‘ ファイルが開かれた瞬間に発火するイベント
Private Sub App_DocumentOpen(ByVal Doc As Document, ByVal FileName As String)
On Error Resume Next ‘ 万が一のエラーで作業を止めない
‘ ガイド線構築のメインロジックを呼び出し
Call SetupStandardGuides(Doc)
‘ 成功したら通知（煩わしければコメントアウト）
Debug.Print “ガイドラインの自動構築が完了しました: ” & FileName
End Sub
‘ — 以下、ガイド線構築の本体処理 —
Private Sub SetupStandardGuides(ByRef doc As Document)
Dim g As Guideline
‘ ページ設定をインチからミリに統一する（環境依存を防ぐ鉄則）
doc.Unit = cdrMillimeter
‘ すでにガイドがある場合の重複防止（既存ガイドをクリア）
For Each g In doc.MasterPage.Guides
g.Delete
Next g
‘ 用紙の上下左右に10mmのマージンガイドを引く
With doc.ActivePage
‘ 左ガイド
doc.MasterPage.CreateGuideline 10, 0, 10, .SizeHeight
‘ 右ガイド
doc.MasterPage.CreateGuideline .SizeWidth – 10, 0, .SizeWidth – 10, .SizeHeight
End With
doc.Dirty = False ‘ 自動保存のトリガーを防ぐ
End Sub
—
4. 仕上げ：イベントの「結線」
クラスを作っただけでは動きません。CorelDRAW起動時に「このクラスを監視役に任命する」という儀式が必要です。
`GlobalMacros` などの標準モジュールに、以下のコードを記述してください。
‘ 標準モジュール: Module1
Dim MyEvents As AppEvents
‘ CorelDRAW起動時に自動実行されるプロシージャ
Public Sub GlobalMacroStorage_Open()
Set MyEvents = New AppEvents
Set MyEvents.App = Application
End Sub
これで、CorelDRAWを起動するたびに `MyEvents` がメモリ上に常駐し、ファイルオープンを監視し続けます。
—
5. 現場で陥りやすい罠と解決策
プロとして、この自動化を運用する際に必ず覚えておいてほしい点が3つあります。
1. `On Error Resume Next` の功罪
複雑なドキュメントでは、ガイドが作成できない例外ケース（ロックされたレイヤー等）が発生します。強制終了させないための防御策ですが、使いすぎると問題の特定が困難になります。開発中はコメントアウトしてデバッグしましょう。
2. パフォーマンスの重み
`DocumentOpen` は頻繁に走るイベントです。あまりに重い処理を記述すると、ファイルを開く時間が数秒遅れます。ガイド線程度なら良いですが、複雑な図形描画を伴う場合は注意が必要です。
3. `doc.Dirty = False` の重要性
ガイド線を引くという行為は「ドキュメントを変更した」とみなされ、保存していないのに「保存しますか？」とダイアログが出ることがあります。これを防ぐために、処理の最後に `doc.Dirty = False` を入れるのが、ユーザーへの優しさです。
—
最後に：自動化の先にあるもの
「ガイド線を引く」という小さな自動化ですが、これを突き詰めれば「レイヤー構成の強制」「色見本の自動配置」「出力用プリセットの自動読み込み」まで、あなたのCorelDRAW環境は完全に「あなたの意図した通り」に動くようになります。
ここをクリアすれば、あなたはもうただのオペレーターではありません。「CorelDRAWの環境設計者」です。
何かコードの実装で詰まったら、いつでも質問してください。共に最高峰の自動化環境を築き上げましょう。応援しています！
