CorelDRAW VBAを掌握する極限の知見：イミディエイトウィンドウとDebug.Printの真髄
シニアエンジニアや社内ニッチシステムのアーキテクトであれば、CorelDRAWの内部で動くVBAが単なる「お絵描きマクロの自動記録」の延長ではないことを知っているはずだ。数万点のベクターオブジェクトを束ねるDTP自動化、外部基幹システム（ERP/PIM）との連携、そして厳密な色空間（CMYK/RGB）の制御において、バグの発生は生産ラインの停止を意味する。
特にCorelDRAWのCOM（Component Object Model）は、その独特なドキュメント・ライフサイクルとメモリ管理の仕様により、甘いコードを書けば容赦なくメモリリークや不正アクセス違反（Access Violation）を引き起こす。
今回は、その泥臭いデバッグの現場において最も信頼でき、かつ過小評価されている「イミディエイトウィンドウ」と「Debug.Print」の極限の活用術を解説する。単なる「変数の値を見るだけの機能」として使っているなら、今すぐその認識を改めよ。
—
1. なぜ「メッセージボックス（MsgBox）」のデバッグは悪なのか？
初学者が真っ先にやりがちなのが、`MsgBox`による値の確認だ。
‘ 絶対にやってはいけないアンチパターン
Dim sh As Shape
For Each sh In ActivePage.Shapes
MsgBox sh.Name ‘ 1万個のシェイプがあったら1万回クリックさせられるのか？
Next sh
CorelDRAW VBAにおいて、`MsgBox`はモーダルダイアログであり、描画スレッドおよびCOMイベントループを完全にブロックする。複雑なドキュメント構造の走査中にこれを実行すると、CorelDRAWのUIはフリーズし、最悪の場合、OSレベルでハングアップする。
さらに、`MsgBox`はオブジェクトの参照カウント（Reference Count）を一時的に変動させ、ガベージコレクションのタイミングを狂わせる原因にもなる。プロフェッショナルは、実行を止めずにログを流し込む。 それが `Debug.Print` である。
—
2. Debug.Print の基本と「出力の構造化」
`Debug.Print` で出力された文字列は、VBE（Visual Basic Editor）の「イミディエイトウィンドウ」（Ctrl + G）にリアルタイムで流し込まれる。CorelDRAWの動作を一切阻害せず、ミリ秒単位のロギングが可能だ。
だが、ただ変数を垂れ流すだけのコードでは、ログの海に溺れることになる。実務では、「何を・どのコンテキストで出力しているか」を構造化（Structured Logging）しなければならない。
以下のコードを見てほしい。選択中のオブジェクト群のプロパティを、構造化されたフォーマットでイミディエイトウィンドウに出力する実践的なスニペットだ。
Sub InspectSelectedShapes()
‘ —————————————————————–
‘ 目的: 選択中シェイプのメタデータを構造化してイミディエイトに出力する
‘ —————————————————————–
On Error GoTo ErrorHandler
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
If sr.Count = 0 {
Debug.Print “[WARN] ” & Now & ” – 選択されているオブジェクトはありません。”
Exit Sub
}
Debug.Print “========================================================”
Debug.Print “[INFO] ” & Now & ” – 選択オブジェクト数: ” & sr.Count
Debug.Print “——————————————————–”
Dim sh As Shape
Dim i As Long
i = 1
For Each sh In sr
‘ タブ区切り（vbTab）を使用して視認性を飛躍的に向上させる
Debug.Print ” [” & i & “]” & _
vbTab & “Name: ” & sh.Name & _
vbTab & “Type: ” & GetShapeTypeName(sh.Type) & _
vbTab & “Layer: ” & sh.Layer.Name & _
vbTab & “Size(W×H): ” & Format(sh.SizeWidth, “0.00”) & “mm × ” & Format(sh.SizeHeight, “0.00” & “mm”)
i = i + 1
Next sh
Debug.Print “========================================================”
Exit Sub
ErrorHandler:
Debug.Print “[ERROR] ” & Now & ” – 予期せぬエラー: ” & Err.Description & ” (Code: ” & Err.Number & “)”
End Sub
‘ シェイプタイプを文字列に変換するヘルパー関数
Private Function GetShapeTypeName(shType As VbShapeType) As String
Select Case shType
Case cdrRectangleShape: GetShapeTypeName = “Rectangle”
Case cdrEllipseShape: GetShapeTypeName = “Ellipse”
Case cdrTextShape: GetShapeTypeName = “Text”
Case cdrCurveShape: GetShapeTypeName = “Curve”
Case Else: GetShapeTypeName = “Other(” & shType & “)”
End Select
End Function
このコードの優れている点
1. タイムスタンプとログレベルの付与: いつ、何が起きたのか（`[INFO]`, `[WARN]`, `[ERROR]`）を明確にしている。
2. `vbTab` による整形: イミディエイトウィンドウ内で表形式のように綺麗に整列され、目視でのデバッグ効率が劇的に向上する。
3. エラーハンドリングのログ化: 実行時エラーが発生しても、`MsgBox`で処理を止めず、イミディエイトにエラーコードと説明を吐き出して安全に抜ける。
—
3. イミディエイトウィンドウを「即席のコマンドライン」として使う
イミディエイトウィンドウの真価は、コードに出力する（`Debug.Print`）だけではない。ブレークポイントで処理を止めたその瞬間に、イミディエイトウィンドウに直接コード（ステートメント）を打ち込んで実行できるという点にある。
例えば、巨大なドキュメントの処理中に、特定のシェイプの座標を強制的に書き換えたいとする。わざわざコードを書き直してF5を押す必要はない。
活用手順：
1. ループ内の任意の場所にブレークポイント（F9）を設定し、マクロを実行する。
2. 処理が一時停止したら、イミディエイトウィンドウに直接以下のように打ち込み、Enterを押す。
‘ 選択中のシェイプの幅を強制的に100mmに変更し、画面を即座に再描画させる
ActiveShape.SizeWidth = 100: ActiveDocument.Window.Refresh()
これだけで、CorelDRAWの画面上のオブジェクトが即座に変形される。オブジェクトのライフサイクルや現在のスコープ（変数の有効範囲）を保持したまま、リアルタイムにシステムの状態を介入・操作できる。これはシニアエンジニアにとって最強のライブ・デバッグ環境だ。
また、変数の値を確認したいだけなら、わざわざ `Debug.Print x` と書かなくても、イミディエイトウィンドウで以下のように打てば即座に返値が得られる。
? ActiveDocument.ActivePage.Shapes.Count
（先頭に `?` をつけることで `Print` の代わりになる）
—
4. メモリ最適化とオブジェクト解放の作法（CorelDRAW特有の罠）
最後に、CorelDRAW VBAにおけるデバッグと密接に関わる「メモリ管理」に言及しておかなければならない。
CorelDRAWのCOMオブジェクト（特に `ShapeRange` や `Selection`）は、内部でVRAMやシステムメモリを大量に消費する。VBAの自動ガベージコレクションは世間が思っているほど優秀ではなく、特に参照の解放漏れ（Reference Leak）はCorelDRAWプロセスの肥大化、そして最悪の「突然のクラッシュ」を引き起こす。
デバッグ時に `Debug.Print` を用いてオブジェクトの破棄（`Nothing`代入）を確認する習慣をつけよ。
Sub SafeMemoryProcess()
Dim doc As Document
Set doc = ActiveDocument
Dim sr As ShapeRange
Set sr = doc.SelectionRange
Debug.Print “[MEM] 処理前の選択数: ” & sr.Count
‘ — 何らかの重い処理 —
‘ 処理終了後、明示的にオブジェクト変数を解放する
Set sr = Nothing
Set doc = Nothing
Debug.Print “[MEM] オブジェクト参照を解放しました。”
End Sub
特に大規模なバッチ処理を組む場合、ループの内部でオブジェクトを生成・破棄するたびにメモリリークが蓄積されていないかを、タスクマネージャーのCorelDRAWプロセスのメモリ使用量と `Debug.Print` を突き合わせて監視する必要がある。
—
総括
イミディエイトウィンドウと `Debug.Print`。それはレガシーに見えるVBE環境に残された、最も先鋭的かつ強力なインターフェースである。
モーダルな警告ダイアログで開発の手を止めるな。
構造化されたログでプロセスの鼓動を感じ取り、イミディエイトウィンドウの即時実行性でCorelDRAWの内部構造を掌中に収めろ。
真の自動化エンジニアは、画面の向こう側のオブジェクトの挙動を、コードとログだけで完全に支配するのだ。
