こんにちは！CorelDRAW VBAの自動化の世界へようこそ。
チーフアーキテクトの私です。
「名刺やショップカードを、1つの用紙にきれいに面付けしたい」
「複数のレイアウト枠を正確に配置するために、まずは等間隔のガイド線を網状に敷き詰めたい」
DTPの現場において、この「ガイド線の手動配置」ほど、神経をすり減らし、時間を無駄にする作業はありません。定規をあて、座標を計算し、一本一本マウスで引いていく……。そんなアナログな作業は、今日で終わりです。
今回は、指定した間隔で縦横のガイド線をページ全体に自動で敷き詰める、実務直結のDTPマクロをあなたに授けましょう。
ここをクリアすれば、CorelDRAW VBAのオブジェクト操作とループ処理の基本はバッチリです。さあ、一緒にマクロの記録から完全脱却し、プロの自動化エンジニアへの階段を登りましょう！
—
なぜ「マクロの記録」では面付けガイドが作れないのか？
CorelDRAWには便利な「マクロの記録」機能がありますが、これを開いてガイド線を引いても、コードは生成されません。なぜなら、ガイド線の追加はドキュメントの「ルーラー（ガイドライン層）」に対する動的な座標計算を伴う処理だからです。
実務で使えるコードを書くには、CorelDRAWの「オブジェクトのライフサイクル」と「座標系（ユニット）」を正しく理解する必要があります。
CorelDRAW VBAにおける3大鉄則
1. アクティブなページを正しく捉える：今、どのページに対して処理を行っているのかを明示する。
2. 単位の統一：ミリメートル（mm）で思考し、内部の正確な座標系（ドキュメント単位）へ変換する。
3. ガイドライン層の操作：通常の図形と違い、ガイド線は専用のレイヤー（またはガイドラインコレクション）に追加する必要がある。
これらを踏まえた、無駄のない洗練されたコードを次節で公開します。
—
【実務直結】ガイド線自動敷き詰めマクロの全コード
以下のコードを、CorelDRAWのVBAエディタ（Alt + F11）の標準モジュールにそのまま貼り付けてください。
Sub CreateImpositionGridGuides()
‘ ==========================================
‘ テーマ: ページ全体への等間隔ガイド線グリッド自動配置マクロ
‘ ターゲット: 名刺・カードの面付け、レイアウト枠の基準線作成
‘ ==========================================
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “ドキュメントが開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 単位をミリメートルに強制設定（計算ミスを防ぐプロの鉄則）
doc.Unit = cdrMillimeter
Dim pag As Page
Set pag = doc.ActivePage
‘ — 【設定エリア】 ここを用途に合わせて変更してください —
Dim stepX As Double: stepX = 91# ‘ 縦ガイドの間隔 (例: 名刺の横幅 91mm)
Dim stepY As Double: stepY = 55# ‘ 横ガイドの間隔 (例: 名刺の高さ 55mm)
‘ ———————————————————–
‘ ページサイズの取得
Dim pageWidth As Double, pageHeight As Double
pageWidth = pag.SizeWidth
pageHeight = pag.SizeHeight
‘ エラーハンドリングとパフォーマンス向上のための画面描画停止
EventsEnabled = False
ActiveDocument.BeginCommandGroup “ガイドグリッド自動作成”
On Error GoTo ErrorHandler
Dim currentPos As Double
Dim layerGuides As Layer
‘ ガイド線は通常、マスターガイドまたはアクティブページのガイドレイヤーに配置
Set layerGuides = pag.Guides
‘ 1. 垂直方向（X軸）のガイド線をループで順次配置
currentPos = stepX
Do While currentPos < pageWidth
' ページの左下原点（0,0）を基準にした座標計算
' 引数: 座標(X or Y), 向き(cdrVertical / cdrHorizontal)
layerGuides.CreateGuide cdrVertical, currentPos
currentPos = currentPos + stepX
Loop
' 2. 水平方向（Y軸）のガイド線をループで順次配置
currentPos = stepY
Do While currentPos < pageHeight
layerGuides.CreateGuide cdrHorizontal, currentPos
currentPos = currentPos + stepY
Loop
' 処理終了のコミット
ActiveDocument.EndCommandGroup
EventsEnabled = True
MsgBox "グリッド状のガイドラインの配置が完了しました！", vbInformation, "完了"
Exit Sub
ErrorHandler:
' 異常終了時の安全ネット
ActiveDocument.EndCommandGroup
EventsEnabled = True
MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "予期せぬエラー"
End Sub
---
コードの核心を解説：なぜこの書き方なのか？
初心者から一歩抜け出すために、このコードの重要なポイントを3つに絞って解説します。
1. 単位の強制変更 (`doc.Unit = cdrMillimeter`)
CorelDRAWは、ユーザーが画面上で設定している単位（インチ、ポイント、ピクセルなど）に依存して数値が変わってしまいます。これを放置すると、別環境で動かしたときに「とんでもない細かさのガイド線」が大量発生するバグの温床になります。最初に `doc.Unit = cdrMillimeter` と宣言することで、「何mmピッチで置くか」を絶対的に担保しています。
2. `Do While` ループによる動的生成
ページの端に到達するまで、指定した間隔（`stepX`, `stepY`）を足し続けながらガイドを打っていくシンプルなアルゴリズムです。
「もし名刺サイズ（91x55mm）のA4面付けなら？」
このマクロを実行するだけで、一瞬にして数理的に正確なグリッドが完成します。手作業でガイドをドラッグしていた時間は、完全にゼロになります。
3. `EventsEnabled = False` と `BeginCommandGroup`
プロのエンジニアが書くマクロと、初心者のマクロの最大の違いは「パフォーマンスとUndo（元に戻す）への配慮」です。
ガイドを1本置くたびに画面が再描画されると、処理が重くなり画面がチラつきます。`EventsEnabled = False` で描画を裏で処理し、最後に `EndCommandGroup` でまとめることで、Ctrl+Z 一発で全ガイドを消せる「安全な一連の操作」としてCorelDRAWに認識させています。
—
よくあるエラーと陥りがちな罠
罠1：「ガイド線が表示されない！」
- 原因: ガイド線の表示自体が非表示になっている可能性があります。
- 対策: CorelDRAW上部のメニューから `[表示] ＞ [ガイドライン]` にチェックが入っているか確認してください。また、コード内の `pag.Guides` は現在のページに固有のガイドレイヤーを指します。全体に共通させたい場合は `doc.MasterPage.Guides` を使うアプローチも検討しましょう。
罠2：「無限ループに陥ってフリーズした」
- 原因: `stepX` に `0` やマイナスの値を指定してしまうと、条件式 `currentPos < pageWidth` が常に真になり、VBAが永遠に終わらなくなります。
- 対策: 必ず正の数値を代入するようにしてください。
—
まとめ：あなたのDTPワークフローを加速させよう
今回は、指定間隔でガイド線をページ全体に敷き詰める実務マクロを通じて、CorelDRAW VBAのオブジェクト操作、単位の制御、ループ処理の本質を解説しました。
ここをクリアしたあなたなら、次は「このガイドの交点に自動でトンボやダミー枠を配置する」といった、さらなる高度な自動化へ進む実力が十分につついと言えます。
日々の退屈な単純作業はマクロに任せ、あなたしかできないクリエイティブなデザインワークに集中しましょう。
それでは、次回の極限知見でお会いしましょう！
