CorelDRAW VBAの「見えない壁」を突破せよ：グリッドスナップを制御して座標を支配する技術
こんにちは。CorelDRAWの自動化の世界へようこそ。
マクロの記録機能でコードを書き出し、「さあ、完璧な図面ができるぞ」と実行した瞬間に、なぜか座標が数ミリずれる……そんな経験はありませんか？
その正体は、CorelDRAWの強力な機能である「スナップ（Snap）」です。人間が作業する分には神機能ですが、プログラムで精密な座標を打ち込む際には、あなたの命令を「グリッドに合わせて勝手に補正」してしまう、いわば「お節介なアシスタント」になってしまうのです。
今回は、この「見えない壁」を突破し、VBAからグリッドやガイドへのスナップを一時的に無効化し、100%意図した場所にオブジェクトを配置するための極意を伝授します。
—
1. なぜ「スナップ」が自動化の敵になるのか？
CorelDRAWのAPIは、ユーザーインターフェースの設定と密接に連動しています。VBAで `ActiveLayer.CreateRectangle` と書いたとしても、アプリケーション設定で「グリッドにスナップ」が有効であれば、CorelDRAWは「ユーザーはきっとグリッドに合わせたいはずだ」と気を利かせて座標を丸めてしまいます。
これを防ぐための鉄則はただ一つ。「処理の直前にスナップ設定をOFFにし、処理が終わったら元に戻す」。この一連の儀式をマスターすることが、プロへの第一歩です。
—
2. 実践コード：スナップを掌握する
以下のコードは、現在のスナップ状態を記憶し、安全に設定を切り替えてから処理を行い、最後に元へ戻す「堅牢なテンプレート」です。
Sub CreatePreciseObject()
Dim doc As Document
Dim snapGridOld As Boolean
Dim snapGuideOld As Boolean
Set doc = ActiveDocument
‘ 1. 現在のスナップ状態を退避（ここが重要！後で元に戻さないとユーザーに嫌われます）
snapGridOld = doc.SnapToGrid
snapGuideOld = doc.SnapToGuide
‘ 2. スナップを強制的に無効化
doc.SnapToGrid = False
doc.SnapToGuide = False
‘ 3. ここに精密な配置処理を書く
‘ 例：座標(10mm, 10mm)に50mm x 50mmの正方形を描画
Dim rect As Shape
Set rect = ActiveLayer.CreateRectangle(10, 10, 60, -40)
‘ 4. スナップ状態を元の設定に戻す（後始末こそエンジニアの品格）
doc.SnapToGrid = snapGridOld
doc.SnapToGuide = snapGuideOld
MsgBox “精密な配置が完了しました！”
End Sub
コード解説：ここがポイント
- 退避と復元: プログラミングの世界では、環境を汚さないのがマナーです。`snapGridOld` という変数に元の設定を保存しておくことで、マクロが終わった後にユーザーの設定を勝手に書き換えてしまう事故を防ぎます。
- 座標の単位: CorelDRAW VBAはデフォルトでドキュメントの単位（mmやインチ）を継承します。数値の指定は直感的ですが、スナップが効いているとこれらが四捨五入されるため、無効化の恩恵は絶大です。
—
3. 初学者が陥りやすい「罠」
罠①：エラー発生時にスナップがOFFのままになる
もしコードの途中でエラーが発生し、プログラムが強制終了すると、設定を戻す処理（4番）が実行されません。これではユーザーが手作業に戻ったときに混乱します。
対策: `On Error GoTo ErrorHandler` を使い、エラーが発生しても必ず元に戻る「クリーンアップ処理」を書きましょう。
‘ 簡略化したエラーハンドリング例
On Error GoTo Cleanup
‘ … 処理 …
Cleanup:
doc.SnapToGrid = snapGridOld
doc.SnapToGuide = snapGuideOld
罠②：アプリケーションレベルの設定と混同する
CorelDRAWには `Application` 設定と `Document` 設定があります。スナップ系は主に `Document` オブジェクトに紐付いています。グローバルな環境設定をいじろうとして `Application.Settings` を探す方がいますが、基本的には `ActiveDocument` を制御するのが最短ルートです。
—
最後に：自動化の先にあるもの
「マクロの記録」で生成されたコードは、いわば「操作の履歴」に過ぎません。しかし、今回のようにアプリケーションの作法（設定の退避と復元）を理解したコードは、現場の混乱を防ぐ「信頼できるツール」に進化します。
座標を支配する力は、複雑なレイアウトや大規模なテンプレート作成において、あなたに圧倒的な生産性をもたらすでしょう。
ここをクリアしたあなたは、もうただの初心者ではありません。CorelDRAWの挙動を意のままに操るエンジニアへの入り口に立っています。次は、ガイド線の自動配置やレイヤーの動的生成にも挑戦してみてください。
また何か壁にぶつかったら、いつでもここへ戻ってきてくださいね。応援しています！
