CorelDRAW VBAの「死の淵」から生還せよ：ドキュメント解放とメモリ管理の深淵
CorelDRAWのVBA開発において、数百、数千のファイルをバッチ処理した経験がある諸君なら、一度は直面したはずだ。「なぜ、処理が進むにつれてCorelDRAWのメモリ使用量が増加し続け、やがて沈黙するのか」。
これは、GC（ガベージコレクション）に依存しきったモダンな言語の甘い考えでは解決できない。CorelDRAWのオブジェクトモデルは、COMのラッパーであり、我々が明示的に参照を断ち切らぬ限り、プロセスは死にゆくのだ。
今日は、プロセスの安定性を担保するための「解放の流儀」を伝授する。
—
1. なぜ `Document.Close` だけでは不十分なのか
多くの初学者は `doc.Close` を呼べば安泰だと信じている。しかし、VBAのオブジェクト変数は、そのスコープ（プロシージャ）を抜けるまでメモリに居座る。特にループ内での生成と破棄を繰り返す場合、`Nothing` を明示的に代入しなければ、メモリリークの温床となる。
さらに恐ろしいのは、CorelDRAW側の内部キャッシュだ。ドキュメントを閉じた直後、OSのメモリ開放を待たずに次のプロセスへ突入する「急ぎすぎたコード」は、例外なくシステムを崩壊させる。
—
2. 実装のベストプラクティス：極限のメモリ管理手法
以下に、大量ファイルを安全に処理するためのテンプレートを示す。ここでのポイントは、「スコープの局所化」と「強制的な参照解除」、そして「プロセスの小休止」である。
‘ メモリリークを根絶するバッチ処理のテンプレート
Public Sub ProcessLargeFiles(fileList As Collection)
Dim i As Long
Dim doc As CorelDRAW.Document
For i = 1 To fileList.Count
‘ 1. ドキュメントを開く
Set doc = CorelDRAW.Application.OpenDocument(fileList(i))
‘ 2. 処理実行
Call PerformComplexOperations(doc)
‘ 3. 明示的な終了処理
‘ 保存が必要ならここで Save
‘ doc.Save
‘ ドキュメントを閉じる
doc.Close
‘ 4. ここが最重要：オブジェクト参照の強制破棄
Set doc = Nothing
‘ 5. メモリのフラッシュ（気休めではない、非常に重要）
‘ 大量処理時はDoEventsを挟み、メッセージキューを処理する
DoEvents
‘ Windows APIを利用したメモリ最適化の余地
‘ 必要に応じて SetProcessWorkingSetSize を呼び出すのが真の解
Next i
End Sub
—
3. 伝説的アーキテクトが教える「真の最適化」
もし、それでもメモリが溢れるというなら、それはCorelDRAWのプロセスそのものが疲弊している証拠だ。その場合、以下の手法を検討せよ。
A. SetProcessWorkingSetSizeによるメモリの強制的解放
Windows APIの `SetProcessWorkingSetSize` を呼び出し、CorelDRAWのメモリワーキングセットを最小限に抑え込む。これは最後の手段だが、レガシー環境での長時間稼働には不可欠だ。
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
End If
Public Sub FlushMemory()
‘ メモリを解放してOSに返す
Call SetProcessWorkingSetSize(GetCurrentProcess, -1, -1)
End Sub
B. プロセスの再起動という思想
VBAだけで完結させようとせず、処理数（例：50ファイル）を閾値とし、VBA自身がCorelDRAWを再起動するという設計思想を持つべきだ。COMサーバーが肥大化し続けるのは、CorelDRAWの構造上不可避な側面がある。再起動こそが、最も確実な「リセット」である。
—
4. 最後に：エンジニアとしての矜持
VBAはレガシーと言われる。だが、CorelDRAWの強力なグラフィックエンジンを操作する上で、これほどダイレクトに響く言語は他にない。
「動けばいい」というコードは、誰にでも書ける。しかし、深夜のバッチ処理中に落ちることなく、朝には完璧な成果物を提示するシステムこそが、プロフェッショナルの仕事だ。オブジェクトのライフサイクルを慈しみ、メモリの呼吸を感じろ。それが、CorelDRAW VBAを掌握する唯一の道だ。
コードは嘘をつかない。君がメモリを解放すれば、システムは必ず応えてくれる。
