CorelDRAW VBAを掌握する極限の知見
第4回：デザインの変動にドキュメントが従属する――動的アートボードリサイズと最適配置のアーキテクチャ
パッケージデザイン、大型看板、そして多品種展開される什器のグラフィック制作現場において、デザイナーが最も時間を奪われる作業は何か。それは「コンテンツの増減に伴うドキュメントサイズ（ページ境界）の手動再計算と、全要素の再センタリング」という、創造性を微塵も刺激しない機械的作業である。
テキストの行数が増え、リード文のウェイトが変わり、装飾要素が外側に拡張した瞬間、アートボードの境界線をマウスでドラッグし、すべてのグループを選択し直して整列パネルを叩く。この絶望的なまでの手作業の繰り返しを、VBAのイベント駆動と境界ボックス（Bounding Box）の数学的解析によって完全に駆逐する。
今回は、CorelDRAWの内部構造とオブジェクトのライフサイクルを知り尽くしたシニアエンジニアへ向けて、デザイン要素の拡張・縮小にドキュメントが完全に追従する、実戦投入可能な自動レイアウト・アーキテクチャを提示する。
—
1. 境界ボックス（Bounding Box）解析の罠と真の解決策
CorelDRAW VBAでオブジェクト群の占有領域を取得する際、安易に `ActivePage.Shapes.All.BoundingBox` のようなプロパティを叩いていないだろうか。ここに中級者が陥る最初のパフォーマンスおよび精度の罠がある。
CorelDRAWの図形群は、線の太さ（Outline Width）、マイターリミット、ドロップシャドウやエンベロープなどのライブエフェクトを含んだ「視覚的バウンディングボックス（Visual Bounding Box）」と、パスの制御点のみに基づく「幾何学的バウンディングボックス（Object Bounding Box）」が存在する。
動的リサイズにおいてこれを誤ると、極太の輪郭線を持ったオブジェクトや効果がかかったグループの端がアートボードからはみ出し、次工程のRIPで致命的なエラーを引き起こす。正確な領域計算には、常に `cdrExactBoundingBox` を明示的に指定し、マトリックス変換のコストを最小化しなければならない。
—
2. 実装コード：動的リサイズ＆スマートセンタリング・エンジン
以下のコードは、選択された（あるいは指定レイヤー上の）全オブジェクトの正確な外接矩形を算出し、マージン（余白）を保持した状態でページサイズを動的に変更した上で、ドキュメントの中心へ一括して再配置するプロシージャである。
メモリリークを防ぐため、オブジェクト変数のスコープ管理と明示的な `Nothing` 代入を徹底している。
Option Explicit
‘ =================================================================================
‘ 処理名: 描画コンテンツへの動的ページフィット＆スマートセンタリングマクロ
‘ 概要 : アクティブレイヤー上の全シェイプの正確なバウンディングボックスを算出し、
ドキュメントサイズを余白付きで自動変更、同時に中央配置へ同期させる。
‘ =================================================================================
Public Sub ExecuteDynamicLayoutResize()
‘ 1. ワークスペースの最適化（画面描画とイベントを停止しパフォーマンスを最大化）
EventsEnabled = False
ActiveDocument.BeginCommandGroup “Dynamic Layout Resize”
Dim targetLayer As Layer
Set targetLayer = ActivePage.ActiveLayer
‘ 対象シェイプが存在するか検証
If targetLayer.Shapes.Count = 0 Then
MsgBox “処理対象となるシェイプが存在しません。”, vbExclamation, “CorelDRAW Automation”
GoTo Cleanup
End If
Dim doc As Document
Set doc = ActiveDocument
‘ ドキュメントの測定単位をミリメートルに強制固定（計算精度の担保）
Dim originalUnit As cdrUnit
originalUnit = doc.Unit
doc.Unit = cdrMillimeter
On Error GoTo ErrorHandler
‘ 2. 正確な外接矩形（Visual Bounding Box）の変数を定義
Dim minX As Double, minY As Double, maxX As Double, maxY As Double
Dim sh As Shape
Dim firstShape As Boolean
firstShape = True
‘ レイヤー内の全シェイプ（非表示・ロックを除く）を走査
For Each sh In targetLayer.Shapes
If Not sh.Immutable And Not sh.NoPrint Then
Dim sLeft As Double, sTop As Double, sRight As Double, sBottom As Double
‘ 線の太さや効果を含めた正確な座標を取得 (cdrExactBoundingBox)
sh.GetBoundingBox sLeft, sBottom, sRight, sTop, cdrExactBoundingBox
If firstShape Then
minX = sLeft
minY = sBottom
maxX = sRight
maxY = sTop
firstShape = False
Else
If sLeft < minX Then minX = sLeft
If sBottom < minY Then minY = sBottom
If sRight > maxX Then maxX = sRight
If sTop > maxY Then maxY = sTop
End If
End If
Next sh
‘ 有効なシェイプがなかった場合の離脱処理
If firstShape Then
GoTo RestoreUnit
End If
‘ 3. 余白（マージン）の設定 [単位: mm]
Const MARGIN_MM As Double = 10.0
Dim contentWidth As Double, contentHeight As Double
contentWidth = (maxX – minX) + (MARGIN_MM 2)
contentHeight = (maxY – minY) + (MARGIN_MM 2)
‘ 4. ページサイズの動的変更
‘ ※CorelDRAWの座標系起点は通常ページ左下 (0,0) だが、
‘ ページ中心を基準にリサイズすることでレイアウトの崩壊を防ぐ
Dim oldWidth As Double, oldHeight As Double
oldWidth = doc.ActivePage.SizeWidth
oldHeight = doc.ActivePage.SizeHeight
doc.ActivePage.SetSize contentWidth, contentHeight
‘ 5. コンテンツのセンタリング配置計算
‘ 新しいページの中心座標
Dim newCenterX As Double, newCenterY As Double
newCenterX = contentWidth / 2
newCenterY = contentHeight / 2
‘ 現在のコンテンツの中心座標
Dim currentCenterX As Double, currentCenterY As Double
currentCenterX = minX + ((maxX – minX) / 2)
currentCenterY = minY + ((maxY – minY) / 2)
‘ 移動量の算出
Dim deltaX As Double, deltaY As Double
deltaX = newCenterX – currentCenterX
deltaY = newCenterY – currentCenterY
‘ 6. 全シェイプの一括移動（グループ化のオーバーヘッドを回避）
Dim sAll As ShapeRange
Set sAll = targetLayer.Shapes.All
sAll.Move deltaX, deltaY
RestoreUnit:
‘ 単位を元の設定に戻す
doc.Unit = originalUnit
Cleanup:
‘ 7. オブジェクトの明示的解放（メモリリーク防止の鉄則）
Set sAll = Nothing
Set sh = Nothing
Set targetLayer = Nothing
Set doc = Nothing
ActiveDocument.EndCommandGroup
EventsEnabled = True
ActiveDocument.Windows(0.Refresh)
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “Critical Error”
Resume RestoreUnit
End Sub
—
3. チーフアーキテクトが解説するコードの急所
このコードが一般的な「ネットのサンプルコード」と一線を画す理由は、以下の3点にある。
A. `EventsEnabled = False` による描画サイクルの完全隔離
CorelDRAW VBAにおいて、マクロ実行中にシェイプが1つ移動するたびに内部のUI描画エンジンやプレビューキャッシュが更新される。これが数百個のオブジェクトを含むパッケージデザインであれば、数秒から数十秒の無駄な硬直を生む。処理の冒頭でイベントと画面描画を強制停止し、最後に明示的にリフレッシュをかけることで、実行速度を極限まで高めている。
B. グループ化（Group）をバイパスする `ShapeRange` の直接操作
オブジェクトの中心合わせを行う際、わざわざ一時的に `Shapes.Group` を組んでセンタリングし、最後に `Ungroup` するコードを見かけるが、これは悪手である。グループ化・解除のプロセスはUNDOスタックを無駄に肥大化させ、メタデータ（リンクや名前）の喪失リスクを伴う。
ここでは `targetLayer.Shapes.All` が返す `ShapeRange` に対して直接 `Move` メソッドを一括適用することで、階層構造を汚さずに高速な平行移動を実現している。
C. メモリライフサイクルの厳格な管理
VBAのガベージコレクションは頼りにならない。特にCOMオブジェクトを大量に扱うCorelDRAWのAPIラッパー（`Shape`, `Layer`, `Document` など）は、スコープを抜けてもメモリ上にゾンビ参照が残りやすい。プロシージャの終端（`Cleanup` ラベル）で、生成したすべてのオブジェクト変数に `Nothing` を明示的に代入し、VBAランタイムのメモリ空間をクリーンに保つ。
—
4. システム間連携への拡張：外部DB/CSVからのバッチ駆動
このマクロを単なる「手動実行用ボタン」で終わらせるな。
真の自動化エンジニアであれば、これを外部の生産管理システムやERP（CSV/JSON経由）からの指示と連動させる。
例えば、別システムから渡された仕様データに基づいてテキストフレームの文字列を書き換え、文字数が溢れたことでバウンディングボックスが拡大した瞬間、この `ExecuteDynamicLayoutResize` をサイレント実行（UI非表示）する。これにより、人間の目視確認と手動調整を完全に排除した「完全無人・自動面付け・自動パッケージジェネレーター」の骨格が完成する。
レガシーなVBAであっても、アーキテクチャの設計思想が正しければ、現代のスマートファクトリーの基幹を支える強靭なエンジンとなり得るのだ。
妥協のないコードと厳密なメモリ管理で、あなたのCorelDRAW環境を真の工業用自動化ラインへと昇華させよ。
