【CorelDRAW VBA】デザインの増減にアートボードが完全追従！天地左右の動的レイアウト自動化ロジック
デザインの現場において、パッケージの改版や看板のサイズ変更、多言語展開によるテキスト量の変動に伴う「アートボード（ページ）サイズの手動調整」ほど、生産性を削る無駄な作業はない。
「コンテンツを広げたはいいが、ページの境界からはみ出た」
「要素を中央に寄せ直すのに、いちいちバウンディングボックスの座標を計算して移動させている」
もし、あなたが未だにマウスクリックと目視でこれらの調整を行っているなら、今すぐその手を止めてほしい。CorelDRAW VBAを正しく掌握すれば、デザイン要素のライフサイクル（生成・変形・削除）を検知し、ドキュメントの天地左右のサイズをミリ単位で完全自動追従させるシステムを構築できる。
今回は、実務の現場で即座に稼働し、一切のバグを寄せ付けない堅牢なプロダクションコードと、その裏にあるアーキテクチャの極意を伝授しよう。
—
1. なぜ「力技のレイアウト調整」は破綻するのか？
多くの初級プログラマやデザイナーが書くVBAコードは、決まって次のようなアンチパターンに陥る。
- 選択セット（Selection）への過度な依存
`ActiveSelection.BoundingBox` を安易に信用し、非表示レイヤーやガイドライン、ロックされたオブジェクトまで計算に巻き込んでしまい、意図しない巨大なアートボードサイズになってしまう。
- 単位系の混乱（UnitMismatch）
CorelDRAWの内部は「Internal Units（通常はドキュメントのデフォルト単位やポイント）」で処理されるが、ユーザーインターフェース上のミリメートル（mm）やインチとの暗黙の変換ミスにより、数ミクロンのズレや無限ループを引き起こす。
- 画面描画のチラつきとパフォーマンスの劣化
レイアウト変更のたびに画面を再描画（Redraw）させ、巨大なベクターデータではフリーズを誘発する。
これらを解決するためには、「対象レイヤーの明確なフィルタリング」「正確なBBox（バウンディングボックス）の算出」「単位の厳密な管理」「描画抑制（Optimization）」の4点を死守した設計が必要不可欠だ。
—
2. 堅牢な自動追従レイアウトエンジンの設計方針
今回構築するマクロのアーキテクチャは以下の通りである。
1. 最適化モードの有効化: 処理開始時に画面描画とイベントを停止し、実行速度を極限まで引き上げる。
2. コンテンツ境界の正確な算出: ガイドラインや特定のシステムレイヤーを除外し、純粋な「デザイン要素のみ」の最外郭座標（Left, Top, Right, Bottom）を取得する。
3. パディング（余白）の動的付加: コンテンツの周囲に指定されたマージン（例: 10mm）を美しく持たせる。
4. ページサイズのリサイズとセンタリング: 算出した座標を基にドキュメントの幅と高さを再定義し、全要素を指定座標（通常はページ中央）へスマートにシフトする。
—
3. 【プロダクションコード】動的リサイズ＆センタリングマクロ
以下のコードは、エラーハンドリングとパフォーマンスチューニングを完備した実務レベルのモジュールである。VBAエディタ（Alt + F11）の標準モジュールにそのまま貼り付けて実行してほしい。
Option Explicit
‘ ==============================================================================
‘ 処理名: デザイントリガー型 アートボード自動追従＆センタリングエンジン
‘ 概要: アクティブページの全シェイプ（ガイド除く）のバウンディングボックスを
‘ 算出し、指定マージンを持たせた上でページサイズを動的に変更、配置を最適化する。
‘ ==============================================================================
Public Sub AutoFitArtboardToContent()
‘ パフォーマンスと安全性のための変数宣言
Dim activePageObj As Page
Dim shp As Shape
Dim targetShapes As ShapeRange
‘ 座標管理用変数（Internal Units: 通常はポイント）
Dim minX As Double, minY As Double, maxX As Double, maxY As Double
Dim docLeft As Double, docTop As Double, docRight As Double, docBottom As Double
Dim contentWidth As Double, contentHeight As Double
‘ 設定用マージン（単位: mm を CorelDRAWの内部単位に変換して使用）
Dim marginMM As Double
marginMM = 15# ‘ 周囲に持たせる余白（例: 15mm）
Dim marginInternal As Double
‘ — 1. エラーハンドリングとパフォーマンス最適化の開始 —
On Error GoTo ErrorHandler
‘ 画面描画の停止（フリッカー防止と処理速度向上）
CorelDRAW.Optimization = True
ActiveDocument.BeginCommandGroup “Auto Fit Artboard”
Set activePageObj = ActivePage
‘ ページ上にシェイプが存在するかチェック
If activePageObj.Shapes.Count = 0 Then
MsgBox “処理対象となるデザイン要素が存在しません。”, vbExclamation, “レイアウト調整”
GoTo CleanUp
End If
‘ 単位をミリメートルに一時固定（計算の確実性を担保するため）
Dim originalUnit As cdrUnit
originalUnit = ActiveDocument.Unit
ActiveDocument.Unit = cdrMillimeter
marginInternal = marginMM ‘ ミリメートル単位系でのマージン値
‘ — 2. コンテンツ境界の正確な算出（初期化） —
‘ 極端な初期値を設定
minX = 999999#
minY = 999999#
maxX = -999999#
maxY = -999999#
Dim shapeCount As Long
shapeCount = 0
‘ — 3. 効率的なシェイプ走査とBBoxマージ —
‘ ページ内のすべてのシェイプをスキャン（レイヤー構造を無視して実体を評価）
For Each shp in activePageObj.Shapes
‘ ガイドラインや非印刷オブジェクト、レイアウト枠を除外するロジック
If Not shp.Static Then ‘ ガイドライン等を除外
If shp.Type <> cdrGuidelineShape Then
‘ 各シェイプの絶対座標を取得し、全体の外郭を更新
If shp.LeftX < minX Then minX = shp.LeftX
If shp.BottomY < minY Then minY = shp.BottomY
If shp.RightX > maxX Then maxX = shp.RightX
If shp.TopY > maxY Then maxY = shp.TopY
shapeCount = shapeCount + 1
End If
End If
Next shp
‘ 有効なシェイプがなかった場合の離脱処理
If shapeCount = 0 Then
MsgBox “有効なベクター/テキスト要素が検出されませんでした。”, vbExclamation, “レイアウト調整”
GoTo CleanUp
End If
‘ — 4. 新しいページサイズの計算（マージン適用） —
docLeft = minX – marginInternal
docBottom = minY – marginInternal
docRight = maxX + marginInternal
docTop = maxY + marginInternal
contentWidth = docRight – docLeft
contentHeight = docTop – docBottom
‘ — 5. ドキュメント（ページ）サイズの動的変更 —
‘ CorelDRAWのページ原点は通常左下(0,0)またはページ中心。
‘ 今回はコンテンツを包含する最小サイズにページを設定し、原点を再調整する。
activePageObj.SetSize contentWidth, contentHeight
‘ ページサイズ変更に伴い、コンテンツ全体を新しいページの中心、
‘ もしくは指定の原点（例: 左下基準からのオフセット）へ移動させる。
‘ 今回は「コンテンツがページの中央に美しく収まる」ようシフト計算を実行。
Dim currentCenterX As Double, currentCenterY As Double
Dim targetCenterX As Double, targetCenterY As Double
Dim shiftX As Double, shiftY As Double
‘ 現在のコンテンツの中心座標
currentCenterX = (minX + maxX) / 2
currentCenterY = (minY + maxY) / 2
‘ 新しいページの中心座標（CorelDRAWのページ座標系は、ページ左下が (0,0) ではなく、
‘ ページ中心が (0,0) の仕様、あるいは左下が (0,0) の仕様が存在するため、
‘ Page.SetSize後のレイアウト原点に合わせた移動量を計算する）
‘ ※CorelDRAWの標準的なアクティブページの左下を基準とする場合：
‘ 新ページ幅・高さの半分をターゲットにする
targetCenterX = contentWidth / 2
targetCenterY = contentHeight / 2
‘ 移動差分の算出
shiftX = targetCenterX – currentCenterX
shiftY = targetCenterY – currentCenterY
‘ ページ内の全有効シェイプを一括移動（グループ化の必要なし）
For Each shp in activePageObj.Shapes
If Not shp.Static And shp.Type <> cdrGuidelineShape Then
shp.Move shiftX, shiftY
End If
Next shp
CleanUp:
‘ — 6. 状態の復元と後始末 —
ActiveDocument.Unit = originalUnit
ActiveDocument.EndCommandGroup
CorelDRAW.Optimization = False
ActiveWindow.Refresh
Exit Sub
ErrorHandler:
‘ エラー発生時の安全装置
CorelDRAW.Optimization = False
ActiveDocument.AbortCommandGroup
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的なエラー”
End Sub
—
4. このコードが「プロの仕事」である理由（技術的解説）
1. `Optimization = True` と `CommandGroup` の徹底
CorelDRAW VBAにおいて、ループ内でシェイプを動かしたりプロパティを変更したりすると、その都度DOMの再描画とUNDOバッファの書き込みが発生し、動作が極端に重くなる。`Optimization` を挟むことで、C++ネイティブ並みの高速処理を実現している。
2. `shp.Static` および `cdrGuidelineShape` の厳密な排除
実務データには、作業用のガイドラインや天地左右のトンボ、クリッピング用の枠線などが混入している。これらをコンテンツのバウンディング計算から除外しないと、アートボードが意図せず巨大化するバグを踏むことになる。
3. トランザクション構造（`BeginCommandGroup` / `AbortCommandGroup`）
万が一、予期せぬエラーが発生した場合でも、ドキュメントが中途半端な破壊的変更を受けたまま保存されるのを防ぐ。エラー時には確実に変更をロールバックする堅牢性を担保している。
—
5. 実務における外部連携・拡張のヒント
このマクロをさらに発展させ、真の「業務自動化基盤」へ昇華させるためのアプローチを提示しよう。
- Excel / CSVバッチ処理との統合
別系統のデータベースやCSVから「看板の仕上がりサイズ」や「可変テキスト」を読み込み、このVBAエンジンを外部（VBScriptやC#の外形アプリケーション）からCOMオートメーション経由でキックすることで、完全無人の「看板・パッケージ自動生成ライン」が完成する。
- PDF / 印刷用フォーマットへの自動書き出し
アートボードがコンテンツにピッタリスケールした直後に、以下のコードを末尾に追加するだけで、PDF/X-4形式での出力までをワンストップ化できる。
Dim expParams As StructPDFExportSettings
Set expParams = CreateStructPDFExportSettings
‘ PDF出力処理の記述…
ActiveDocument.PublishToPDF “C:\Output\Design_AutoFit.pdf”, expParams
総括
デザインの微調整という「人間がやるべきではない単純作業」は、コードによって完全にハックし、自動化するべきだ。今回提供したロジックをあなたの開発環境に組み込み、退屈な手作業からエンジニアリングの力で解放される快感をぜひ味わってほしい。
