こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押してカタカタ図形を動かしてみたものの、「あれ、これどうやって編集するんだっけ？」「新しくドキュメントを開くたびに同じ設定をするのが面倒くさい……」そんな壁にぶつかっていませんか？
大丈夫。今日、その悩みはすべてクリアできます。
今回は、CorelDRAWで「新規ドキュメントを開いた瞬間に、実務で必須のカスタムグリッドと基準寸法線を一瞬で自動配置する初期化マクロ」の作り方を、優しく徹底的に解説していきます。
ここをマスターすれば、CorelDRAW VBAの基本構造やオブジェクト操作のキモが自然と頭に入り、「マクロの記録」に頼らない本当の自動化エンジニアへの第一歩を踏み出せますよ。それでは、さっそくスタートしましょう！
—
なぜ「初期化マクロ」が実務で最強の武器になるのか？
製図、パッケージデザイン、看板製作……どんな現場でも、デザインを始める前の「お膳立て」には意外と時間がかかります。
ガイドラインを引いて、余白の寸法線を置いて、単位をミリメートルに設定して……。
これを人間の手でやると、人によってズレが生じたり、忘れたりするミスが起きます。しかし、VBAを使えば「1ミリ秒」です。ボタンを1回押すか、ドキュメント作成時に自動走査させるだけで、いつでも寸分の狂いもない「完璧なキャンバス」が立ち上がります。
今回作成するマクロのゴールは以下の通りです。
1. 単位をミリメートル（mm）に強制固定する
2. 作業用のカスタムグリッド（ガイド線）を配置する
3. 基準となる寸法線をパッと自動描画する
—
開発の舞台裏：CorelDRAW VBAの基本作法
コードを書く前に、CorelDRAW VBAの「世界観」を少しだけ知っておきましょう。
CorelDRAWでは、今まさに操作しているドキュメントを `ActiveDocument` と呼びます。そして、その中にあるページが `ActivePage` です。
VBAは、この「今、アクティブなもの」に対して命令を投げていくのが基本スタイルになります。
【重要】まずは開発タブを出そう
もし画面に「開発」タブが見当たらない場合は、以下の手順で有効化してください。
1. メニューの [ツール] ＞ [オプション] ＞ [カスタマイズ] を開く。
2. [コマンド] または [リボンのカスタマイズ] から「開発」タブにチェックを入れる。
3. Visual Basic Editor (VBA) を開く（`Alt` + `F11` キーでも一発で開けます）。
—
実装コード：一瞬でキャンバスを構築する魔法のスクリプト
それでは、VBAエディタの標準モジュールに以下のコードを貼り付けてみてください。
初心者の方でも迷わないよう、すべての行に魂を込めてコメントを書いています。
Sub CreateProductionEnvironment()
‘ =================================================================
‘ テーマ: 新規ドキュメントの初期化とカスタムグリッド・寸法線の自動配置
‘ 解説: プログラミング初学者でもコピペで即座に実務利用できる基本マクロ
‘ =================================================================
‘ エラーハンドリングの基本：万が一の際に処理がフリーズするのを防ぐ
On Error GoTo ErrorHandler
‘ 1. ドキュメントが開かれているかチェック
If Application.Documents.Count = 0 Then
MsgBox “ドキュメントが開かれていません。新規作成してから実行してください。”, vbExclamation, “警告”
Exit Sub
End If
‘ 2. 単位を確実に「ミリメートル(mm)」に設定
‘ 実務で最も多い「mm単位」を強制することで、意図しないサイズ違いを防ぎます
ActiveDocument.Unit = cdrMillimeter
‘ 3. アクティブなページの取得
Dim docPage As Page
Set docPage = ActiveDocument.ActivePage
‘ 4. 作業用カスタムグリッド（ガイドライン）の自動配置
‘ ページ中央に十字の基準線を引くことで、レイアウトの拠り所を作ります
Dim pageWidth As Double, pageHeight As Double
pageWidth = docPage.SizeWidth
pageHeight = docPage.SizeHeight
‘ ガイドラインを管理するレイヤーを取得（なければアクティブレイヤーを使用）
Dim targetLayer As Layer
Set targetLayer = docPage.ActiveLayer
‘ 垂直ガイドライン（中央）
targetLayer.CreateGuideLine pageWidth / 2, 0, pageWidth / 2, pageHeight
‘ 水平ガイドライン（中央）
targetLayer.CreateGuideLine 0, pageHeight / 2, pageWidth, pageHeight / 2
‘ 5. 基準寸法線の自動配置
‘ ページの底辺に、全体の幅を示す寸法線を自動で描画します
Dim dimLine As Shape
‘ CreateLinearDimensionEx(タイプ, テキスト位置, 始点X, 始点Y, 終点X, 終点Y, オフセット距離)
‘ ※ここでは下部にオフセット -10mm の位置に水平寸法線を配置
Set dimLine = targetLayer.CreateLinearDimension( _
cdrDimensionHorizontal, _
pageWidth / 2, -10, _ ‘ 寸法値の配置位置
0, 0, _ ‘ 始点（左下）
pageWidth, 0, _ ‘ 終点（右下）
cdrDimensionStyleStandard, _
cdrDimensionUnitsShowAlways _
)
‘ 寸法線の見た目を整える（線幅や色など）
dimLine.Outline.Width = 0.2 ‘ 0.2mmの細線
dimLine.Outline.Color.RGBAAssign 100, 100, 100 ‘ グレー色
‘ 6. 完了メッセージ
MsgBox “初期化環境の構築が完了しました！デザイン作業を始めてください。”, vbInformation, “自動化完了”
Exit Sub
ErrorHandler:
‘ 予期せぬエラーが発生した際の安全装置
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
—
コードの注目ポイントを優しく解説！
初心者の方がつまづきやすいポイントを、エンジニアの先輩目線で分かりやすく解説しますね。
① `ActiveDocument.Unit = cdrMillimeter` の意味
デザインツールにおいて単位の勘違いは致命傷です。「インチ」で設計したつがいが、いざ印刷したら「ミリ」で計算されていて巨大になった……なんて事故を防ぐため、マクロの最初で単位をガッチリ固定するのがプロの鉄則です。
② 座標の計算ロジック (`pageWidth / 2`)
CorelDRAWの標準的な座標系は、左下を原点 `(0, 0)` として右上に広がっていきます。
そのため、ページの真ん中に線を引きたいときは「全体の幅を2で割る (`pageWidth / 2`)」というシンプルな算数で位置を割り出すことができます。この仕組みさえ分かれば、四隅に枠線を置くことも余裕でできるようになりますよ。
③ 寸法線オブジェクト (`CreateLinearDimension`)
CorelDRAW VBAには、図面作成に欠かせない自動寸法線をコード一発で生成する強力なメソッドが備わっています。「どこからどこまでを測るか（始点・終点）」と「数字をどこに置くか」を指定するだけで、綺麗な矢印付きの寸法線が自動で引かれます。手動で定規を当てる必要はもうありません！
—
よくあるエラーと回避のコツ
1. 「オブジェクトが必要です」というエラーが出る
- 原因: まだドキュメントを何も作っていない（真っ暗な起動画面のまま）状態でマクロを実行したときに発生します。
- 対策: コード内に入れている `If Application.Documents.Count = 0 Then` というガード節が、まさにこのエラーを防ぐためのものです。必ず新規ドキュメントを開いてから実行しましょう。
2. 寸法線の位置がページの外に出て見えない
- 原因: ページサイズ（A4など）に対して、オフセット値（マイナス方向など）の指定が大きすぎたり小さすぎたりすると、画面の外に描画されてしまいます。
- 対策: まずはデフォルトのA4サイズ（幅210mm / 高さ297mm）で試して、コードの数値を少しずついじって挙動を確認してみてください。
—
まとめ：ここをクリアすれば、もう初心者卒業です！
お疲れ様でした！ここまで読み進めたあなたなら、
- CorelDRAW VBAの基本的なお作法（`ActiveDocument` や `Page` の概念）
- 単位の固定方法
- ガイドラインや図形（寸法線）をコードで生み出す方法
これらをしっかりと吸収できたはずです。「マクロの記録」では絶対に作れない、動的で賢い自動化の第一歩を踏み出しました。
このコードをベースにして、「社内規定の余白枠も同時に追加したい」「ロゴのダミー配置も自動化したい」など、ご自身の業務に合わせてカスタマイズを重ねてみてください。
あなたのCorelDRAWライフが、もっと快適でエキサイティングなものになりますように。それでは、また次のテクニックでお会いしましょう！
