CorelDRAW VBAを掌握する極限の知見：ActiveSelectionRangeによる高速図形プロパティ一括置換の真髄
CorelDRAW VBAによる自動化の現場において、最も頻繁に発生するボトルネックの一つが「選択図形群に対するプロパティの動的走査と書き換え」である。
画面上でユーザーがバラバラに選択した複数のシェイプ（`Shape`オブジェクト）に対し、個別に色や輪郭線を設定するようなナイーブな実装は、CorelDRAWのCOMレイヤーとVBAランタイムの間で無数のラウンドトリップを発生させ、実用に耐えない描画遅延を引き起こす。さらに、オブジェクトの解放漏れによるメモリリークや、選択順序（Zオーダーや選択履歴）の意図せぬ崩壊は、DTPの現場において致命的なデータ破損の温床となる。
本稿では、`ActiveSelectionRange`を極限まで最適化し、選択順序を完全に維持したまま、メモリ効率と実行速度の極限を追求したプロパティ一括置換マクロの実装パターンを公開する。
—
1. CorelDRAWオブジェクトモデルの深層：`ShapeRange`の優位性
多くのアマチュアプログラマは、`ActiveDocument.Selection` をイテレートして個々のシェイプを操作する。しかし、これは最悪のアンチパターンである。
`Selection`（`Shape`コレクション）の操作は、COMオブジェクトのラッパーをその都度生成・破棄するため、数千個のオブジェクトを扱う大規模な製版データにおいて破滅的なパフォーマンス低下を招く。これに対し、`ActiveSelectionRange` は内部的に最適化された単一のメモリブロック（`ShapeRange`）として図形群を保持し、一括処理（Batch Processing）のAPIへダイレクトにアクセスするための強力な武器となる。
シニアエンジニアが押さえるべき設計原則
1. 暗黙の参照の排除: `ActiveShape` や `ActiveSelection` などのグローバルショートカットプロパティへの過度な依存を避け、ドキュメントスコープを明示的に変数にバインドする。
2. 画面描画の完全な抑制: 処理中の `ScreenUpdating` および `Optimization` モードの制御により、GDI/DirectX層の無駄な再描画コストを完全に断つ。
3. オブジェクトの明示的解放: ローカル変数として生成したRangeやColorオブジェクトは、スコープを抜ける前に `Nothing` を代入し、VBAのガベージコレクション（COMリファレンスカウント）に依存しない確実なメモリ解放を行う。
—
2. 実用コード：超高速プロパティ一括置換エンジン
以下のコードは、選択されたシェイプ群の「塗りつぶし色」と「輪郭線（のアウトライン）カラー・太さ」を選択順序を完全に保持した状態で一瞬で書き換える、実務即戦力のモジュールである。
Option Explicit
‘ =================================================================================
‘ Module: ModShapeBatchProcessor
‘ Description: ActiveSelectionRangeを活用した高速プロパティ一括置換エンジン
‘ Author: Chief Architect (CorelDRAW Automation Division)
‘ =================================================================================
Public Sub ExecuteBatchPropertyOverride()
Dim startTime As Double
startTime = Timer
‘ 1. アプリケーションの最適化モードを有効化（描画・イベントを完全凍結）
With CorelDRAW.Application
.Optimization = True
.EventsEnabled = False
.ActiveDocument.BeginCommandGroup “Batch Property Override”
End With
On Error GoTo ErrorHandler
‘ 2. 選択状態の検証
Dim doc As Document
Set doc = CorelDRAW.ActiveDocument
If doc.Selection.Shapes.Count = 0 Then
MsgBox “置換対象の図形が選択されていません。”, vbExclamation, “CorelDRAW Automation”
GoTo Cleanup
End If
‘ 3. ActiveSelectionRangeの取得（選択順序の維持）
Dim targetRange As ShapeRange
Set targetRange = doc.SelectionRange
‘ 4. 置換先カラーの定義（例としてCMYKプロセスカラーを使用）
Dim newFillColor As Color
Set newFillColor = CorelDRAW.CreateCMYKColor(0, 100, 100, 0) ‘鮮やかなレッド
Dim newOutlineColor As Color
Set newOutlineColor = CorelDRAW.CreateCMYKColor(100, 0, 0, 100) ‘リッチブラック
‘ 5. 高速バッチ処理の実行
Dim sh As Shape
For Each sh In targetRange
‘ コンテナやガイドライン、ロックされたオブジェクトの安全なスキップ判定
If Not sh.Locked Then
‘ 塗りつぶしの適用（種別に応じた安全なハンドリング）
If sh.Fill.Type <> cdrNoFill Then
sh.Fill.UniformColor = newFillColor
End If
‘ 輪郭線の適用
If sh.Outline.Type <> cdrNoOutline Then
sh.Outline.Color = newOutlineColor
sh.Outline.Width = CorelDRAW.ConvertUnits(1, cdrMillimeter, cdrPoint) ‘ 1mm幅に統一
End If
End If
Next sh
‘ コマンドグループの正常終了
doc.EndCommandGroup
‘ 完了ログ（イミディエイトウィンドウへ出力）
Debug.Print “Batch Process Completed. Target Count: ” & targetRange.Count & _
” / Execution Time: ” & Format(Timer – startTime, “0.000”) & ” sec”
Cleanup:
‘ 6. リソースの確実な解放と最適化の解除
Set sh = Nothing
Set targetRange = Nothing
Set newFillColor = Nothing
Set newOutlineColor = Nothing
Set doc = Nothing
With CorelDRAW.Application
.ActiveDocument.EndCommandGroup
.EventsEnabled = True
.Optimization = False
.Refresh
End With
Exit Sub
ErrorHandler:
‘ 異常系ハンドリング
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “System Error”
If Not doc Is Nothing Then doc.EndCommandGroup
Resume Cleanup
End Sub
—
3. コードの極限最適化ポイント解説
① `Optimization = True` と `EventsEnabled = False` のコンボ
CorelDRAW VBAにおいて、図形を1つ変更するたびにUIスレッドが再描画やイベント監視（スナップや選択境界の計算など）を行おうとする。これを明示的に無効化することで、数百〜数千のオブジェクトを操作する際の実行時間を、数秒から数十ミリ秒のオーダーへと劇的に短縮する。
② `BeginCommandGroup` によるアトミック（不可分）な履歴管理
DTPオペレーションにおいて「Ctrl + Z」による一括アンドゥ（Undo）の保証は絶対要件である。`BeginCommandGroup` と `EndCommandGroup` で処理を挟むことにより、ループ内の無数のプロパティ変更が単一の履歴としてスタックされ、メモリ効率とユーザーエクスペリエンスが飛躍的に向上する。
③ オブジェクト変数の明示的スコープアウトと `Nothing` 代入
VBAのCOMラッパーは、プロセス終了までメモリ上に残骸を残しやすい。特に `ShapeRange` や `Color` オブジェクトはメモリを圧迫するため、処理の終端（`Cleanup` ラベル）で確実に `Set … = Nothing` を実行し、参照カウントを即座にデクリメントさせることが、長期間稼働する社内サーバーやバッチ処理システムにおけるクラッシュを防ぐ唯一の解となる。
—
総括
CorelDRAW VBAの真のポテンシャルを引き出すには、単に「動くコード」を書くのではなく、背後にあるCOMアーキテクチャとCorelDRAWの描画エンジンのライフサイクルを完全に掌握する必要がある。
今回紹介した `ActiveSelectionRange` を軸としたバッチ処理パターンは、プラグイン開発や外部の基幹システム（ERP/PIM）からのデータ連携において、最も堅牢かつ高速な基盤となる。この知見をベースに、さらなる高度な自動化システムを構築してほしい。
