CorelDRAW VBAを掌握する極限の知見：プロセス終了時のメモリリークを根絶せよ
開発プロジェクトのリーダーである私たちが、何千、何万という大量のCDR（CorelDRAW）ファイルを相手に連続バッチ処理を行うとき、最も恐ろしい敵は何だと思うか？
それは「構文エラー」でも「ファイル破損」でもない。タスクマネージャーの隅で静かに、しかし確実に肥大化し続け、数日稼働した挙句にシステムをクラッシュさせる「メモリリーク」だ。
「VBAは自動でメモリ管理してくれるから大丈夫だ」――そんな甘い認識で書かれたコードは、プロダクション環境において確実に爆発する。特にCorelDRAWのCOMオブジェクトモデルは、オブジェクト間の参照関係が極めて複雑であり、VBA側のスコープが外れただけでは背後にあるネイティブプロセス（C++のCOMインスタンス）が解放されないケースが多々存在する。
今回は、CorelDRAWバッチ処理におけるメモリリークを完全に根絶し、何日でも不眠不休で安定稼働し続ける「堅牢なオブジェクトライフサイクル管理」の極意を伝授しよう。
—
1. なぜCorelDRAW VBAはメモリリークを起こすのか？
CorelDRAWのVBA環境（VBA7 / 64bit含む）において、メモリリークの温床となるのは以下の3点だ。
1. 暗黙の参照の連鎖（Chained References）
`ActiveDocument.Pages(1).Layers(“Layer1”).Shapes(1)` のように、ドット（`.`）で繋いでオブジェクトを直接操作すると、VBAの裏側で一時的なCOM参照（インターフェースポインタ）が生成される。これらはコード側で変数に保持して明示的に破棄しない限り、VBAのガベージコレクタ（厳密にはCOMの参照カウンタ）の管理外となり、プロセス内に残存し続ける。
2. `Application` や `Document` の不適切な解放
バッチ処理内で新しくドントを開閉（`Open` / `Close`）する際、ドキュメントインスタンスや選択セットの参照がメモリ上に残ったまま次のループに進むと、参照カウントがゼロにならず、ファイルが閉じられてもメモリが解放されない。
3. エラーハンドリングの欠如による参照の吊るし（Dangling References）
途中でエラーが発生して処理が中断した際、`On Error Resume Next` などで強引にスルーされると、解放されるべきオブジェクトがメモリ上に宙吊りの状態になる。
—
2. 堅牢なメモリ管理を達成する3つの鉄則
プロフェッショナルな自動化エンジニアであれば、以下の設計原則をコードに強制させなければならない。
- 鉄則1：ドット繋ぎの多用を禁止し、変数を経由して必ず `Nothing` を代入する
- 鉄則2：バッチ処理のループ内で作られるオブジェクトは、ループの1イテレーションごとに確実に破棄する
- 鉄則3：例外発生時（`Error Handler`）であっても、確実にオブジェクトの解放ルートを通る構造にする
—
3. 【プロダクションコード】メモリリーク完全耐性・バッチ処理アーキテクチャ
以下に、大量のCDRファイルを別フォーマット（例：PDFやEPS）に変換しながら、メモリリークを完全に排除して何日でも稼働し続ける実用コードを示す。
このコードは、単に動くだけでなく、「オブジェクトのスコープ管理」「明示的なメモリ解放」「厳格なエラーハンドリング」を極限まで突き詰めたものだ。
Option Explicit
‘ メモリリーク根絶を証明するバッチ処理メインプロシージャ
Sub BatchProcess_CorelDRAW_MemorySafe()
Dim targetFolder As String
Dim exportFolder As String
Dim fileName As String
Dim cdrDoc As CorelDRAW.Document
Dim cdrApp As CorelDRAW.Application
‘ 処理対象ディレクトリの設定（環境に合わせて変更してください）
targetFolder = “C:\BatchInput\”
exportFolder = “C:\BatchOutput\”
‘ CorelDRAWアプリケーションインスタンスの取得
‘ ※バッチ処理では新規インスタンスを起動するのではなく、既存またはCreateObjectで制御することが多い
On Error GoTo ErrorHandler
Set cdrApp = New CorelDRAW.Application
‘ バッチ処理中の画面描画とイベントを抑制してパフォーマンスを極限まで高める
cdrApp.Optimization = True
cdrApp.EventsEnabled = False
‘ フォルダ内のCDRファイルを走査
fileName = Dir(targetFolder & “.cdr”)
Do While fileName <> “”
Dim filePath As String
filePath = targetFolder & fileName
‘ 【重要】ドキュメントを開く
Set cdrDoc = cdrApp.OpenDocument(filePath)
‘ — ここに実際の業務ロジック（図形操作・置換など）を記述 —
‘ 例として、全ページの特定レイヤーを処理する想定の構造
ProcessDocumentInternals cdrDoc
‘ ——————————————————–
‘ ドキュメントを保存して閉じる（変更がない場合は閉じるだけ）
cdrDoc.Close
‘ 【最重要】ローカル変数に保持したドキュメント参照を完全に破棄
Set cdrDoc = Nothing
‘ 次のファイルへ
fileName = Dir()
Loop
CleanUp:
‘ — 終了処理・確実なメモリ解放 —
If Not cdrApp Is Nothing Then
cdrApp.Optimization = False
cdrApp.EventsEnabled = True
‘ 必要に応じてアプリケーションを終了させる場合
‘ cdrApp.Quit
Set cdrApp = Nothing
End If
MsgBox “バッチ処理がメモリリークなしで正常終了しました。”, vbInformation
Exit Sub
ErrorHandler:
‘ 予期せぬエラーが発生した場合でも、メモリリークを残さずに安全に離脱する
MsgBox “エラー発生: #” & Err.Number & ” – ” & Err.Description, vbCritical
‘ エラー時のオブジェクト破棄
If Not cdrDoc Is Nothing Then
On Error Resume Next
cdrDoc.Close False ‘ 変更を破棄して閉じる
Set cdrDoc = Nothing
On Error GoTo 0
End If
Resume CleanUp
End Sub
‘ ドキュメント内部を処理するサブルーチン（オブジェクトのスコープと解放を分離）
Private Sub ProcessDocumentInternals(ByRef doc As CorelDRAW.Document)
Dim pag As CorelDRAW.Page
Dim shp As CorelDRAW.Shape
Dim eff As CorelDRAW.Effect
‘ コレクションやプロパティへのアクセスは必ずローカル変数に受ける
For Each pag In doc.Pages
‘ ページ内のシェイプを走査する例
For Each shp In pag.Shapes
‘ 例：特定の条件で処理を行う
If shp.Type = cdrTextShape Then
‘ テキストシェイプに対する処理
‘ shp.Text.Story.Text = “Processed”
End If
Next shp
Next pag
‘ 【極めて重要】For Eachで暗黙的に生成されたイテレータ・オブジェクト参照のクリーンアップ
‘ VBAの仕様上、For Eachループで使用したループ変数も、プロセスの終了時に参照が残ることがあるため
‘ 最後に明示的に Nothing を代入して参照を切るのがプロの作法である。
Set shp = Nothing
Set pag = Nothing
End Sub
—
4. コードの解説：なぜこの設計が「最強」なのか？
① `Optimization = True` と `EventsEnabled = False` の両立
大量のファイルを処理する際、CorelDRAWはドキュメントを開くたびにUIの再描画やイベント監視を行おうとする。これがメモリ消費と処理速度低下の最大の原因だ。処理の最初にこれらを無効化し、終了時に確実に復元することで、CPU負荷とメモリフラグメントを劇的に軽減できる。
② ループ内での `Set cdrDoc = Nothing` の強制
ループの先頭で `Set cdrDoc = cdrApp.OpenDocument(…)` を実行する際、前のループの参照が残ったまま上書きすると、COMの参照カウントが正しくデクリメントされない場合がある。「開く → 処理する → 閉じる → `Set cdrDoc = Nothing`」というライフサイクルを1ファイルごとのスコープに完全に閉じ込めることが、数日稼働の安定性を担保する鍵となる。
③ エラーハンドリング（`ErrorHandler`）の二重防御
バッチ処理中に「ファイルが壊れている」「パスが見つからない」といった例外が発生した場合、通常のコードであれば `cdrDoc` や `cdrApp` がメモリ上に残ったままVBAが停止する。上記コードでは、`ErrorHandler` 内で明示的にドキュメントを強制クローズ（`cdrDoc.Close False`）し、すべてのCOMオブジェクトを `Nothing` に初期化して安全にプロセスを終了・継続できる構造にしている。
—
リーダーからのメッセージ
自動化ツールの価値は、「正しく動くこと」だけではない。「監視が不要なほど安定していること」にこそ、プロのエンジニアとしての真価が問われる。
「なぜか数時間動かすとCorelDRAWが落ちる」「タスクマネージャーのメモリが右肩上がりに増えていく」――そんな悪夢に悩まされているなら、今すぐあなたのVBAコードを見直してほしい。ドット繋ぎのコードを排除し、すべてのオブジェクトの生死をあなたが完全にコントロール下に置くのだ。
その一手間こそが、あなたの業務自動化システムを「おもちゃ」から「ミッションクリティカルなインフラ」へと昇華させる唯一の道である。
