CorelDRAW VBAを掌握する者よ。
日々の業務自動化、本当にご苦労様だ。
「ボタンを押したはいいが、なぜか図形が消えた」「変数が空のまま処理が進んでエラーになる」。
もし君が、ブレークポイントを闇雲に貼るだけのデバッグや、メッセージボックス（`MsgBox`）をコードのあちこちに埋め込むような非効率なやり方をしているなら、今すぐその手を止めてほしい。
業務自動化ツールを開発するプロフェッショナルにとって、「いかに素早く正確に内部状態を観測し、バグを封じ込めるか」は死活問題だ。
今回は、CorelDRAW VBA開発において最強の相棒となる「イミディエイトウィンドウ」と`Debug.Print`の極限活用術を、実務で即座に使える堅牢な設計思想とともに伝授しよう。
—
1. なぜ `MsgBox` デバッグは悪手なのか？
初心者がやりがちな最悪のアンチパターンがこれだ。
‘ 【やってはいけない例】
MsgBox “現在の選択図形数: ” & ActiveSelection.Shapes.Count
なぜこれが非効率なのか？
1. 処理が強制中断される: ユーザーが「OK」をクリックするまでマクロの実行が止まり、リアルタイムなイベントや連続処理の挙動が狂う。
2. ループ内で使うと発狂する: 100個のオブジェクトを処理するループ内にこれを仕込んだら、100回「OK」を押さなければならない。
3. オブジェクトの状態が壊れることがある: ダイアログを表示した瞬間にCorelDRAWのアクティブウィンドウやフォーカスが変わり、ドキュメントの状態が変わってしまうケースすらある。
プロは `MsgBox` をデバッグには使わない。「流れるログを止めるな」。これが鉄則だ。
—
2. イミディエイトウィンドウという「観測窓」の解放
VBE（Visual Basic Editor）画面で `Ctrl + G` を押してほしい。
下部に現れた白い空間、それがイミディエイトウィンドウだ。
ここにコードの実行結果を出力させるのが `Debug.Print` である。
基本の使い方
Debug.Print “ここに任意の文字列や変数の値を出力する”
これの何が素晴らしいか？
- 処理を止めずに裏でログが流し見できる。
- 大量のループ処理であっても、一瞬で全データの推移を確認できる。
- 実行スピードにほぼ影響を与えない。
—
3. 【実践】CorelDRAWオブジェクトモデルの「状態」を丸裸にする
CorelDRAW VBAの難しさは、その独特な階層構造（`Application` > `Document` > `Page` > `Layer` > `Shape`）にある。
「今、本当にそのシェイプが選択されているのか？」「レイヤーのロック状態はどうなっているのか？」
これらをリアルタイムで観測する、実務でそのまま使える堅牢なプロダクションコードを提示しよう。
以下のコードをVBEの標準モジュールに貼り付けて実行してみてほしい。
Option Explicit
” =================================================================
” 業務効率化ツール向け：選択シェイプのプロパティ診断マクロ
” —————————————————————–
” 開発現場のリーダーが教える堅牢なデバッグ手法のサンプル
” =================================================================
Public Sub DiagnoseSelectedShapes()
‘ 1. ドキュメントの存在チェック（防御的プログラミングの基本）
If Documents.Count = 0 Then
Debug.Print “[WARN] 開いているドキュメントが存在しません。”
Exit Sub
End If
Dim doc As Document
Set doc = ActiveDocument
‘ 2. 選択オブジェクトの存在チェック
If doc.Selection.Shapes.Count = 0 Then
Debug.Print “[INFO] シェイプが選択されていません。全シェイプをスキャンします。”
Call ScanAllShapesOnActivePage(doc)
Exit Sub
End If
‘ 3. 選択されているシェイプの情報を詳細にイミディエイト出力
Debug.Print “=========================================”
Debug.Print ” 選択シェイプ診断ログ [時刻: ” & Now & “]”
Debug.Print “=========================================”
Dim sh As Shape
Dim index As Long
index = 1
For Each sh In doc.Selection.Shapes
Debug.Print “— [Shape #” & index & “] —”
Debug.Print ” 名称 (Name) : ” & sh.Name
Debug.Print ” 種類 (Type) : ” & GetShapeTypeName(sh.Type)
Debug.Print ” レイヤー名 : ” & sh.Layer.Name
Debug.Print ” 座標 (X, Y) : ” & Format(sh.PositionX, “0.00”) & “, ” & Format(sh.PositionY, “0.00”)
Debug.Print ” サイズ (W x H) : ” & Format(sh.SizeWidth, “0.00”) & ” x ” & Format(sh.SizeHeight, “0.00”)
Debug.Print ” ロック状態 : ” & IIf(sh.Locked, “LOCKED”, “UNLOCKED”)
index = index + 1
Next sh
Debug.Print “=========================================”
Debug.Print ” 診断完了: 合計 ” & (index – 1) & ” 個のシェイプを処理しました。”
Debug.Print “=========================================”
End Sub
” 補助関数：シェイプのタイプ数値から名称を引く
Private Function GetShapeTypeName(ByVal shapeType As Long) As String
Select Case shapeType
Case cdrRectangleShape: GetShapeTypeName = “長方形”
Case cdrEllipseShape: GetShapeTypeName = “楕円形”
Case cdrCurveShape: GetShapeTypeName = “曲線 (Curve)”
Case cdrTextShape: GetShapeTypeName = “テキスト”
Case cdrBitmapShape: GetShapeTypeName = “ビットマップ”
Case cdrGroupShape: GetShapeTypeName = “グループ”
Case Else: GetShapeTypeName = “その他 (” & shapeType & “)”
End Select
End Function
” 補助プロシージャ：選択がない場合に全ページを走査する例
Private Sub ScanAllShapesOnActivePage(ByVal targetDoc As Document)
Dim lyr As Layer
Dim sh As Shape
Debug.Print “— アクティブページの全レイヤー走査 —”
For Each lyr In targetDoc.ActivePage.Layers
Debug.Print “レイヤー: ” & lyr.Name & ” (表示: ” & lyr.Visible & ” / 印刷: ” & lyr.Printable & “)”
For Each sh In lyr.Shapes
Debug.Print ” └ シェイプ: ” & sh.Name & ” [” & GetShapeTypeName(sh.Type) & “]”
Next sh
Next lyr
End Sub
このコードの設計思想とポイント
1. 防御的プログラミング（Defensive Programming）
いきなり `ActiveDocument.Selection.Shapes` を叩くと、ドキュメントが開いていない場合や何も選択されていない場合に実行時エラー（Runtime Error）でマクロがクラッシュする。
コード冒頭で `Documents.Count` や `.Selection.Shapes.Count` を判定し、エラーを未然に防ぎつつ、イミディエイトウィンドウに状態を書き出すことで「なぜ処理がスキップされたのか」を即座に把握できるようにしている。
2. 型と状態の可視化
CorelDRAWのAPIは定数（`cdrRectangleShape` など）で形状タイプを返すため、数字だけ見ても何がなんだかわからない。補助関数（`GetShapeTypeName`）を挟むことで、ログの可読性を劇的に高めている。
3. `IIf` 関数の活用
プロパティが真偽値（Boolean）である場合（ロックされているか等）、そのまま出力するのではなく `IIf(sh.Locked, “LOCKED”, “UNLOCKED”)` のように人間がパッと見て理解しやすい文字列に変換して出力するのがプロのログ設計だ。
—
4. イミディエイトウィンドウの裏技：コードの「その場実行」
`Debug.Print` で出力するだけでなく、イミディエイトウィンドウは「コードの入力欄」としても機能する。
例えば、マクロの途中でブレークポイントで止まったとき、イミディエイトウィンドウに以下のように直接打ち込んで `Enter` を押すだけで、その場で変数の書き換えやメソッドの実行ができる。
‘ 変数の値をその場で確認
? activeShape.Name
‘ その場でプロパティを変更してみる
activeShape.Fill.UniformColor.RGBAColor 255, 0, 0
‘ 選択を全解除する命令を即座に投げる
ActiveDocument.ClearSelection
先頭に `?` （Printのショートカット）をつけて式を入れれば結果が返ってくるし、直接コードを書いて実行すればCorelDRAWの画面が即座に連動して変化する。
これを使えば、わざわざマクロ全体を書き直して実行し直す手間が省け、デバッグのスピードが10倍に跳ね上がる。
—
5. チーフアーキテクトからの最終メッセージ
「動かないコード」にイライラする時間は今日で終わりだ。
優れた自動化エンジニアと、そうでないエンジニアの差は、「内部の透明性をどれだけ確保できているか」に尽きる。
- エラーが起きそうなところには必ず `Debug.Print` を仕込む。
- 状態を文字列化してイミディエイトウィンドウに流す。
- `MsgBox` で開発フィールを落とさない。
この習慣を身につけた瞬間から、君のCorelDRAW VBA開発は「勘と根性」の領域を脱し、極めてロジカルで堅牢なエンジニアリングへと昇華する。
さあ、VBEを開き、`Ctrl + G` を押して、君のコードの鼓動を聴いてくれ。
