CorelDRAW VBAを掌握せよ：ActiveSelectionRangeによる「一括操作」の極意
業務自動化エンジニアとして断言する。CorelDRAWの自動化において、「選択状態」をいかにスマートにハンドリングできるかが、プロとアマの分かれ道だ。
多くの初心者が `ActivePage.Shapes` をループで回し、ひとつずつ座標を計算してプロパティを書き換える。それは非効率の極みだ。CorelDRAW VBAの真髄は、`ActiveSelectionRange` を抽象化し、オブジェクトの集合体として一括制御することにある。
今日は、実務で頻出する「バラバラに配置されたオブジェクトの一括整列・サイズ統一」を、堅牢かつ高速に実装するアーキテクチャを伝授する。
—
1. なぜ「個別のループ」ではなく「Range」なのか
パフォーマンスのボトルネックは、常に「VBAとCorelDRAWエンジンの間での通信回数」にある。個別に `Shape.Left = X` を繰り返せば、そのたびに描画再計算が走り、動作が重くなる。
`ActiveSelectionRange` は、選択された複数のオブジェクトを「単一のコンテナ」として扱う。これを利用すれば、以下のメリットがある。
- 描画更新の抑制: 一度の命令で集合体全体を操作できる。
- 座標計算の簡略化: `Range.BoundingBox` を使うことで、個々の座標を意識せず、グループ全体の中心や左端を基準にした整列が可能になる。
- 堅牢なエラーハンドリング: 選択解除や不正なオブジェクトが含まれた際のチェックが容易。
—
2. 【プロダクションコード】一括整列・リサイズ・スクリプト
このコードは、単に動くだけではない。実務で求められる「戻り値の確認」と「予期せぬエラーへの耐性」を考慮した設計だ。
‘ ==============================================================================
‘ 機能: 選択された全オブジェクトを一括リサイズし、指定位置へ整列する
‘ 注意: 事前に最低1つ以上のオブジェクトを選択しておくこと
‘ ==============================================================================
Public Sub OptimizeSelectedObjects()
Dim sr As ShapeRange
Dim sh As Shape
‘ 1. エラーガード: 選択がない場合は即座に離脱
If ActiveSelectionRange.Count = 0 Then
MsgBox “対象オブジェクトを選択してください。”, vbExclamation
Exit Sub
End If
‘ 2. 処理速度向上のための最適化
Optimization = True
ActiveDocument.BeginCommandGroup “BatchAlignAndResize”
On Error GoTo Cleanup ‘ 予期せぬエラー発生時は確実に終了処理へ
‘ 3. 現在の選択範囲をRangeオブジェクトとして保持
Set sr = ActiveSelectionRange
‘ 4. 一括サイズ変更 (すべて幅50mmに揃える例)
‘ 個別ループに見えるが、Range単位でプロパティを更新することで高速化される
sr.SetSize 50, 0 ‘ 幅50mmに設定、高さは比率維持(0)
‘ 5. 一括整列 (左揃え)
‘ BoundingBoxを利用して集合体として整列させる
sr.AlignToShape cdrAlignLeft, ActivePage.Shapes.All(1)
‘ 6. 完了処理
Cleanup:
ActiveDocument.EndCommandGroup
Optimization = False
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
—
3. 実務で「詰まらない」ための設計指針
① `Optimization = True` の強制的適用
CorelDRAW VBAにおいて、このフラグを立てないのは「ブレーキをかけながらアクセルを踏む」のと同じだ。画面の再描画を一時停止し、処理が終わった瞬間に一括反映させる。これだけで実行時間は1/10以下になることもある。
② `BeginCommandGroup` によるUndoの一括管理
マクロを実行した後、「Ctrl+Z」を一回押すだけで元の状態に戻せるか？ それがプロの仕事だ。この命令で囲むことで、実行した複数の操作を単一のUndoスタックとして履歴に残すことができる。これがないと、ユーザーは修正のたびに何度も「戻る」を押す羽目になる。
③ データベース/外部ファイル連携の注意点
もしこの処理にCSVやExcelの値を読み込ませる場合、「ループの中でファイルを開閉しない」こと。必ず先にデータを配列（Array）やコレクションにロードし、メモリ上で完結させてからCorelDRAWのオブジェクトモデルを叩け。ディスクI/Oは処理速度の最大の敵だ。
—
最後に：エンジニアとしての矜持
VBAは「古臭い言語」と揶揄されることもある。だが、CorelDRAWのような強力なグラフィックエンジンを制御する際、その直感的なオブジェクトモデルは依然として最強の武器だ。
今回紹介した `ShapeRange` を起点とした設計をマスターすれば、あなたの業務自動化ツールは「単なるマクロ」から、現場の誰もが頼りにする「生産性向上プラットフォーム」へと進化する。
次は、この `Range` を応用して「階層構造を維持したままの整列ロジック」を構築することに挑戦してみるといい。道は開ける。質問があればいつでも来い。
