CorelDRAW VBA：大規模バッチ処理の「死」を回避するメモリ管理と堅牢なエラーハンドリング
CorelDRAWのVBAで数千、数万のベクターデータを連続処理しようとして、プロセスが肥大化し、最後にはフリーズ、あるいは突然のクラッシュに見舞われたことはないだろうか？
多くの開発者は「VBAはこういうものだ」と諦めるが、それは間違いだ。CorelDRAWが落ちる原因の9割は、COMオブジェクトの不適切な解放と、スタックに積み上がった例外処理の不備にある。
本記事では、プロフェッショナルな現場で通用する、メモリリークを徹底的に排除した「極限のバッチ処理」の設計論を授ける。
—
1. なぜ「ゾンビプロセス」は生まれるのか？
CorelDRAWのCOMオブジェクト（`Shape`, `Layer`, `Document`等）は、VBAの変数に代入された時点で内部的に参照カウントが増加する。ループ処理の中でこれらを不用意に生成し、明示的に解放しないと、CorelDRAWはメモリを食い尽くし、Windows OSがリソースを保護するためにプロセスを強制終了させる。
特に「バックグラウンドでのファイル保存」や「フォーマット変換」を伴う処理では、このリークが致命的となる。
鉄則：オブジェクトのスコープと解放の連鎖
コードブロック内での参照は必ず `Nothing` に戻す。これができないエンジニアに、大規模な自動化を組む資格はない。
—
2. 実装の要：堅牢なエラーハンドリング・パターン
大規模バッチ処理において、単なる `On Error Resume Next` は百害あって一利なしだ。エラーが発生した際、どのオブジェクトが生き残っているかを特定し、強制的にクリーンアップする「リカバリ・セーフティ・パターン」を実装せよ。
プロダクションコード例：堅牢なバッチ処理テンプレート
Public Sub RobustBatchProcessor()
Dim doc As Document
Dim shp As Shape
Dim i As Long
‘ エラーハンドリングの要：エラー発生時は即座にクリーンアップへ
On Error GoTo Cleanup
For i = 1 To 1000
‘ 1. ドキュメントを開く（処理ごとに必ず開閉を制御）
Set doc = Application.OpenDocument(“C:\Data\Source_” & i & “.cdr”)
‘ 2. メイン処理ロジック
ProcessDocument doc
‘ 3. 保存・閉じる
doc.Export “C:\Data\Output_” & i & “.eps”, cdrEPS
doc.Close
‘ 4. オブジェクトの明示的解放（重要）
Set doc = Nothing
‘ 5. メモリ解放の促進（VBAのガベージコレクタを叩く）
DoEvents
Next i
Exit Sub
Cleanup:
‘ エラー発生時の安全策
If Not doc Is Nothing Then
doc.Close
Set doc = Nothing
End If
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
End Sub
Private Sub ProcessDocument(ByRef doc As Document)
‘ メモリリークを防ぐため、Shapeの列挙は慎重に行う
Dim s As Shape
For Each s In doc.ActivePage.Shapes
‘ ここで重い処理を行う
‘ 処理が終わるごとに参照を解放する
Next s
End Sub
—
3. ベクターグラフィックス自動化の「禁じ手」と「推奨」
禁じ手：UIの更新を止めない
`Application.Optimization = True` は必須だ。これを行わないと、全ての操作が画面描画を伴い、メモリとCPUを無駄に消費する。
推奨：外部DB連携の注意点
データベースからファイルパスを取得して処理する場合、データベース接続オブジェクト（ADODB.Connection）をループ内に置くな。 接続のオーバーヘッドでCorelDRAWの反応速度が鈍化し、タイムアウトやコネクションリークを引き起こす。必ず処理の前後でオープン・クローズを完結させること。
—
4. プロの視点：なぜこの設計が「落ちない」のか
1. 参照の明示的破棄 (`Set = Nothing`): COMオブジェクトはVBA側から「使い終わった」と明示的に宣言しない限り、CorelDRAWのプロセス内で生き続ける。`Nothing` への代入は、メモリリークを止める唯一の物理的手段である。
2. `DoEvents` の適切な挿入: 長時間ループでは、OSからのメッセージキューが詰まる。`DoEvents` は単なる「待機」ではなく、OSとCorelDRAW間のプロセス間通信（IPC）を正常化させるための「心臓マッサージ」である。
3. カプセル化: 処理単位を `Sub` に分割せよ。VBAのスタック変数は、プロシージャを抜けることでスコープが終了し、メモリが解放されやすくなる。
—
結論：コードは「芸術」ではなく「構造物」
VBAはレガシーな言語だと揶揄されるが、CorelDRAWのAPIを操る以上、その背後にあるCOMの挙動を理解し、メモリを制御する能力が問われる。
あなたが書くコードは、単なる自動化ツールではない。長時間労働を強いられるデザイナーを救い、ヒューマンエラーを根絶する「堅牢なエンジン」であるべきだ。
次にバッチ処理を組むとき、すべての `Set` に `Nothing` を書き込む指先を意識してほしい。それが、プロのエンジニアの流儀だ。
