マクロ記録からの脱却。CorelDRAW VBAで「製本用マージンガイド」を自動生成する極限の思考法
こんにちは。現場の自動化設計を指揮しているチーフアーキテクトです。
CorelDRAWを使っていて、「あ、またこれ手作業でやってるな……」と感じる瞬間はありませんか？ 特に、冊子を作る際の「左右対称のマージン設定」です。
奇数ページは左側がノド（綴じ代）、偶数ページは右側がノド。これを手動で、あるいは「マクロの記録」でガチャガチャと操作してガイド線を引くのは、エンジニアリングとは呼びません。それは単なる「繰り返しの作業」です。
今日は、マクロ記録の限界を超え、「ロジック（論理）」でCorelDRAWを操るための第一歩を伝授します。題材は、実務で即戦力となる『見開きを考慮した製本用マージンガイドの自動配置』です。
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。さあ、一緒に深淵を覗いてみましょう。
1. なぜ「マクロの記録」では足りないのか？
「マクロの記録」は、あなたが操作した手順をそのままコードに書き出す、いわば「ビデオ録画」です。便利ですが、致命的な弱点があります。それは「条件分岐」と「計算」ができないことです。
例えば、今回のような「ページ番号によって左右のマージンを反転させる」という処理。
ビデオ録画では「1ページ目に線を引く」「2ページ目に線を引く」という手順しか記録できません。ページが100ページに増えたら、録画したマクロは役に立たなくなります。
プロのコードはこう考えます。
> 「ページ番号を2で割った余りが0か1か？ それによって、マージンの位置を計算して配置せよ」
この「条件による判断」こそが、自動化の心臓部なのです。
2. 設計図（アルゴリズム）を描く
いきなりコードを書き始めてはいけません。まずは、頭の中で（あるいはノートに）ロジックを組み立てましょう。
今回のロジック構成
1. 対象のドキュメントと単位の確定: 計算ミスを防ぐため、単位を「ミリメートル」に固定する。
2. 全ページをループ処理: 1ページ目から最後のページまで順番に見ていく。
3. 偶数・奇数の判定: `page.Index Mod 2`（ページ番号を2で割った余り）を使って判定する。
4. 座標の計算:
- 奇数ページ: 左側に「ノド用マージン」、右側に「外側マージン」を配置。
- 偶数ページ: 左側に「外側マージン」、右側に「ノド用マージン」を配置。
5. ガイド線の生成: 計算したX座標に垂直ガイド線を引く。
3. 実装：製本用マージン自動配置スクリプト
それでは、魂を込めて書いたコードを見ていきましょう。このまま標準モジュールに貼り付けて実行できます。
Option Explicit
''' <summary>
''' 製本用のマージンガイドを、ページ番号（奇数・偶数）に応じて自動配置する
''' </summary>
Sub CreateBindingMarginGuides()
Dim doc As Document
Set doc = ActiveDocument
' --- 1. 前準備（アーキテクトの作法） ---
' 単位がバラバラだと計算が狂うため、必ずミリメートルに固定する
Dim originalUnit As cdrUnit
originalUnit = doc.Unit
doc.Unit = cdrMillimeter
' 設定値（実務に合わせてここを変更する）
Dim gutterMargin As Double: gutterMargin = 20# ' ノド（綴じ代）側のマージン
Dim outerMargin As Double: outerMargin = 10# ' 外側のマージン
Dim p As Page
Dim pageWidth As Double
Dim xPosLeft As Double
Dim xPosRight As Double
' パフォーマンス向上のため、描画更新を一時停止（大量ページ対策）
Optimization = True
On Error GoTo ErrorHandler
' --- 2. メインループ ---
For Each p In doc.Pages
pageWidth = p.SizeWidth
' ページ番号の判定
' p.Index Mod 2 = 1 なら奇数ページ (Right-hand page in typical spreads)
' p.Index Mod 2 = 0 なら偶数ページ (Left-hand page)
If p.Index Mod 2 <> 0 Then
' 【奇数ページ】 左がノド、右が外側
xPosLeft = gutterMargin
xPosRight = pageWidth - outerMargin
Else
' 【偶数ページ】 左が外側、右がノド
xPosLeft = outerMargin
xPosRight = pageWidth - gutterMargin
End If
' --- 3. ガイド線の描画 ---
' 既存のガイドを消したくない場合は、ここを調整する。
' 今回は、指定した座標に垂直ガイド(Vertical Guide)を追加する。
' 左側のガイド
p.Guides.Add cdrVerticalGuide, xPosLeft
' 右側のガイド
p.Guides.Add cdrVerticalGuide, xPosRight
Next p
' --- 4. 後処理 ---
Optimization = False
doc.Unit = originalUnit ' 単位を元に戻す（ユーザーへの配慮）
MsgBox "マージンガイドの配置が完了しました！", vbInformation, "Success"
Exit Sub
ErrorHandler:
Optimization = False
doc.Unit = originalUnit
MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "Error"
End Sub4. コードの深層解説：ここが「プロ」の視点
コードをただ写すだけでは、あなたの力にはなりません。私がなぜこのように書いたのか、その意図を解説します。
① `Optimization = True` の魔法
大量のページがあるドキュメントでガイドを引くと、CorelDRAWは一本線を引くたびに画面を再描画しようとします。これが動作を重くする原因です。`Optimization = True` を使うことで、「計算が終わるまで画面更新を待て」と命令できます。これは大規模な自動化において必須のテクニックです。
② 単位の「カプセル化」
`doc.Unit = cdrMillimeter`。これ、非常に重要です。
もしユーザーが「インチ」設定のドキュメントを開いていたら、`gutterMargin = 20` は「20インチ」として扱われてしまいます。計算ミスは、印刷事故に直結します。「最初に単位を固定し、最後に元の単位に戻す」。これが、プロのエンジニアが持つ「道具への敬意」です。
③ 座標計算のロジック
`xPosRight = pageWidth – outerMargin`
ここがポイントです。ページの左端を `0` としたとき、右端の座標は `全幅 – マージン` になります。この引き算の概念をマスターすれば、あらゆる配置制御が可能になります。
5. 陥りやすいエラーと対策
初学者がこのコードを動かして「あれ？」となりやすいポイントを挙げておきます。
- 「ガイド線が重なって見える！」
このスクリプトは、実行するたびに新しいガイドを追加します。何度も実行すると、同じ場所にガイドが重なっていきます。実務では、最初に `p.Guides.Clear` で既存のガイドを消去する処理を入れるのがスマートです。
- 「ページサイズがバラバラなドキュメント」
このコードは `p.SizeWidth` をループ内で取得しているので、ページごとにサイズが異なるドキュメントでも正しく動作します。ここをループの外で一度だけ取得してしまうと、サイズ違いのページでマージンがズレてしまいます。
最後に：一歩先へ進むあなたへ
お疲れ様でした。これであなたは、単なる「操作の記録係」から、「ロジックを組み立てる設計者」への第一歩を踏み出しました。
「もし、マージンの幅をユーザーに自由に入力させたい場合はどうすればいいか？」
「もし、ガイド線の色を赤色に変えたい場合はどうすればいいか？」
そうやって問いを立て続けることが、エンジニアとしての成長を加速させます。CorelDRAW VBAの世界は、正しく学べばあなたの強力な武器になります。
また次の講義でお会いしましょう。応援していますよ。
