CorelDRAW VBAを掌握する：数千のCDRファイルを「メモリリークなし」でバッチ処理する極限の設計論
CorelDRAWのVBA開発において、数百、数千という単位のCDRファイルを連続処理しようとした瞬間、エンジニアは「死の壁」に直面する。CorelDRAWのCOMプロセスは、驚くほど脆弱だ。ドキュメントを閉じるたびにメモリが少しずつ肥大化し、最終的には「メモリ不足（Out of Memory）」でプロセスが凍結する。
これはVBAのせいではない。COMオブジェクトの参照カウント（Reference Count）を正しく管理していない、我々開発者の設計の甘さが招く必然である。
本稿では、レガシーなVBA環境を極限まで制御し、数千のファイルを安定して処理し続けるための「メモリ解放の奥義」を伝授する。
—
1. 悲劇の正体：なぜ「Close」してもメモリは解放されないのか
VBAで `Document.Close` を呼んでも、CorelDRAWの内部エンジンは完全なクリーンアップを行わない。特に、`ShapeRange` や `Effect` 、あるいは `Application` オブジェクトの参照がメモリ上に残っていると、GC（ガベージコレクション）が発動せず、COMの参照リークが確実に発生する。
鉄則：オブジェクトを「スコープ」で殺せ
VBAのモジュールレベル変数や、長期間生存するオブジェクト変数は百害あって一利なしだ。すべてのオブジェクト参照は、可能な限り最小のスコープ（関数内）に閉じ込め、処理終了後に即座に `Nothing` を代入する。
—
2. 究極のメモリ管理実装パターン
大量バッチ処理における、メモリリークを根絶するためのテンプレートが以下だ。
‘ メモリ解放を意識したバッチ処理の核となる構造
Public Sub BatchProcessDocuments(folderPath As String)
Dim fso As Object
Dim file As Object
Dim doc As CorelDRAW.Document
Set fso = CreateObject(“Scripting.FileSystemObject”)
For Each file In fso.GetFolder(folderPath).Files
If LCase(fso.GetExtensionName(file.Path)) = “cdr” Then
‘ プロセス肥大化を抑えるための隔離された処理スコープへ
ProcessSingleFile file.Path
End If
Next file
‘ オブジェクトの完全解放
Set fso = Nothing
End Sub
Private Sub ProcessSingleFile(filePath As String)
Dim doc As CorelDRAW.Document
‘ ファイルを開く
Set doc = Application.OpenDocument(filePath)
‘ — ここに処理を記述 —
‘ 注意：ShapeRangeなどを作った場合は、必ずループ内でSet Nothingすること
‘ ———————–
‘ 処理終了後、即座にクリーンアップ
doc.Close
Set doc = Nothing
‘ 強制的にメモリを整理するためにWindows APIの呼び出しを検討する
‘ 大量処理の際は、一定数ごとにApplication.ProcessMessagesを呼ぶのも有効
DoEvents
End Sub
—
3. シニアエンジニアが仕込む「隠し味」：Windows APIの活用
VBA単体ではメモリ解放のタイミングを強制できない。しかし、Windows APIを使えば、プロセスのワーキングセット（メモリ使用量）をOSレベルで強制的に最小化できる。
以下のコードを標準モジュールに追加し、ファイル100個処理ごとに呼び出すことで、メモリの膨張を劇的に抑制できる。
If VBA7 Then
Private Declare PtrSafe Function SetProcessWorkingSetSize Lib “kernel32” ( _
ByVal hProcess As LongPtr, _
ByVal dwMinimumWorkingSetSize As LongPtr, _
ByVal dwMaximumWorkingSetSize As LongPtr) As Long
Private Declare PtrSafe Function GetCurrentProcess Lib “kernel32” () As LongPtr
Else
Private Declare Function SetProcessWorkingSetSize Lib “kernel32” ( _
ByVal hProcess As Long, _
ByVal dwMinimumWorkingSetSize As Long, _
ByVal dwMaximumWorkingSetSize As Long) As Long
Private Declare Function GetCurrentProcess Lib “kernel32” () As Long
End If
‘ メモリをOSに返還する魔術
Public Sub ForceGC()
Dim hProc As LongPtr
hProc = GetCurrentProcess()
‘ ワーキングセットを最小化し、OSにメモリを戻す
Call SetProcessWorkingSetSize(hProc, -1, -1)
End Sub
—
4. 最後に：プロの設計思想
数千のファイルを処理する際、最も重要なのは「VBAだけで完結させようとしないこと」だ。
もしCorelDRAWのプロセスが不安定なら、「100ファイル処理するごとに、VBAから自分自身を再起動する」か、「処理用スクリプトを別プロセスで起動し、1ファイルごとにCorelDRAWを再起動する」という荒技こそが、真の安定稼働を実現する。
- オブジェクトは使い捨てにする
- イベントハンドラ（Events）は極力使わない（メモリリークの温床）
- `Set Nothing` を信じすぎず、プロセス自体を再起動する勇気を持つ
この3点さえ守れば、CorelDRAWは、あなたの忠実な自動化マシンへと変貌するだろう。健闘を祈る。
