CorelDRAW VBAを掌握する極限の知見
【第1回】新規ドキュメント自動初期化：定規・スナップ制御のアーキテクチャ
CorelDRAWを用いた定型業務、あるいは厳格な社内レギュレーションを伴うベクターアセットの量産において、開発者が直面する最初の壁は「ドキュメント生成直後の環境差異」である。
UI上から手動で定規の原点を設定し、グリッドを表示させ、スナップ機能を有効化する。この数秒のオペレーションは、一日のうちに何百回とドキュメントを生成する自動化パイプラインや、厳密な座標管理が求められる現場においては、排除すべき最大の無駄（ムダ）であり、ヒューマンエラーの温床となる。
今回は、CorelDRAWのオブジェクトライフサイクルとイベントハンドリングの深淵に踏み込み、「新規ドキュメントが開かれたその瞬間」に、カスタム定規とスナップ機能を完全自動で有効化するチート級の実用マクロを解説する。
—
1. CorelDRAWオブジェクトモデルの罠と設計思想
多くのVBAプログラマが犯す最初の過ちは、`ActiveDocument` に対する盲目的な信頼である。
CorelDRAW VBAにおいて、アプリケーション層、ドキュメント層、そしてページ層のインスタンスは、常に非同期かつ動的に状態が変化する。特に新規ドキュメント作成時（`CreateDocument`）のイベントフックにおいて、メモリ上にドキュメントオブジェクトが完全に構築される前にプロパティを叩いた場合、ランタイムエラー（Error 91: オブジェクト変数または With ブロック変数が設定されていません）が誘発される。
シニアエンジニアとして、我々はこの「生成の揺らぎ」をコードで調停しなければならない。
意図した状態を強制するアーキテクチャ要件
1. 厳密な単位系の固定: ベクター精度を担保するため、ドキュメント生成と同時に単位をミリメートル（またはピクセル）へ強制固定する。
2. 定規原点（Ruler Origin）の絶対配置: ページ左下ではなく、DTP標準の左上、あるいは任意のCAD座標系へ一撃でシフトする。
3. スナップエンジンのハードアクティベーション: グリッドスナップ、ガイドスナップ、オブジェクトスナップの各フラグをビット演算的に一括制御する。
—
2. 実装コード：`AutoInitDocument.gms`
以下のコードは、CorelDRAWのグローバルマクロストレージ（GMS）に配置し、新規ドキュメント作成イベント、または手動実行の双方に対応する堅牢なプロシージャである。オブジェクトのメモリリークを防ぐため、参照の解放（`Set … = Nothing`）を徹底している。
Option Explicit
‘ ==============================================================================
‘ Module: ModDocumentInitializer
‘ Description: 新規ドキュメント生成時の環境自動構築とスナップ強制有効化
‘ Author: Chief Architect (CorelDRAW VBA Automation Division)
‘ ==============================================================================
Public Sub InitializeNewDocument()
Dim doc As Document
Dim opt As CorelDRAW.StructSaveOptions
‘ 1. エラーハンドリングの要塞化
On Error GoTo ErrorHandler
‘ アクティブドキュメントの存在確認
If ActiveDocument Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “初期化マクロエラー”
Exit Sub
End If
Set doc = ActiveDocument
‘ 2. 単位系をミリメートル（cdrMillimeter = 2）に強制固定
‘ ※環境依存を防ぐため、ドキュメントスコープで明示的に定義
doc.Unit = cdrMillimeter
‘ 3. ページ設定と定規原点（Ruler Origin）の調整
‘ デフォルトの左下原点から、DTP標準のレイアウト原点へシフト
‘ 引数: X座標, Y座標 (ミリメートル単位)
doc.RulerOrigin 0, 0
‘ 4. スナップ機能のハードアクティベーション
‘ CorelDRAWのグローバルスナップ設定を直接書き換える
With doc.Holder
‘ オブジェクトへのスナップを有効化
ActivePage.SnapToObjects = True
‘ ガイド線へのスナップを有効化
ActivePage.SnapToGuidelines = True
‘ グリッドへのスナップを有効化
ActivePage.SnapToGrid = True
End With
‘ グリッド間隔の設定（例: 10mmグリッド、サブディビジョン 2）
With ActivePage.Grid
.Frequency = 10 ‘ 10mmごとにグリッド
.ShowGrid = True
End With
‘ 5. ビューの再描画を最適化（パフォーマンス向上）
Application.Refresh
‘ ログ出力（システム連携用）
Debug.Print “[INFO] Document initialized successfully: ” & doc.Name
‘ オブジェクトの明示的解放（メモリ最適化）
Set doc = Nothing
Exit Sub
ErrorHandler:
‘ 異常系処理：メモリリークを防ぎつつエラーをハンドリング
MsgBox “ドキュメントの初期化中に致命的なエラーが発生しました。” & vbCrLf & _
“Error Description: ” & Err.Description, vbCritical, “Critical Error”
If Not doc Is Nothing Then Set doc = Nothing
Resume Next
End Sub
‘ ==============================================================================
‘ Application-level Event Hook (ThisMacroStorage 内に実装推奨)
‘ ==============================================================================
‘ Private Sub Application_DocumentCreate(ByVal Doc As Document)
‘ ‘ 新規ドキュメント作成イベントをフックし、自動実行を担保する
‘ InitializeNewDocument
‘ End Sub
—
3. チーフアーキテクトが解説するコードの急所
① `doc.Unit` の明示的指定による暗黙の型変換バグの回避
CorelDRAWは、ユーザーのローカル環境や前回開いたドキュメントの単位（インチ、ポイント、ピクセルなど）を継承する仕様になっている。これを防がずに座標計算を行うVBAを書くことは、時限爆弾を抱えるようなものだ。`doc.Unit = cdrMillimeter` を先頭で実行することで、以降のすべての数値リテラルが意図した物理単位として処理されることを保証する。
② スナップエンジンのオブジェクト階層
`ActivePage.SnapToObjects` などのプロパティは、UI上のチェックボックス操作と同義であるが、VBAから叩くことで「設定漏れ」を物理的に根絶できる。特に量産環境においては、オペレーターがうっかりグリッドスナップをオフにしたまま作製したデータが上流工程に流れるリスクを、このコード一句で完全にブロックする。
③ メモリ管理と `Nothing` 代受けの哲学
VBAはCOMベースの言語であり、ガベージコレクションの挙動は完全ではない。特にCorelDRAWの巨大なドキュメントオブジェクト（`Document`）やページオブジェクトをローカル変数に格納したままプロシージャを抜けると、参照カウントが残存し、微小なメモリリーク（VRAMやGDIリソースの圧迫）を引き起こす。
エラー発生時も含め、必ず `Set doc = Nothing` を通るフローを構築することが、長期間稼働する自動化サーバー（Headless CorelDRAWインスタンス）における必須要件となる。
—
総括
今回紹介した初期化スクリプトは、単なる「手間の削減」にとどまらない。「CorelDRAWという巨大なベクターエンジンの挙動を、開発者の意図通りに完全に制御下に置く」ための第一歩である。
次回は、この仕組みをさらに拡張し、外部データベース（CSV/SQL Server）のメタデータと連動してカスタム定規とガイド線をミリ単位で自動生成する「エンタープライズ・プリプレス・パイプライン」の構築手法を解説する。
妥協なきコードを書け。システムは裏切らない。
