CorelDRAW VBAを掌握する極限の知見：散らばるベクターを美しく統べる「グリッド自動整列エンジン」の構築
ベクターグラフィックスの現場において、無秩序に散らばったオブジェクトをマニュアルで整列させる作業ほど、エンジニアリングの精神に反する無駄はない。デザインレビューのたびに「もう少し間隔を詰めて」「きれいな格子状に並べて」という要求に手作業で応えているようでは、プロフェッショナルとは言えない。
今回は、CorelDRAWのVBA（Visual Basic for Applications）を用いて、アートボード上に散在する複数のベクター図形を動的に計算し、指定したマージンで整然とグリッド状に自動整列させる「グリッド自動整列エンジン」の設計と実装を解説する。
単なる初学者向けのコードスニペットにとどまらない。オブジェクトのライフサイクル管理、CorelDRAW特有の座標系の罠、そしてパフォーマンスを極限まで引き出すための実務的知見をここに凝縮する。
—
1. CorelDRAWアーキテクチャの核心：なぜ「安易なループ」は破滅を招くのか
CorelDRAWのDOM（Document Object Model）を操作する際、多くのプログラマが陥る罠が「不適切なオブジェクト参照とメモリリーク」だ。
VBAはCOM（Component Object Model）ベースの言語であり、内部で生成される `Shape` や `ShapeRange` などのラッパーオブジェクトは、明示的に解放しない限り、CorelDRAWのプロセス空間内に参照カウントを残し続ける。特に多数のベクター図形を一括処理するグリッド整列アルゴリズムでは、このゴミ（参照）が蓄積することで、最終的にVBAのランタイムエラーやCorelDRAW自体のフリーズを引き起こす。
シニアが守るべき3つの鉄則
1. Selectionの直接操作を避け、ShapeRangeにカプセル化する
2. ループ内での暗黙的なオブジェクト生成を排除する
3. 処理終了時には必ずオブジェクト変数を `Nothing` に明示解放する
—
2. 実装：グリッド自動整列マクロの全貌
以下のコードは、選択された複数のオブジェクトを指定された列数とマージンで自動的に等間隔のグリッド状に再配置する、実戦投入可能なプロダクションコードである。
Option Explicit
‘ ==============================================================================
‘ @Title: Advanced Grid Arranger for CorelDRAW
‘ @Description: 選択された複数のベクター図形を指定列数とマージンでグリッド状に整列する
‘ @Author: Chief Architect
‘ ==============================================================================
Public Sub ArrangeObjectsInGrid()
‘ 画面描画の凍結によるパフォーマンス爆発的向上
ActiveDocument.BeginCommandGroup “Grid Arrangement”
EventsEnabled = False
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
‘ ガード節：選択オブジェクトが存在しない場合
If sr.Count = 0 Then
MsgBox “整列させるオブジェクトを選択してください。”, vbExclamation, “グリッド整列エンジニア”
GoTo Cleanup
End If
‘ — パラメータ設定（実務ではUIフォームから動的に取得することを推奨） —
Dim maxColumns As Integer
maxColumns = 4 // 1行あたりの最大列数
Dim marginX As Double
Dim marginY As Double
marginX = 5# // 左右のマージン (mm)
marginY = 5# // 上下のマージン (mm)
‘ CorelDRAWの内部単位（通常はミリメートル等のDocument.Unitsに依存）に変換
marginX = ActiveDocument.ConvertUnits(marginX, cdrMillimeter, ActiveDocument.Unit)
marginY = ActiveDocument.ConvertUnits(marginY, cdrMillimeter, ActiveDocument.Unit)
‘ — レイアウト計算用変数 —
Dim i As Long
Dim currentX As Double
Dim currentY As Double
Dim startX As Double
Dim startY As Double
Dim maxRowHeight As Double
maxRowHeight = 0
Dim colIndex As Integer
Dim rowIndex As Integer
colIndex = 0
rowIndex = 0
‘ 基準点（最初に処理するオブジェクトの左上座標を取得）
‘ CorelDRAWのデフォルト座標系は左下原点(0,0)であることに注意！
‘ ここでは視覚的な自然さを優先し、最上部のオブジェクトのY座標を基準とする
‘ 初期位置の設定（選択範囲のバウンディングボックスの左上を基準とする）
Dim bLeft As Double, bTop As Double, bWidth As Double, bHeight As Double
sr.GetBoundingBox bLeft, bTop, bWidth, bHeight
startX = bLeft
startY = bTop
currentX = startX
currentY = startY
‘ — メインループ：オブジェクトの走査と再配置 —
Dim sh As Shape
For i = 1 To sr.Count
Set sh = sr(i)
‘ 現在の行で最も高いオブジェクトの高さを保持
If sh.SizeHeight > maxRowHeight Then
maxRowHeight = sh.SizeHeight
End If
‘ 座標の適用（CorelDRAWのShape.PositionEx または Left/Topプロパティ）
‘ Topはオブジェクトの上端、Leftは左端を指す
sh.LeftX = currentX
sh.TopY = currentY
‘ 次のオブジェクトのX座標を進める
currentX = currentX + sh.SizeWidth + marginX
colIndex = colIndex + 1
‘ 改行判定
If colIndex >= maxColumns Then
colIndex = 0
currentX = startX
currentY = currentY – maxRowHeight – marginY ‘ 下方向へ行を送る
maxRowHeight = 0 ‘ 行の高さをリセット
End If
‘ オブジェクト変数の個別解放
Set sh = Nothing
Next i
Cleanup:
‘ — 終了処理とメモリの明示的解放 —
EventsEnabled = True
ActiveDocument.EndCommandGroup
‘ COM参照の完全破棄
If Not sr Is Nothing Then Set sr = Nothing
MsgBox “グリッド整列が正常に完了しました。”, vbInformation, “グリッド整列エンジニア”
End Sub
—
3. コードの急所：シニアエンジニアが解説する実装のポイント
① 描画イベントの無効化（`EventsEnabled = False`）
CorelDRAW VBAにおいて、オブジェクトのプロパティ（`LeftX`, `TopY` 等）を変更するたびに画面の再描画（Redraw）走査が発生すると、処理速度が何倍にも低下する。
`EventsEnabled = False` および `BeginCommandGroup` を組み合わせることで、内部トランザクションとして処理をまとめ、実行速度を劇的に向上させるとともに、画面のちらつき（フリッカー）を完全に排除している。
② CorelDRAW固有の座標系（左下原点）の罠
一般的なGUIプログラミング（WindowsフォームやWeb）では「左上原点（Y軸が下向きに増加）」が主流だが、CorelDRAWの数学的モデルは「左下原点（Y軸が上向きに増加）」を基本としている。
そのため、行を下へ送る処理（Y方向の移動）においては、`currentY = currentY – (height + margin)` のように、Y座標を減算していく必要がある。この仕様を見落とすと、オブジェクトが意図せぬ方向へ飛んでいくか、重なって配置される惨劇を引き起こす。
③ 厳格なメモリ管理（Reference Cleanup）
VBAはガベージコレクションを持たない。ループ内で `Set sh = sr(i)` としている箇所や、最後に `Set sr = Nothing` を明示的に行っているのはそのためだ。
これを怠ると、CorelDRAWのプロセス内にCOMのゾンビ参照が残り、繰り返しマクロを実行した際にメモリリークによるパフォーマンス低下やクラッシュの原因となる。実務レベルのマクロでは、例外処理（`On Error Goto`）のクリーンアップブロックでも必ずこれらのオブジェクト解放を行うべきである。
—
4. さらなる高みへ：システム間連携と自動化の拡張
このマクロを単体のVBAスクリプトとして終わらせるのではなく、外部システム（ERPやPIM、あるいはExcelからのバッチ指示）と連携させることで、真の「業務自動化」が達成される。
- JSON/CSVからのパラメータインポート:
外部サーバーから出力された「マージン設定や列数」を記述したJSONファイルをVBAから読み込み、動的にグリッドレイアウトを変化させる。
- COMインターフェースを通した外部からのキック:
C#やVB.NETで作成された外部アプリケーションから、CorelDRAWのCOMコンポーネント（`CorelDRAW.Application`）をアタッチし、サイレントモードでこの整列ルーチンをバッチ実行する。
手作業によるレイアウト調整という非生産的なルーチンワークからデザイナーやオペレーターを解放し、デザインの構造化と自動化を推し進めてほしい。真のエンジニアリングとは、退屈な反復作業をコードの力で絶滅させることにある。
