こんにちは！CorelDRAWの自動化の世界へようこそ。
日々、デザインの現場で「あ、またページの寸法が変わったから、出血（塗り足し）のガイド線を全部引き直しだ…」「四方のマージン計算、めんどくさいな…」なんて絶望していませんか？
マクロの記録ボタンを押してポチポチ操作するだけの「初心者モード」は、今日で終わりにしましょう。
今回は、指定した基準点からオフセットした内側に、「塗り足し確認用の四方ガイド線」を正確無比にドローするプロ仕様の自動化スクリプトを授けます。
ここをクリアすれば、CorelDRAW VBAのオブジェクトのライフサイクルと座標系の本質がグッと見えてきますよ。さあ、一緒に扉を開けましょう！
—
1. なぜ「マクロの記録」だけでは実務で使い物にならないのか？
CorelDRAWの「マクロの記録」は便利ですが、出力されるコードは「今、画面上のどこをクリックしたか」という絶対座標や選択状態に依存しています。そのため、ドキュメントのサイズが変わったり、ページの向きが横から縦に変わったりした途端に使い物にならなくなります。
プロのエンジニアが書くVBAは違います。
- 「今アクティブなページのサイズを動的に取得する」
- 「そこから逆算して、論理的な位置にガイド線を計算配置する」
この「動的な計算ロジック」を組み込むことで、どんな変形サイズにも一瞬で追従する、揺るぎない自動化ツールが完成するのです。
—
2. コア概念：CorelDRAWの座標系とガイド線の正体
コードを書く前に、CorelDRAWのキャンバス空間のルールを知っておく必要があります。
1. 原点（0,0）はどこか？
CorelDRAWのデフォルトでは、ページの左下が原点 $(0, 0)$ です（※設定で変更可能ですが、コード内ではアクティブページの寸法を基準にします）。
2. ガイド線はどのレイヤーに属するか？
ガイド線は通常の図形（矩形など）とは異なり、ページ固有の「ガイド線レイヤー」に配置されます。これを意識しないと、「ガイド線が消せない」「別ページに反映されない」という泥沼にハマります。
—
3. 実装コード：一瞬で四方ガイド線を引くプロの作法
以下のコードをCorelDRAWのVBAエディタ（Alt + F11）に貼り付けて実行してください。
現在のドキュメントのアクティブページサイズを自動取得し、指定した「出血幅（例: 3mm）」の内側に、完璧なガイド線を四方に引くスクリプトです。
Sub DrawBleedGuides()
‘ =====================================================================
‘ テーマ: 指定した基準点からオフセットした内側に、塗り足し確認用の四方ガイド線を引く
‘ 執筆者: チーフアーキテクト
‘ =====================================================================
‘ エラーハンドリングの有効化（予期せぬクラッシュを防ぐプロの作法）
On Error GoTo ErrorHandler
‘ 1. ドキュメントが開かれているかチェック
If ActiveDocument Is Nothing Then
MsgBox “ドキュメントが開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 2. アクティブなページの取得
Dim activePage As Page
Set activePage = ActiveDocument.ActivePage
‘ 3. 単位をミリメートル（mm）に強制固定（環境依存を防ぐため）
Dim originalUnit As Long
originalUnit = ActiveDocument.Unit
ActiveDocument.Unit = cdrMillimeter
‘ 4. ページの幅と高さを取得
Dim pageWidth As Double
Dim pageHeight As Double
pageWidth = activePage.SizeWidth
pageHeight = activePage.SizeHeight
‘ 5. 出血（オフセット）幅の設定（ここでは 3mm と定義）
Dim bleedOffset As Double
bleedOffset = 3.0
‘ 6. ガイド線レイヤーの取得または特定
‘ CorelDRAWではガイドはガイド用レイヤーに配置するのが定石です
Dim guideLayer As Layer
Set guideLayer = activePage.GuidesLayer
‘ 7. 四方のガイド線を計算して配置
‘ —————————————————————–
‘ 注意: CorelDrawのガイド作成メソッド
‘ guideLayer.CreateGuideline(X, Y, Angle)
‘ 水平ガイドラインのY座標、垂直ガイドラインのX座標を指定します。
‘ —————————————————————–
‘ ① 左側の縦ガイドライン（X座標をオフセット）
Dim leftX As Double
leftX = bleedOffset
guideLayer.CreateGuideline leftX, 0, 90 ‘ 90度は垂直方向
‘ ② 右側の縦ガイドライン（ページ幅 – オフセット）
Dim rightX As Double
rightX = pageWidth – bleedOffset
guideLayer.CreateGuideline rightX, 0, 90
‘ ③ 下側の横ガイドライン（Y座標をオフセット）
Dim bottomY As Double
bottomY = bleedOffset
guideLayer.CreateGuideline 0, bottomY, 0 ‘ 0度は水平方向
‘ ④ 上側の横ガイドライン（ページ高さ – オフセット）
Dim topY As Double
topY = pageHeight – bleedOffset
guideLayer.CreateGuideline 0, topY, 0
‘ 8. 単位を元の設定に戻す（クリーンアップの美学）
ActiveDocument.Unit = originalUnit
‘ 完了メッセージ
MsgBox “塗り足し確認用ガイド線の自動配置が完了しました！”, vbInformation, “処理成功”
Exit Sub
ErrorHandler:
‘ 万が一のエラー時に単位を戻して異常終了を防ぐ
ActiveDocument.Unit = originalUnit
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
—
4. コードのここがポイント！知っておくべき技術的解説
初心者から一歩抜け出すために、このコードの重要なポイントを3つ解説します。
① 単位の強制固定 (`ActiveDocument.Unit = cdrMillimeter`)
CorelDRAWは、ユーザーの設定によってドキュメントの単位が「インチ」だったり「ピクセル」だったりします。そのまま `bleedOffset = 3` と書くと、ユーザーの環境次第で「3インチ（約76mm）の怪物ガイド」が生成されてしまいます。
最初に単位を強制的にミリメートル(`cdrMillimeter`)へ固定し、処理の最後に元の単位に戻す。これが環境に依存しない堅牢なコードを書く極意です。
② `CreateGuideline` メソッドの引数トリック
ガイド線を引く `CreateGuideline` メソッドは、少し癖があります。
- 引数は `(X座標, Y座標, 角度)` です。
- 垂直ガイド（角度: 90度）を引く場合、Y座標はどこでも通りますが、通常は `0` を指定し、X座標に「引きたい位置」を指定します。
- 水平ガイド（角度: 0度）を引く場合は、反対にX座標を `0` にし、Y座標に「引きたい位置」を指定します。
この軸の考え方を理解していれば、どんな複雑なレイアウト補助線も自由自在です。
③ エラーハンドリングとクリーンアップ
プログラミングで一番やってはいけないのが、「エラーが起きた時にドキュメントの単位や選択状態が狂ったまま放置されること」です。
`On Error GoTo ErrorHandler` を仕込み、万が一途中でエラーが発生しても、必ず元の単位に戻す処理（クリーンアップ）を通す構造にしています。
—
5. よくあるつまずきポイント（Q&A）
Q. 実行してもガイド線が見えません！
A. CorelDRAWの表示設定で「ガイド線の表示（View > Guidelines）」がオフになっていませんか？また、ガイド線が現在のオブジェクトの色と同化している可能性もあります。レイヤーパレットで `GuidesLayer` に線が生成されているか確認してみてください。
Q. ページの「塗り足し（Bleed）」設定値と連動させたいです。
A. 素晴らしい着眼点です！CorelDRAWのドキュメントプロパティには `ActiveDocument.DocumentSettings.Bleed` などのプロパティが存在します。これらを動的に取得するようにコードを拡張すれば、ドキュメント設定で変更した出血幅に完全連動する究極のスクリプトに進化します。
—
まとめ
お疲れ様でした！
今回学んだ「アクティブサイズの動的取得」「単位の安全な固定」「ガイドレイヤーへの正確な座標計算」は、CorelDRAW自動化のあらゆる場面で応用できる黄金のパターンです。
ここをクリアしたあなたなら、もう単なる「VBA初心者」ではありません。
ぜひ、ご自身の業務に合わせてこのコードをカスタマイズし、退屈な手作業から解放されたクリエイティブな時間を手に入れてください。それでは、次回の高度な自動化の世界でお会いしましょう！
