【CorelDRAW VBA】ActiveDocumentの幻想を捨てろ：複数ウィンドウ環境下での絶対的なオブジェクト参照術
CorelDRAWの自動化において、初心者が最初に躓く罠であり、中級者が最も痛い目を見るのが「`ActiveDocument`と`ActivePage`の不確実性」だ。
「現在アクティブなドキュメントを操作する」というコードは、単一のドキュメントしか開いていない開発環境では完璧に動作する。しかし、システムが複雑化し、複数のCDRファイルが同時に開き、ユーザーがウィンドウを切り替えた瞬間にそのコードは「地雷」と化す。
今日は、CorelDRAWのオブジェクトモデルの深淵に触れ、`Active`という甘美な罠から脱却するための、堅牢なアーキテクチャについて語ろう。
—
1. なぜ `ActiveDocument` を使ってはいけないのか
CorelDRAWのVBA環境において、`ActiveDocument`や`ActivePage`は、実行時の「UIの状態」に強く依存する。Windows APIレベルで見れば、これらは常にその瞬間にフォーカスを持っているウィンドウのグローバルポインタを参照しているに過ぎない。
もしコードの実行中にユーザーが別のCDRファイルをクリックしたら？ あるいは、バックグラウンドで処理が走りながら別のドキュメントがアクティブになったら？ 参照先が勝手に切り替わる。 これはバグではなく、CorelDRAWの仕様だ。
真のエンジニアは、動的な状態に依存せず、「操作対象を生成した瞬間にそのオブジェクトを握り続ける」というアプローチを取る。
—
2. 確実なオブジェクト参照の実践：Documentオブジェクトの明示
プロフェッショナルな自動化においては、`ActiveDocument`を呼び出すのは「起点」のみにする。そこから先は、必ず参照を保持した変数経由でアクセスする。
推奨される実装パターン
‘ —————————————————————————
‘ 複数のドキュメントが存在しても、特定のターゲットを見失わないための参照保持
‘ —————————————————————————
Public Sub SafeDocumentProcessing()
Dim doc As Document
Dim pg As Page
‘ プロセスの起点としてのみActiveDocumentを使用
Set doc = Application.ActiveDocument
‘ ここからは絶対にActiveDocumentを使わない！
‘ doc変数に保持されたオブジェクトを介して操作する
Set pg = doc.ActivePage
‘ 処理内容…
Debug.Print “現在操作中のファイル名: ” & doc.FileName
‘ オブジェクトの解放（メモリ管理の基本）
Set pg = Nothing
Set doc = Nothing
End Sub
—
3. 複数ウィンドウ環境での「ページ・ガイド」自動配置の罠
複数のページやドキュメントを横断するガイド線の配置は、`ActivePage`に依存すると致命的なズレを生む。特にガイド線はページ固有のプロパティであるため、ドキュメントの切り替わりは即座にガイドの消失（あるいは誤配置）を招く。
ガイド線自動配置の堅牢な実装
レイヤーの制御とガイド配置を組み合わせる際、`Layer`オブジェクトを明示的に取得せよ。
Public Sub PlaceGuidedLine(ByVal targetPage As Page, ByVal posX As Double)
‘ ページからガイドレイヤーを取得または明示的に生成
Dim guideLayer As Layer
Set guideLayer = targetPage.GuidesLayer
‘ ガイド線の配置（座標はCorelDRAWの内部単位であるインチ/mmに注意）
Dim gl As Guide
Set gl = guideLayer.CreateGuide(posX, 0)
‘ 属性の制御
gl.Locked = True
‘ メモリリークを防ぐための解放
Set gl = Nothing
Set guideLayer = Nothing
End Sub
—
4. シニアエンジニアが知るべき「メモリとライフサイクル」
VBAの`Nothing`は、単なる気休めではない。CorelDRAWのオブジェクトは内部的にCOMポインタを保持している。特に`Layer`や`ShapeRange`をループ処理で大量に生成する場合、`Nothing`による明示的解放を行わないと、長時間稼働する社内システムではメモリリークが蓄積する。
- 循環参照を避ける: `Shape`オブジェクトをコレクションに格納し、そのコレクションをグローバル変数にするような設計は避けよ。
- Window APIの活用: 本当にアクティブなウィンドウを厳密に制御する必要があるなら、`User32.dll`の`GetForegroundWindow`を呼び出し、CorelDRAWのプロセスIDと照合するレベルの精査が必要になることもある。だが、まずは上記の「参照保持」を徹底するだけで、バグの9割は消滅する。
—
結びに：自動化の真髄
「コードが動くこと」と「コードが壊れないこと」の間には、深くて暗い川が流れている。
`ActiveDocument`に頼り切ったコードを書くのは、砂の上に城を建てるようなものだ。
あなたが構築するシステムが、1年後も、10年後も、誰の手も借りずに安定して動作し続けることを願っている。オブジェクトを愛し、そのライフサイクルを管理せよ。そうすれば、CorelDRAWはあなたの忠実な下僕となるだろう。
—
本稿が、現場で戦うエンジニア諸君の「予期せぬエラー」を一つでも減らす助けとなれば幸いである。
