CorelDRAW VBAを掌握する極限の知見：大量パスデータに対する高速ブール演算自動化の設計と実装
CorelDRAW VBAにおける最大のボトルネックは、GUIとCOM（Component Object Model）のラウンドトリップ、そして不適切なオブジェクトライフサイクル管理によるメモリリークだ。特に「結合（Combine）」「溶接（Weld）」「交差（Intersect）」といったブール演算処理を数千オーダーのパスデータに対してループ処理させる場合、素朴なコードを書けばたちまちCorelDRAWはフリーズし、最悪の場合はOSごとメモリを食いつぶす。
本稿では、シニアエンジニアおよび大規模なDTP自動化システムを担うシステム管理者に向け、CorelDRAWの内部アーキテクチャを逆手に取った極限のパフォーマンス最適化手法と、実戦で破綻しない堅牢な一括ブール演算自動化の全貌を解説する。
—
1. CorelDRAW VBAにおけるブール演算の罠とShapeRangeの真実
多くの開発者が犯す最初の過ちは、単一の `Shape` オブジェクトに対して泥臭く `.Weld()` や `.Combine()` を繰り返し呼び出すことだ。これは各演算ごとにCOMのマーシャリングが発生し、描画更新（ScreenUpdating）が走るため、計算量が $O(N^2)$ に跳ね上がり実用に耐えない。
瞬時処理を実現する鉄則
1. ShapeRangeのコンテナとしての活用: 個別ではなく、配列やコレクション、あるいは直接 `ActiveDocument.Selection` や新規作成した `ShapeRange` にターゲットをまとめ、一括でメソッドを叩く。
2. 描画イベントと自動処理の完全抑制: `Optimization = True` を宣言し、VBA実行中の画面描画、イベントトリガー、ガベージコレクションの干渉を物理的に遮断する。
3. オブジェクト変数の即時破棄（解放）: ループ内で生成される中間シェイプは、明示的に `Nothing` を代入してCOM参照カウンタを即座にデクリメントしなければならない。これを怠ると、CorelDRAWの内部ヒープ領域が断片化し、OOM（Out of Memory）エラーを引き起こす。
—
2. 実装コード：大量パスデータの高速バッチ処理エンジン
以下に、実業務の現場でそのまま稼働できる、極限まで最適化されたVBAコードを示す。このコードは、指定レイヤー上の全パスデータをスキャンし、グループ単位で高速に溶接・結合処理を行うものである。
Option Explicit
‘ Win32 API: 処理中のフリーズを防ぎつつ、OSにCPUサイクルを譲るためのスリープ関数（必要に応じて使用）
If VBA7 Then
Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
Sub ExecuteHighSpeedBooleanOperations()
Dim startTime As Double
startTime = Timer
‘ ==========================================
‘ 1. システム環境の極限最適化（パフォーマンスの神髄）
‘ ==========================================
With Application
.Optimization = True ‘ 画面描画、再計算、イベントを完全停止
.EventsEnabled = False ‘ イベントハンドラの割り込みを禁止
.UndoBegin “Batch Boolean Optimization” ‘ 単一のトランザクションとしてUndoスタックに積む
End With
On Error GoTo ErrorHandler
Dim doc As Document
Set doc = ActiveDocument
Dim targetLayer As Layer
Set targetLayer = doc.ActiveLayer
Dim srAll As ShapeRange
Set srAll = targetLayer.Shapes.FindShapes(Type:=cdrCurveShape)
If srAll.Count = 0 Then
MsgBox “処理対象となる曲線（パス）が存在しません。”, vbExclamation
GoTo CleanUp
End If
‘ ==========================================
‘ 2. バッチ処理ループとメモリ管理
‘ ==========================================
‘ ここでは例として、特定の条件（例: 交差するエリアや近接パス）で
‘ ShapeRangeを動的に生成し、Weld（溶接）を一括適用するアルゴリズムを構築する。
Dim sh As Shape
Dim processingRange As ShapeRange
Set processingRange = New ShapeRange
Dim i As Long
Dim batchSize As Long
batchSize = 100 ‘ メモリ爆発を防ぐためのチャンク分割サイズ
Dim weldTarget As Shape
For i = 1 to srAll.Count
Set sh = srAll(i)
‘ ジオメトリの有効性チェック（ゼロレングスや不正パスの除外）
If Not sh Is Nothing Then
If sh.Type = cdrCurveShape Then
processingRange.Add sh
End If
End If
‘ チャンクサイズに到達した場合、または最後の要素に到達した場合に一括処理
If processingRange.Count >= batchSize Or i = srAll.Count Then
If processingRange.Count > 1 Then
On Error Resume Next
‘ 一括溶接の実行。CorelDRAWの内部C++エンジンへ一括ポインタを渡す
Set weldTarget = processingRange.Weld(Nothing, False, False)
On Error GoTo ErrorHandler
‘ 中間オブジェクトの確実な解放
If Not weldTarget Is Nothing Then
Set weldTarget = Nothing
End If
End If
‘ ShapeRangeコンテナのクリア（参照の断ち切り）
Set processingRange = Nothing
Set processingRange = New ShapeRange
End If
‘ 定期的にメモリ解放を促すためのインターバル（大量データ処理時の安定化）
If i Mod 500 = 0 Then
DoEvents
End If
Next i
CleanUp:
‘ ==========================================
‘ 3. 状態の正常復帰とリソース開放
‘ ==========================================
With Application
.UndoEnd
.Optimization = False
.EventsEnabled = True
.Refresh
End With
‘ オブジェクト変数の完全破棄
Set processingRange = Nothing
Set srAll = Nothing
Set targetLayer = Nothing
Set doc = Nothing
MsgBox “一括ブール演算処理が完了しました。\n処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, vbInformation, “完了”
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “System Error”
Resume CleanUp
End Sub
—
3. シニアエンジニアが押さえるべきアーキテクチャ上の注意点
オブジェクトの「ゾンビ化」とCOM参照カウンタ
VBA上で `Set sh = Nothing` を実行しても、CorelDRAWのC++コア側で参照が残っている場合、メモリリークが発生する。特に `.Weld()` や `.Combine()` などの破壊的操作（Original shapesが削除され、新しいShapeが生成されるメソッド）を実行すると、元の `Shape` ポインタは無効（ゾンビ状態）になる。
無効になったポインタに対してプロパティやメソッドを叩くと、VBAのランタイムエラーではなく、CorelDRAW自体の即座な強制終了（クラッシュ）を招く。これを防ぐためには、破壊的メソッドの実行後は必ず変数のスコープをリセットするか、新しく返されたオブジェクト参照に付け替える必要がある。
トランザクション管理（Undoバッファの爆発防止）
数千個のオブジェクトに対して個別に変更を加えると、CorelDRAWのUndo（元に戻す）スタックがメモリを圧迫し、スワップ領域を使い果たしてパフォーマンスが急低下する。
必ずコードの冒頭で `.UndoBegin` を宣言し、一連のバッチ処理全体を「単一のアトミックな操作」として扱わせること。これにより、メモリ消費量を劇的に抑えつつ、処理速度を最大化できる。
—
4. システム間連携（外部CLI/API連携）への拡張性
VBA単体では、外部の巨大なデータベースやCAD図面（DXF/DWGなど）からのストリーム入力において、ファイルI/Oの性能限界にぶつかることがある。
もし処理するパスデータが数万〜数十万点に及ぶ場合、VBAをホストとして完結させるのではなく、C# (.NET Framework / .NET Core) によるCOMアドイン、または外部Automation (EXE) サーバーを構築し、CorelDRAWをバックグラウンド（Invisible Mode）で起動して処理を肩代わりさせるアーキテクチャを採用すべきである。
// C# による外部制御の概念コード例
CorelDRAW.Application app = new CorelDRAW.Application();
app.Visible = false;
app.Optimization = true;
CorelDRAW.Document doc = app.OpenDocument(@”C:\Data\input.cdr”);
// 高速なLINQや独自アルゴリズムによるパス解析・ブール演算の指示
// …
doc.Save();
app.Quit();
しかし、社内ニッチな自動化や、既存のレガシーなCorelDRAWマクロ環境をそのまま維持・高速化しなければならない現場においては、本稿で示した `Application.Optimization = True` と厳格な `ShapeRange` バッチ処理の組み合わせこそが、最も確実で投資対効果の高いソリューションとなる。
アーキテクトとしての誇りを持ってコードを最適化し、手作業で何時間もかかっていた地獄のようなルーチンワークを、わずか数秒の優雅なバックグラウンド処理へと昇華させてほしい。
