CorelDRAWを掌握せよ：GlobalMacroStorageによるイベントフックの極致
CorelDRAWの自動化において、多くのエンジニアが陥る罠がある。「ボタンを押してスクリプトを走らせる」という受動的な設計だ。真の自動化エンジニアは、CorelDRAWが呼吸するように、ドキュメントの開閉や新規作成といったイベントそのものをトリガーとしてシステムの制御権を奪取する。
今回は、CorelDRAW VBAの深淵、`GlobalMacroStorage`を用いた常駐型イニシャライザの構築術を伝授する。
—
1. GlobalMacroStorageの真実
CorelDRAWのイベントフックは、`GMS`（Global Macro Storage）モジュール内に特別な名前のクラスモジュールを配置することで実現される。重要なのは、VBAのIDE上のオブジェクト名ではなく、CorelDRAWのイベントエンジンがどのクラスを監視しているかという点だ。
構築の作法
1. クラスモジュールの作成: VBAプロジェクトに `ClassModule` を追加する。
2. イベントの定義: クラス内で `Public WithEvents app As Application` を宣言する。
3. 初期化のフック: `GlobalMacroStorage` モジュール（標準モジュール）で、このクラスを永続化する。
ここで注意してほしい。VBAのオブジェクトは参照が切れると即座にガベージコレクション（GC）の対象となる。`GlobalMacroStorage` の初期化処理でインスタンスを生成する際、グローバル変数として保持し続ける設計が必須だ。
—
2. 実装：ドキュメントオープン時の自動初期化
以下は、ドキュメントが開かれた瞬間に自動的にレイヤー構造をチェックし、標準化するプロトタイプのコードである。
ClassModule: `AppEventWrapper`
Option Explicit
‘ CorelDRAWの全ドキュメントイベントを捕捉する
Public WithEvents app As Application
Private Sub app_DocumentOpen(ByVal Doc As Document, ByVal FileName As String)
On Error Resume Next ‘ イベント内でのエラーはVBA全体をクラッシュさせる可能性がある
‘ ドキュメントの初期化処理
Call InitializeDocumentArchitecture(Doc)
‘ メモリ最適化：不要な参照を明示的に解放
Set Doc = Nothing
End Sub
Private Sub InitializeDocumentArchitecture(ByVal Doc As Document)
‘ 厳密なレイヤー制御や、システム間連携用のメタデータ埋め込みをここで行う
‘ 例: 特定のレイヤーが存在しなければ作成する
If Doc.Layers.Find(“Metadata”) Is Nothing Then
Doc.CreateLayer “Metadata”
End If
End Sub
Module: `GlobalMacroStorage`
Option Explicit
‘ 永続化のためのグローバル変数
Public AppEvents As AppEventWrapper
‘ CorelDRAW起動時に自動実行されるエントリポイント
Public Sub GlobalMacroStorage_Initialize()
Set AppEvents = New AppEventWrapper
Set AppEvents.app = Application
End Sub
—
3. レガシー環境とメモリ管理の深淵
Windows APIによる「生存確認」の壁
CorelDRAWのVBA環境は、往々にしてメモリリークに晒されている。特に複雑なドキュメントを連続で開閉する場合、オブジェクトの解放タイミングが重要になる。
もし、外部DLL（Win32 API）を呼び出してドキュメントのロック状況やOSレベルの通知を行う場合は、`Terminate`イベントだけでなく、`Class`のスコープを慎重に制御せよ。`Set AppEvents = Nothing` を不用意に呼べば、その瞬間からイベント監視は死ぬ。
パフォーマンスを殺さないために
- イベントの連鎖を避ける: `DocumentOpen` 内でドキュメントを保存（Save）するようなループ構造を作れば、CorelDRAWは無限ループの果てにハングする。
- エラーハンドリングの徹底: イベントプロシージャ内で発生した未定義エラーは、CorelDRAWそのものを巻き込んで終了する。必ず `On Error` を適切に配置し、スタックトレースをログに吐く設計にすること。
—
4. チーフアーキテクトからの助言
私がこれまで見てきた中で最も優れた自動化ツールは、「ユーザーに存在を感じさせない」ものだ。
`GlobalMacroStorage` を使えば、ユーザーがテンプレートを開いた瞬間、強制的にレイヤー設定を修正し、社内システムから抽出したメタデータをドキュメントプロパティに注入できる。これはもはや「マクロ」ではなく「ドキュメントのインフラストラクチャ」だ。
VBAは古い言語かもしれないが、CorelDRAWのAPIは今なお、設計の自由度という点で他の追随を許さない。このイベントフックの技術をマスターすれば、貴殿が管理する設計環境は、手動作業の呪縛から解放され、堅牢なシステムへと昇華されるはずだ。
次は、`DocumentBeforeClose` イベントを利用した、強制的なデータ整合性チェックの実装について掘り下げることになるだろう。準備はいいか？
