こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して、生成されたコードの山に絶望したことはありませんか？「記録されたコードを再生したら、なぜかエラーが出る」「ページごとに縦横が混ざっていて、ガイド線の位置が狂う」――そんな実務の壁にぶつかっていませんか？
大丈夫。今日、その悩みはすべてクリアできます。
世界最高峰の自動化エンジニアである私と一緒に、「ドキュメントの縦横を自動判別し、最適なガイド線を動的に配置するプロフェッショナルなマクロ」をその手に掴み取りましょう。
ここをクリアすれば、あなたのCorelDRAW VBAの基本はバッチリです。さあ、ワンランク上のエンジニアへの扉を開けましょう。
—
なぜ「マクロの記録」だけでは実務を制せないのか？
CorelDRAWの「マクロの記録」は優秀ですが、「今、何がアクティブなのか」という文脈（コンテキスト）を固定値で記録してしまいます。
例えば、「ページ1を選んでガイドを引く」という動作を記録すると、コードには `ActiveDocument.Pages(1).Activate` と書き込まれます。これでは、ページ数が変わったり、縦長と横長が混在するドキュメントでは使い物になりません。
プロのVBAコードは、オブジェクトのライフサイクルを理解し、「目の前にあるページが縦長ならこの処理、横長ならあの処理」と自律的に判断（分岐）させます。この思考法を手に入れることが、真の自動化への第一歩です。
—
縦横自動判別ガイド線エンジンの全体像
今回作成するマクロの設計思想はシンプルです。
1. アクティブドキュメントのすべてのページをループ（巡回）する。
2. 各ページの「幅（Width）」と「高さ（Height）」を取得し、比較する。
3. 幅 ＞ 高さ なら「横長ページ」、高さ ＞ 幅 なら「縦長ページ」と判定。
4. それぞれのレイアウトに最適なガイド線（マージンやセンターライン）を自動配置する。
それでは、開発現場でそのままコピペして使える実用コードを公開します。VBAエディタ（`Alt + F11`）を開き、標準モジュールに貼り付けてください。
実務直結！自動ガイド線配置マクロ
Sub ApplyResponsiveGuides()
‘ 画面描画を停止してパフォーマンスを極限まで高める（プロの必須テクニック）
ActiveDocument.Optimization = True
EventsEnabled = False
Dim p As Page
Dim docWidth As Double
Dim docHeight As Double
Dim guideLayer As Layer
On Error GoTo ErrorHandler
‘ ドキュメント内の全ページを走査する
For Each p In ActiveDocument.Pages
p.Activate
‘ ページの幅と高さを取得（単位はドキュメント設定に依存：通常はmm等）
docWidth = p.SizeWidth
docHeight = p.SizeHeight
‘ ガイド線を配置するための専用レイヤーを取得（なければ作成）
Set guideLayer = p.Layers.Find(“ResponsiveGuides”)
If guideLayer Is Nothing Then
Set guideLayer = p.Layers.Add(“ResponsiveGuides”)
End If
‘ ガイドレイヤーをアクティブにして操作可能にする
guideLayer.Activate
‘ 既存の同名ガイドが暴れないよう、一度クリアするなどの処理も有効ですが
‘ 今回はシンプルに新規追加するロジックにします
‘ 【分岐の核心】縦長か横長かを自動判別
If docWidth > docHeight Then
‘ ==========================================
‘ 横長（Landscape）ページ用のガイド線配置
‘ ==========================================
‘ 例: 左右マージン20mm、センター垂直線
Call AddGuideline(p, cdrGuidelinesVertical, 20) ‘ 左マージン
Call AddGuideline(p, cdrGuidelinesVertical, docWidth – 20) ‘ 右マージン
Call AddGuideline(p, cdrGuidelinesVertical, docWidth / 2) ‘ 中央垂直
Call AddGuideline(p, cdrGuidelinesHorizontal, docHeight / 2) ‘ 中央水平
Else
‘ ==========================================
‘ 縦長（Portrait）ページ用のガイド線配置
‘ ==========================================
‘ 例: 上下マージン25mm、センター垂直線
Call AddGuideline(p, cdrGuidelinesHorizontal, 25) ‘ 上マージン
Call AddGuideline(p, cdrGuidelinesHorizontal, docHeight – 25) ‘ 下マージン
Call AddGuideline(p, cdrGuidelinesVertical, docWidth / 2) ‘ 中央垂直
End If
Next p
CleanUp:
‘ 描画処理を復元
ActiveDocument.Optimization = False
EventsEnabled = True
ActiveWindow.Refresh
MsgBox “すべてのページのガイド線配置が完了しました！”, vbInformation, “自動化完了”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End Sub
‘ ————————————————–
‘ 補助プロシージャ: ガイド線を安全に追加する関数
‘ ————————————————–
Private Sub AddGuideline(ByVal targetPage As Page, ByVal guideType As cdrGuidelineType, ByVal position As Double)
Dim g As Shape
‘ ガイド線の作成（CorelDRAWのAPI仕様に準拠）
Set g = targetPage.Guides.Add(guideType, position)
‘ 必要に応じてガイドの色やロック属性を設定可能
‘ 例: g.Locked = True
End Sub
—
totalPages
コードの要所を、シニアエンジニアの視点で解説します。ここを理解すれば、あなたの引き出しは一気に広がります。
1. パフォーマンスの魔術：`Optimization = True`
大量のページを持つドキュメントに対してマクロを実行すると、画面がチラつき、処理が猛烈に遅くなります。
プロは `ActiveDocument.Optimization = True` を冒頭で宣言し、CorelDRAWの描画エンジンを一時停止させます。これにより、メモリ消費を抑え、実行速度を何倍にも跳ね上げることができます。処理の最後には必ず `False` に戻すことを忘れないでください。
2. ページの縦横判定ロジック
docWidth = p.SizeWidth
docHeight = p.SizeHeight
If docWidth > docHeight Then
‘ 横長
Else
‘ 縦長（正方形の場合は縦長側にフォールバック）
End If
非常にシンプルですが、これこそが実務で最も堅牢（ロバスト）な方法です。余計な数式は要りません。プロパティから直接取得した実数値を比較するだけで、ヒューマンエラーを完全にあぶり出すことができます。
3. レイヤー管理の美学
ガイド線を雑に配置すると、後からデザイン要素を選択する際に邪魔になります。
このコードでは、`p.Layers.Find(“ResponsiveGuides”)` を使い、ページごとに専用のガイド用レイヤーが存在するか確認しています。なければ動的に生成するため、ドキュメントの構造を汚しません。
—
陥りやすい罠とエラー回避の知見
実務でこのコードを運用する際、初心者が必ずハマる「罠」がいくつかあります。事前に回避策を知っておきましょう。
- 罠1：単位系のズレによる位置の狂い
- 原因: ドキュメントの単位が「ミリメートル（mm）」なのに、コード内でポイントやインチの感覚で数値を指定してしまう。
- 対策: CorelDRAW VBAは、ドキュメントで現在設定されている単位系をそのまま数値として受け取ります。UI上のルーラー単位とコードの数値を必ず一致させてください。
- 罠2：ページ切り替え時のコンテキスト喪失
- 原因: `For Each p In ActiveDocument.Pages` でループする際、`p.Activate` を挟まないと、裏で処理が走って予期せぬレイヤーにガイドが生成されることがあります。
- 対策: ループの先頭で必ず `p.Activate` を呼び出し、現在のフォーカスを明確に同期させましょう。
—
さあ、あなたのワークフローを自動化しよう
縦長と横長が入り混じった厄介なカタログ、図面、プレゼン資料――。これまで何時間もかけて手動でガイド線を引いていた作業が、この数行のマクロによって「一瞬」で終わります。
CorelDRAW VBAは、あなたの創造的な時間を奪う退屈な反復作業を破壊するための最強の武器です。
ここをクリアしたあなたなら、もう「初心者」ではありません。ぜひ今日の業務からこのコードを取り入れ、圧倒的なスピードを手に入れてください。
それでは、次の自動化の旅でお会いしましょう。Happy Coding!
