こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して操作を保存するだけの「初心者モード」は、もう卒業しませんか？
今回は、新しいドキュメントを開いた瞬間から、あなた専用の戦場（作業スペース）を完璧に構築する「初期化マクロ」の作り方を解説します。
毎回の「グリッドを表示して、ガイドラインを引っ張って……」という退屈なルーティン作業を自動化し、デザインの神様が降りてきやすい環境を1秒で整えましょう。
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。優しく、そして本質的なところまでしっかりと案内していきますね！
—
なぜ新規作成時の「環境構築」を自動化すべきなのか？
デザインの現場で最も恐ろしいのは「ヒューマンエラー」と「無駄な時間」です。
「あ、ガイドラインの位置が左右で0.5mmズレてた！」「グリッドの単位をミリに変えるのを忘れてピクセルで作っちゃった…」なんて経験、ありませんか？
CorelDRAW VBAをマスターすると、ドキュメントが生成された瞬間に、VBAが背後でミリ単位の精密なグリッドとガイドラインを配置してくれるようになります。
まずは、その魔法の全貌を見ていただきましょう。
—
実用コード：一瞬で作業環境を整える「Document_Create」マクロ
以下のコードを、あなたのCorelDRAWのVBAエディタ（`Alt + F11`で起動）に貼り付けてみてください。
Sub CreateNewDesignWorkspace()
‘ ==========================================
‘ 伝説の初期化マクロ：黄金の作業環境ジェネレーター
‘ ==========================================
Dim doc As Document
‘ 1. A4サイズの新しいドキュメントを作成 (単位はミリメートルを指定)
‘ ※CorelDRAWの内部計算は常に「DMP (ドキュメント・ポイント)」ですが、
‘ CreateDocumentでは分かりやすくミリ単位(cdrMillimeter)を指定します。
Set doc = CreateDocument( _
Document:=TypeName(ActiveDocument), _
PageWidth:=210, _
PageHeight:=297, _
Units:=cdrMillimeter, _
ColorMode:=cdrCMYKColor _
)
‘ エラー防止のため、アクティブページを変数に格納
Dim pg As Page
Set pg = doc.ActivePage
‘ 2. グリッド（方眼紙機能）の設定
With doc.Grid
.Show = True ‘ グリッドを表示する
.SnapTo = True ‘ オブジェクトをグリッドに吸着させる
.HSpacing = 10 ‘ 横方向の間隔：10mm
.VSpacing = 10 ‘ 縦方向の間隔：10mm
End With
‘ 3. ガイドライン（基準線）の自動配置
‘ デザインの「安全領域（マージン）」として、上下左右に10mmのガイドラインを引く
Dim guides As Guidelines
Set guides = pg.Guides
‘ ページ寸法を取得（中心基準ではなく、左下原点からの計算）
Dim w As Double, h As Double
w = pg.SizeWidth
h = pg.SizeHeight
‘ 基準線のクリア（初期設定の余計なガイドを消去）
guides.All.Delete
‘ 【上下のガイドライン】
‘ 上部マージン（天から10mm下）
guides.CreateHGuide h – 10
‘ 下部マージン（底から10mm上）
guides.CreateHGuide 10
‘ 【左右のガイドライン】
‘ 左側マージン（左から10mm右）
guides.CreateVGuide 10
‘ 右側マージン（右から10mm左）
guides.CreateVGuide w – 10
‘ 4. 完了メッセージ
MsgBox “作業環境の構築が完了しました！デザインを始めてください。”, vbInformation, “CorelDRAW Automation”
End Sub
—
コードの核心を解剖する（初心者が押さべき3つのポイント）
ただコピペするだけではエンジニアとは言えません。このコードがやっている「本質」を3つのステップで紐解きましょう。
1. オブジェクトの階層構造（ドキュメントとページ）
CorelDRAW VBAでは、操作の対象を明確にするために「階層（オブジェクトモデル）」を意識する必要があります。
- `Application` （CorelDRAWアプリ全体）
- └ `Document` （今開いているファイル）
- └ `Page` （その中のページ）
コードの最初に `Set doc = CreateDocument(…)` と書くことで、「新しいキャンバスを作って、それを `doc` という変数に代入するよ」とVBAに命令しています。この変数 `doc` さえ押さえておけば、後からどんな複雑な命令も自由自在です。
2. 単位の罠を制する `cdrMillimeter`
初心者が一番最初にハマるのが「単位（Units）」の壁です。
CorelDRAWは内部で「DMP」という特殊な単位で計算を行っていますが、人間には理解しづらいです。そこで `Units:=cdrMillimeter` と明示的に指定することで、コード内で「10」と書けばそれが「10mm」として正確に処理されるようになります。
3. ガイドラインの座標計算のカラクリ
ガイドラインを引く際、`guides.CreateHGuide(10)`（水平ガイド）や `guides.CreateVGuide(10)`（垂直ガイド）を使っています。
ここで重要なのは、CorelDRAWのページの原点（X=0, Y=0）は、デフォルトで「左下」にあるということです。
そのため、
- 下からの10mm： `10`
- 上からの10mm： 全体の高さ `h` から 10 を引いた `h – 10`
という引き算の思考が必要になります。ここを理解しておくだけで、レイアウト崩れを起こさない強靭なマクロが書けるようになります。
—
初心者が陥りやすいエラーと回避の呪文
VBAを書き始めると、必ずと言っていいほど以下の壁にぶつかります。先回りして解決策を授けましょう。
- エラー：「オブジェクト変数または With ブロック変数が見つかりません。」
- 原因： `Set` を忘れているケースがほとんどです。オブジェクト（ドキュメントやページなど）を変数に入れるときは、必ず `Set doc = …` のように頭に `Set` をつけなければいけません。
- エラー：ドキュメントが開いていない状態でマクロを実行して怒られる
- 対策： 今回のコードは「新規作成」から行うため安全ですが、既存のドキュメントを操作するマクロを書くときは、必ず `If Documents.Count > 0 Then` という「お守り（条件分岐）」を挟む癖をつけましょう。
—
まとめ：あなたの右腕となるマクロを育てよう
今回は、新規ドキュメントの作成と同時にグリッドとガイドラインをミリ単位で自動配置する実用マクロを解説しました。
ここをクリアしたあなたなら、もう単なる「VBA初心者」ではありません。
業務を効率化し、クリエイティブな時間だけを最大化する「自動化エンジニア」の第一歩を踏み出しています。
このコードをベースに、「次は中央に十字のガイドラインも追加したいな」「レイヤーの名前も自動で変えたいな」と、自分好みにカスタマイズを重ねてみてください。
それでは、次回の高度なCorelDRAW自動化の世界でお会いしましょう。ハッピー・コーディング！
