こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロの記録」ボタンを押して、生成された大量のコードを眺めて「結局、どこをどういじればいいのか分からない……」と頭を抱えた経験はありませんか？
実は、CorelDRAW VBAをマスターする最大の近道は、「イミディエイトウィンドウ」という名の魔法の覗き穴を使いこなすことにあります。今日は、コードを書くのが楽しくて仕方なくなる、デバッグの極意を伝授しましょう。
—
1. なぜ「イミディエイトウィンドウ」が最強の武器なのか
VBAの世界には、コードが動いている最中にその裏側をこっそり覗くための「イミディエイトウィンドウ」という場所があります。
多くの初心者は、コードを実行して「動いた！」「エラーが出た！」で終わってしまいます。しかし、一流のエンジニアは違います。「なぜ今、その座標になったのか？」「なぜこの色情報が取得できないのか？」というプロセスを、このウィンドウを通して監視しているのです。
まずは、VBAエディタ（Alt + F11）を開き、表示メニューから「イミディエイトウィンドウ」（Ctrl + G）を出しておいてください。ここが、あなたの開発司令室になります。
—
2. 選択中のシェイプを「丸裸」にするコード
CorelDRAWで何らかの図形を選択した状態で、以下のコードを動かしてみてください。これだけで、オブジェクトの深淵が見えてきます。
Sub InspectSelectedShape()
‘ 現在選択されているオブジェクトを取得
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.Name
Debug.Print “中心座標 X: ” & shp.CenterX
Debug.Print “中心座標 Y: ” & shp.CenterY
Debug.Print “塗りつぶしの色（RGB）: ” & shp.Fill.UniformColor.ToString
Debug.Print “————————–”
End Sub
このコードの「本質」
- `Debug.Print`: これが最も重要なコマンドです。画面上にポップアップを出すのではなく、開発者だけに見えるログを書き出します。プログラムを止めずに情報を蓄積できるのが最大の強みです。
- `ActiveSelection.Shapes(1)`: 選択したものを操作する際の定石です。ただし、複数選択している可能性があることを常に意識しましょう。
—
3. 初学者が陥りやすい「罠」と解決策
この道を通る誰もが一度はぶつかる壁が「オブジェクトの参照エラー」です。
罠：何もないところを操作しようとする
「マクロの記録」は便利ですが、常に「何かが選択されている前提」でコードを吐き出します。何も選んでいない状態で実行すると、VBAはパニックを起こして停止します。
解決策：
上記のコードのように `If ActiveSelection.Shapes.Count = 0 Then … Exit Sub` を冒頭に置く癖をつけましょう。これだけで、あなたのコードの堅牢性は劇的に上がります。
—
4. プロへのステップアップ：リアルタイム監視の極意
慣れてきたら、コードの途中に `Debug.Print` を散りばめるのがプロの流儀です。
- ループ処理の中で使う: 「何番目のオブジェクトを処理しているのか？」を `Debug.Print i` と出力すれば、重い処理がフリーズしているのか、ただ時間がかかっているだけなのかが一目で分かります。
- 計算の過程を見る: 図形の回転や移動を行う前に、座標を `Debug.Print` してから計算させ、期待通りの数値になっているか確認する。これが「バグを生まないコード」の作り方です。
—
最後に：自動化は「観察」から始まる
CorelDRAWのAPIは非常に広大です。すべてを暗記する必要はありません。
「このオブジェクトにはどんな情報が入っているんだろう？」と疑問に思ったとき、`Debug.Print shp.` と打って、候補リスト（インテリセンス）を眺め、気になったプロパティを `Debug.Print` してみる。
この「仮説と検証」のサイクルこそが、あなたをマクロの記録者から、CorelDRAWを自在に操るエンジニアへと変貌させる唯一の道です。
さあ、イミディエイトウィンドウを開いて、まずは自分の描いた図形と対話してみてください。そこには、ただのグラフィックではなく、データとしての新しい顔が見えてくるはずですよ。
それでは、素晴らしい自動化ライフを！
