マクロ記録の先へ。Bounding Box（外接矩形）を掌握し、デザインの「境界」を自動定義する
こんにちは。CorelDRAW VBAの世界へようこそ。
「マクロの記録」機能を使って、なんとか自動化の第一歩を踏み出したあなた。素晴らしいですね！その好奇心こそが、エンジニアとしての最も重要な資質です。
しかし、マクロの記録には決定的な弱点があります。それは「状況の変化に対応できない」こと。
「このボタンを押した」「この図形を動かした」という「動作」は記録できても、「図形の大きさに合わせて、ちょうどいい位置に線を引く」という「論理的な判断」を記録することはできないのです。
今日は、その壁を突破するための極めて重要な概念、「Bounding Box（バウンディングボックス／外接矩形）」の扱いについてお話ししましょう。
今回のゴールは、「ページ内の全オブジェクトを自動で検出し、その外側にピタリと沿うようにガイド線を引く」という、実務で即戦力となるツールを作ることです。これをマスターすれば、レイアウトの微調整という「手作業の苦行」から解放されるはずですよ。
1. 本質的な考え方：オブジェクトを「点」ではなく「領域」で捉える
プログラミング初学者が陥りやすい罠は、「図形を一つずつ調べて、その位置を計算しよう」としてしまうことです。
' 惜しい例：初心者がやりがちな非効率な思考
For Each s In ActivePage.Shapes
' 図形ごとの位置を計算して...
' それを全部足し合わせて...（ここで計算が複雑になり、エラーの温床に！）
Next sこれでは、図形が重なっていたり、複雑なグループ化がされていたりすると、計算が地獄のように難解になります。
プロのエンジニアは、CorelDRAWのAPIが持っている`ShapeRange`という強力なオブジェクトを活用します。
ページ上のすべての図形を一つの「グループ（集合体）」として扱い、その集合体全体が占めている「外側の枠（BoundingBox）」を、たった一行で取得するのです。
この「個別の要素ではなく、集合としての性質を見る」という視点こそが、コードをシンプルかつ高速にする鍵となります。
2. 実装：パスポート枠ガイド生成マクロ
それでは、魂を込めて書き上げたコードを見ていきましょう。このコードは単に動くだけでなく、「実行速度（パフォーマンス）」と「操作の安全性（Undoのしやすさ）」を極限まで考慮しています。
Option Explicit
''' <summary>
''' ページ内の全オブジェクトの外接矩形を取得し、
''' その境界にぴったり沿うようにガイド線を生成する。
''' </summary>
Sub GenerateBoundaryGuides()
Dim sr As ShapeRange
Dim bbox As BoundingBox
Dim margin As Double
' --- 設定エリア ---
' オブジェクトからどれくらい離してガイドを引くか（単位はドキュメント設定に従う）
' 0にすればピタリと沿います。
margin = 0
' ------------------
' 1. 高速化と操作性のための最適化
' 描画更新を停止することで、処理速度を劇的に向上させ、画面のチラつきを抑えます。
Application.Optimization = True
' 2. 「やり直し(Undo)」を一回で済ませるためのグループ化
' これがないと、ガイドを引くたびにUndo（Ctrl+Z）を何度も押す羽目になります。
ActiveDocument.BeginCommandGroup "Generate Boundary Guides"
On Error GoTo ErrorHandler
' 3. 全オブジェクトの取得
' ActivePage.Shapes.All は、ページ上のすべての図形を一つの ShapeRange として返します。
Set sr = ActivePage.Shapes.All
' オブジェクトが一つもない場合は、何もしないで終了
If sr.Count = 0 Then
MsgBox "ページ内にオブジェクトが見つかりません。", vbExclamation
GoTo CleanUp
End If
' 4. 外接矩形（BoundingBox）の取得
' これが魔法の一行です。集合体全体の「左・上・右・下」を一瞬で算出します。
Set bbox = sr.BoundingBox
' 5. ガイド線の生成
' bbox.LeftX, bbox.RightX などのプロパティを使って、正確な座標を指定します。
' margin を加減することで、少し余裕を持たせることも可能です。
With ActivePage
' 垂直ガイド (Vertical)
.AddGuide cdrVertical, bbox.LeftX - margin
.AddGuide cdrVertical, bbox.RightX + margin
' 水平ガイド (Horizontal)
.AddGuide cdrHorizontal, bbox.TopY + margin
.AddGuide cdrHorizontal, bbox.BottomY - margin
End With
MsgBox "ガイド線の生成が完了しました！", vbInformation
CleanUp:
' 6. 後処理（ここが重要！）
' Optimizationを戻さないと、CorelDRAWの動作が異常に重くなることがあります。
ActiveDocument.EndCommandGroup
Application.Optimization = False
Application.Refresh
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
Resume CleanUp
End Sub3. コードの深淵を読み解く：エンジニアの視点
このコードには、プロが現場で必ず使う「作法」が組み込まれています。
① `Application.Optimization = True` の重み
CorelDRAWは、プログラムから図形を操作するたびに「画面を書き直そう」とします。図形が100個あれば、100回画面を更新しようとして、動作が激重になります。
これを `True` にすることで、「計算が終わるまで画面は黙っていろ」と命令しているのです。これは、大規模な自動化を行う際の鉄則です。
② `BeginCommandGroup` と `EndCommandGroup`
マクロを実行した後、もし結果が気に入らなければ `Ctrl + Z` を押しますよね？
この記述がないと、ガイドを4本引いた場合、`Ctrl + Z` を4回押さないと元に戻りません。
これを使うことで、「マクロ全体を一つの動作」として登録でき、一撃で元の状態に戻せるようになります。ユーザーへの優しさ、それがプロの仕事です。
③ `BoundingBox` プロパティの威力
`sr.BoundingBox` は、単なる数値の集まりではありません。
`LeftX`（左端のX座標）、`RightX`（右端のX座標）、`TopY`（上端のY座標）、`BottomY`（下端のY座標）という、設計図における「境界線」を直接提供してくれる、極めて高機能なオブジェクトなのです。
4. 陥りやすいエラーと回避策
このマクロを運用する上で、以下の点に注意してください。
- 「空のページ」での実行:
オブジェクトが何もないページで `sr.BoundingBox` を呼び出すと、エラーが発生します。コード内で `If sr.Count = 0` とチェックを入れているのはそのためです。
- 座標系の混乱:
CorelDRAWの座標系は、ドキュメントの設定（ミリメートル、インチなど）に依存します。もし「少し隙間を空けたい」場合は、`margin` 変数に適切な数値を設定してください。
- 非表示レイヤーの扱い:
`ActivePage.Shapes.All` は、非表示のレイヤーにあるオブジェクトも計算に含める場合があります。もし「見えているものだけ」を対象にしたい場合は、さらにレイヤーの可視性を判定するロジックを追加する必要があります。
最後に：一歩踏み出したあなたへ
「マクロの記録」から卒業し、このように「ロジック」で動くコードを書き始めたとき、あなたのCorelDRAWスキルは「作業者」から「開発者」へと進化します。
今回学んだ 「集合体を捉える（ShapeRange）」 と 「境界を算出する（BoundingBox）」 という考え方は、あらゆる自動化に応用できる普遍的な概念です。
次は、このガイド線をもとに「自動で枠線を描画する」ことや、「オブジェクトを特定のサイズにリサイズする」ことに挑戦してみてはいかがでしょうか？
道は続いています。また次のステップでお会いしましょう！
