こんにちは！CorelDRAWの自動化の世界へようこそ。
マクロの記録ボタンを押して作業をトレースする時代は、もう終わりです。今日からあなたも、コードの力でCorelDRAWを自在に操るエンジニアの仲間入りをしましょう。
今回は、実務で絶対に避けて通れない「新規ドキュメント作成時の初期設定の自動化」を取り上げます。
新しいドキュメントを開くたびに、「定規を表示させて…」「原点を左下に移動して…」「オブジェクトへのスナップをオンにして…」と、毎回同じ手作業を繰り返していませんか？
プロの現場において、この「毎回のルーティンワーク」は完全な無駄、すなわち機会損失です。
ここをクリアすれば、CorelDRAW VBAの基本構造と、ドキュメント環境をコントロールする本質がバッチリ見えてきますよ。さあ、私と一緒に最初の扉を開けましょう！
—
1. なぜ「手動での初期設定」をやめるべきなのか？
CorelDRAWでデザインを始める時、私たちは無意識のうちに次のようなセットアップを行っています。
- 定規（Ruler）の表示と、作業しやすい位置への原点（Origin）変更
- グリッドやオブジェクトへの「スナップ（Snap）」機能の有効化
- 単位（ミリメートルやインチなど）の統一
これらを毎回手作業で行うと、「あ、スナップし忘れて位置がズレた！」「原点の設定を間違えて版がずれた！」というヒューマンエラーの温床になります。
これをVBA（Visual Basic for Applications）に一瞬でやらせることで、「CorelDRAWを起動して新規作成した瞬間から、最高に仕事がしやすい環境が整っている」という理想郷を手に入れるのです。
—
2. 【実践】新規ドキュメントの環境を整える魔法のコード
まずは、百聞は一見にしかず。新規ドキュメントを開いた際、または開いた後に実行することで、定規とスナップを完璧に初期化するコードをプレゼントしましょう。
VBAエディタ（`Alt` + `F11`）を開き、標準モジュールに以下のコードを貼り付けてみてください。
Sub InitializeNewDocumentEnvironment()
‘ =====================================================================
‘ テーマ: 新規ドキュメントのカスタム定規とスナップ機能の自動有効化
‘ 解説: ドキュメントの単位、定規の原点、各種スナップをプログラムで強制設定します。
‘ =====================================================================
‘ エラーハンドリングの基本：ドキュメントが開かれていない場合の対策
If Documents.Count = 0 Then
MsgBox “アクティブなドキュメントがありません。新規作成またはファイルを開いてから実行してください。”, vbExclamation, “初期設定マクロ”
Exit Sub
End If
‘ アクティブなドキュメントを変数に格納（処理の高速化と可読性向上）
Dim doc As Document
Set doc = ActiveDocument
‘ — 1. 単位を「ミリメートル (mm)」に統一 —
‘ cdrMillimeter はCorelDRAWが用意している定数（お墨付きの番号）です
doc.Unit = cdrMillimeter
‘ — 2. 定規（Ruler）の設定と原点の変更 —
‘ ドキュメントウィンドウの定規を表示状態にする
ActiveWindow.Rulers = True
‘ 定規の原点（Ruler Origin）をページの左下(0,0)から、
‘ 一般的なレイアウト作業しやすい「左下基準」に明示的に合わせます
‘ ※CorelDRAWのデフォルトは左下ですが、好みに応じてオフセットも可能です
doc.RulerOriginX = 0#
doc.RulerOriginY = 0#
‘ — 3. スナップ機能（Snapping）の強力な有効化 —
‘ デザインの正確性を担保するため、主要なスナップをすべてONにします
‘ オブジェクトへのスナップ
doc.SnapToObjects = True
‘ ページガイドへのスナップ
doc.SnapToGuidelines = True
‘ グリッドへのスナップ（必要に応じてTrue/Falseを切り替えてください）
doc.SnapToGrid = False
‘ — 4. 完了メッセージ —
MsgBox “ドキュメントの初期設定が完了しました！作業を開始できます。”, vbInformation, “初期設定マクロ”
End Sub
—
3. コードの急所を解剖する（初心者が押さべき3つのポイント）
先輩エンジニアとして、このコードの重要な「心臓部」を3つに絞って解説します。ここさえ分かれば、他のプロパティも自由自在に操れるようになりますよ。
① `ActiveDocument` という絶対王者
CorelDRAW VBAでは、現在ユーザーが触っているドキュメントを `ActiveDocument` と呼びます。これを最初に変数 `doc` に代入することで、コードがスッキリするだけでなく、処理のパフォーマンスも向上します。
② 定数（`cdrMillimeter` など）の正体
コードに出てくる `cdrMillimeter` は、CorelDRAWがあらかじめ用意してくれている「定数」です。
「ミリメートルにしてね」と人間が分かりやすい言葉で命令するためのパスポートのようなもので、これを覚えるだけで単位の変更が自由自在になります（例: インチなら `cdrInch`）。
③ スナップの真実
`doc.SnapToObjects = True` の一行が、デザインの正確性を守る盾となります。手動でメニューからポチポチ探す必要はありません。コードは嘘をつかないし、迷いません。
—
4. 陥りがちな罠とエラー回避の知見
実務でVBAを書き始めると、必ずと言っていいほど直面する「初心者キラー」なエラーがあります。先輩からのアドバイスとして先回りして伝授しておきますね。
罠：ドキュメントが開いていない状態で実行してしまう
CorelDRAWを起動した直後（何もキャンバスがない状態）でこのマクロを実行すると、`ActiveDocument` が存在しないため、「実行時エラー ’91’: オブジェクト変数または With ブロック変数が見つかりません」という冷たいエラー画面に直面します。
【回避策】
今回のコードの冒頭にも入れた、このおまじないを必ず書きましょう。
If Documents.Count = 0 Then
MsgBox “ドキュメントを開いてください！”, vbExclamation
Exit Sub
End If
この「何もない状態を事前に検知して優しく止める」配慮こそが、プログラミングにおけるエレガンス（優美さ）です。
—
5. 次のステップへ：自動化の未来
おめでとうございます！これで、新規ドキュメントの環境構築を自動化する基本スキルがあなたのものになりました。
さらに欲張りなあなたは、このマクロを「新規ドキュメントを作成した瞬間に自動で走らせる（イベントマクロ）」という次のステージに挑戦したくなるはずです。
CorelDRAWには `GlobalMacros` やドキュメントイベントをフックする機能が備わっています。まずは今回作成した標準モジュールのマクロを、ショートカットキー（例: `Ctrl + Shift + I` など）に割り当てて、日々の業務でその爆速ぶりを体感してみてください。
「定規とスナップのストレスから解放された！」その感動こそが、あなたを次のレベルへ押し上げる最高の原動力になります。
CorelDRAW VBAの旅は、ここからが本番です。一緒に最高の世界を作っていきましょう！
