こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して自動生成されたコードを眺める段階から、自分の手で自由にデザインを自動化するステージへ進むと、必ず直面するのが「あれ？なんで意図通りに動かないんだろう？」という壁です。
プログラムが思い通りに動かないとき、画面の前で腕組みをしてコードを睨みつけていませんか？
大丈夫、焦る必要は全くありません。プロのエンジニアであっても、バグのないコードを一発で書く人などいませんからね。
今回は、CorelDRAW VBAの開発効率を劇的に飛躍させる「イミディエイトウィンドウ」と「Debug.Print」の有効活用術を、優しく、そして本質的なところまでしっかりと解説していきます。
ここをクリアすれば、あなたのデバッグ能力は一気にプロの領域へ近づきますよ。それでは、一緒に見ていきましょう！
—
1. なぜ「マクロの記録」だけでは限界が来るのか？
CorelDRAWの「マクロの記録」機能は素晴らしい機能です。しかし、記録されたコードを実行しても、次のような疑問が残ったことはありませんか？
- 「今、選択されているオブジェクトの名前は何なんだろう？」
- 「変数の計算結果が、なぜかズレている気がする……」
- 「レイヤーの枚数を取得したいけれど、本当に正しく数えられている？」
画面上の見た目だけで判断しようとすると、プログラムの裏側で何が起きているのか分からなくなってしまいます。そこで必要になるのが、「プログラムの思考を可視化する」というアプローチです。
—
2. デバッグの最強コンビ：「Debug.Print」と「イミディエイトウィンドウ」
VBAには、コードの実行中に「ここに注目して！」とコンピュータに囁く機能があります。それが `Debug.Print` です。そして、その囁きを受け止める表示板が 「イミディエイトウィンドウ」 です。
まずは、VBE（Visual Basic Editor）の画面で、この魔法の窓を表示させましょう。
イミディエイトウィンドウの出し方
1. CorelDRAWで `Alt + F11` を押してVBEを開きます。
2. メニューバーの [表示] ＞ [イミディエイト ウィンドウ] をクリックします（ショートカットキー：`Ctrl + G`）。
画面の下部に、白い入力欄のようなスペースが現れましたね？これがあなたの頼もしい相棒となるイミディエイトウィンドウです。
—
3. 実践！コードの裏側を覗いてみよう
百聞は一見に如かず。実際にコードを書いて、イミディエイトウィンドウに情報を出力させてみましょう。
以下のコードをVBEの標準モジュールに貼り付けて実行してみてください。現在のドキュメントで選択しているオブジェクト（Shape）の情報を取得するスクリプトです。
Sub CheckSelectedObjectInfo()
Dim shp As Shape
‘ 何も選択されていない場合のエラーを防ぐおまじない
If ActiveSelection.Shapes.Count = 0 Then
Debug.Print “警告: オブジェクトが何も選択されていません！”
Exit Sub
End If
‘ 選択されている最初のシェイプを変数に格納
Set shp = ActiveSelection.Shapes(1)
‘ イミディエイトウィンドウに出力する
Debug.Print “— 選択シェイプの情報 —”
Debug.Print “オブジェクトの種類: ” & shp.Type
Debug.Print “オブジェクトの名前: ” & shp.Name
Debug.Print “幅 (Width): ” & shp.SizeWidth & ” mm”
Debug.Print “高さ (Height): ” & shp.SizeHeight & ” mm”
End Sub
実行してみよう！
1. CorelDRAWのキャンバスに戻り、適当な図形（四角形や円など）を一つ描いて選択します。
2. 再びVBEに戻り、上記のコード内にカーソルを置いた状態で `F5` キーを押して実行します。
3. イミディエイトウィンドウを見てください。次のように表示されているはずです。
— 選択シェイプの情報 —
オブジェクトの種類: 1
オブジェクトの名前: 長方形 1
幅 (Width): 50 mm
高さ (Height): 30 mm
おぉ！コードが裏側でちゃんと図形の名前やサイズを正確に把握していることが、リアルタイムで証明されましたね。
—
4. 初学者が陥りやすい罠と、Debug.Printで解決するアプローチ
CorelDRAW VBAを書いていると、よくこんなエラーに遭遇します。
> 「実行時エラー ’91’: オブジェクト変数が設定されていません。」
このエラーが出たとき、初心者の多くは「どの行が原因なんだ…？」とパニックになります。しかし、`Debug.Print` を適切に挟んでおけば、原因の特定は一瞬です。
ケーススタディ：レイヤーが見つからないエラー
例えば、「特定の名前のレイヤーを操作したい」というときに、そのレイヤーが存在しない場合、コードはクラッシュします。
Sub BadExample()
Dim targetLayer As Layer
‘ もし「デザイン層」というレイヤーが無かったらここでエラーになる！
Set targetLayer = ActivePage.Layers.Item(“デザイン層”)
targetLayer.Activate
End Sub
これを安全にデバッグしながら書くには、以下のように「存在チェック」をイミディエイトウィンドウで確認する習慣をつけます。
Sub GoodExample()
Dim targetLayer As Layer
Dim layerName As String
layerName = “デザイン層”
‘ レイヤーが存在するかどうかを事前にイミディエイトで確認する構文
On Error Resume Next
Set targetLayer = ActivePage.Layers.Item(layerName)
On Error GoTo 0
If targetLayer Is Nothing Then
Debug.Print “【エラー】'” & layerName & “‘ というレイヤーは見つかりませんでした。”
Exit Sub
Else
Debug.Print “【成功】'” & layerName & “‘ レイヤーを取得しました。”
‘ ここに本来の処理を書く
End If
End Sub
このように、エラーを未然に防ぎつつ、プログラムがどちらのルートを通ったのかを `Debug.Print` で文字として残すことで、デバッグのスピードが何倍にも跳ね上がります。
—
5. さらに進んだテクニック：イミディエイトウィンドウで「直接命令」する
イミディエイトウィンドウの本当の凄さは、プログラムの実行中（あるいは停止中）に、その場でコードの断片を即座に実行できることにあります。
例えば、VBEのコード内に「ブレークポイント（行の左端をクリックして赤くすること）」を設定して処理を一時停止させたとします。その状態で、イミディエイトウィンドウに次のように直接打ち込んで `Enter` キーを押してみてください。
? ActiveDocument.ActivePage.Name
（※先頭の `?` は `Debug.Print` の省略形です）
すると、その瞬間に現在のページ名がイミディエイトウィンドウにズバッと返ってきます。
わざわざ変数の値を確認するためだけに「`MsgBox`」をコードに書き足して、実行して、消して……という面倒な作業をする必要はもうありません。
—
おわりに
今回は、CorelDRAW VBAにおけるデバッグの基礎として、イミディエイトウィンドウと `Debug.Print` の活用法を解説しました。
- 「わからないことは、コンピュータに文字で喋らせる（Debug.Print）」
- 「その声をイミディエイトウィンドウで聴く」
この2つの習慣をつけるだけで、コードを書くスピードと正確性は劇的に向上します。エラーが出ても、それはあなたの失敗ではなく、コンピュータが「ここを直してほしいな」と教えてくれているサインに変わるはずです。
ここをクリアすれば、CorelDRAW VBAの基本はもうバッチリですよ！
自信を持って、次の自動化のステップへ進んでいきましょう。あなたのエンジニアライフを応援しています！
