CorelDRAW VBAの「死の淵」を越える：数千のCDRを溶かすメモリ管理の極意
CorelDRAWの自動化において、数千単位のファイルを連続処理しようと試みた者は、必ず「ゾンビ」に遭遇する。処理後半で突然のフリーズ、メモリ不足（OOM）、あるいはバックグラウンドで生き残り続ける`CorelDRW.exe`の亡霊たち。
これらはVBAの単なるバグではない。COMオブジェクトのライフサイクル管理を怠ったエンジニアに対する、OSからの当然の報いだ。
本稿では、VBAというレガシーな枠組みの中で、いかにして「プロセスをクリーンに保ち、数千のベクターファイルを完走させるか」という極限の知見を共有する。
—
1. ゾンビプロセスの正体とメモリリークのメカニズム
VBAにおけるメモリリークの9割は、「暗黙的な参照」の放置にある。
`ActiveDocument`や`ActivePage`、あるいは`ShapeRange`を不用意に変数に代入したままループを回せば、それらはGC（ガベージコレクション）の対象外となり、ヒープ領域を食いつぶす。
特にCorelDRAWのCOMサーバーは、一度参照が切れた後もメモリ上で「幽霊」のように生き残ることが多い。これを防ぐ唯一の道は、徹底したオブジェクトの明示的解放と、プロセスの再起動戦略である。
—
2. 堅牢なメモリ管理を実装するための「アーキテクチャ」
連続処理の鉄則は、「1ファイル処理するごとに環境を初期化する」ことだ。1000個のファイルを1つのセッションで処理しようとしてはならない。
実践：CorelDRAWのセーフ・バッチ処理フレームワーク
以下のコードは、オブジェクトの参照を確実に切り、メモリリークを抑止するイディオムである。
‘ 【警告】全てのオブジェクト変数は必ず Nothing で解放せよ
Public Sub BatchProcessCorelFiles(ByVal folderPath As String)
Dim fso As Object: Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim folder As Object: Set folder = fso.GetFolder(folderPath)
Dim file As Object
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Path)) = “cdr” Then
‘ 1ファイルごとに処理を完結させ、スコープを閉じる
If Not ProcessSingleFile(file.Path) Then
Debug.Print “Failed to process: ” & file.Path
End If
End If
Next file
‘ 終了処理
Set fso = Nothing
End Sub
Private Function ProcessSingleFile(ByVal filePath As String) As Boolean
Dim doc As CorelDRAW.Document
Dim opt As CorelDRAW.StructImportOptions
On Error GoTo Cleanup
‘ 1. 開く
Set doc = CorelDRAW.OpenDocument(filePath)
‘ 2. 処理ロジック (例: Export)
‘ 巨大なオブジェクトを扱う際は、常に明示的な解放を心がける
‘ Set shape = doc.ActivePage.Shapes(1)
‘ … 処理 …
‘ Set shape = Nothing
‘ 3. 閉じる（必須）
doc.Close
ProcessSingleFile = True
Cleanup:
‘ 【核心】COM参照の完全抹消
If Not doc Is Nothing Then Set doc = Nothing
If Err.Number <> 0 Then ProcessSingleFile = False
End Function
—
3. Windows APIによる「ゾンビ撲滅」の最終手段
VBAレベルでいくら気をつけても、CorelDRAWのAPI自体がメモリを解放しきれないケースがある。その場合、外部プロセスからの監視が不可欠だ。
もしVBA単体での限界を感じたら、VB.NET等で書かれた「コントローラー」を介し、`Process.Kill()`を呼び出す設計に移行せよ。
‘ VB.NETによるプロセス監視・再起動の考え方
Public Sub SafeLaunch()
Dim proc As Process = New Process()
proc.StartInfo.FileName = “C:\Program Files\Corel\Programs64\CorelDRW.exe”
proc.Start()
‘ 処理時間が一定時間を超えたらゾンビとみなして強制終了
If Not proc.WaitForExit(60000) Then
proc.Kill()
proc.Dispose()
‘ ここで再起動処理へ移行
End If
End Sub
—
4. 伝説的エンジニアからの提言：シニアである君たちへ
1. DoEventsを使いこなせ： 大量処理中のUIフリーズは、Windowsメッセージキューの溢れが原因だ。`DoEvents`を適切なタイミングで挿入し、メッセージの停滞を防げ。
2. グローバル変数を捨てよ： 巨大なデータ構造を保持するグローバル変数は、メモリリークの温床そのものだ。処理は可能な限りプロシージャのローカルスコープ内で完結させろ。
3. レガシーと対話せよ： CorelDRAW VBAは古い技術だが、APIの深層を理解すれば、現役のどの言語よりも高速にグラフィックスを制御できる。メモリ管理を制する者が、このツールを制する。
自動化とは、単に手を動かすことではない。「システムが崩壊する予兆を先読みし、あらかじめ逃げ道を作っておくこと」こそが、真のエンジニアリングである。
君たちのコードが、明日も何千ものファイルを淀みなく処理し続けることを期待している。
