【CorelDRAW VBA】巨大ファイルを何千個も処理する！メモリリークを根絶する「真・バッチ処理」アーキテクチャ
こんにちは。CorelDRAW VBAの世界へようこそ。
「マクロの記録」で生成されたコードを動かしていると、必ずぶつかる壁があります。それが「メモリ不足による突然のクラッシュ」と「プロセスが背後に残り続けるゾンビ化現象」です。
数百個のファイルを処理した途端、CorelDRAWが重くなり、挙句の果てにはシステム全体がフリーズする。これはあなたのPCが悪いのではありません。VBAの「COMオブジェクトのライフサイクル」を正しくコントロールできていないからなのです。
今日は、プロとして現場で生き残るための、極めて堅牢な「バッチ処理アーキテクチャ」を伝授します。
—
1. なぜ「ゾンビ」は発生するのか？
CorelDRAW VBAは、外部アプリケーション（COM）を操作する性質上、変数にオブジェクトを代入するたびに「参照カウント」というものが増えます。
‘ 悪い例
Set doc = Application.OpenDocument(path)
‘ この後、docを明示的に解放せずにループを回すと、
‘ CorelDRAWは「まだこのドキュメントが必要だ」と誤解し、メモリを解放しません。
何千個ものファイルを処理する際、この「後片付け」を怠ると、メモリ消費量は右肩上がりに増え続け、最終的にOSが悲鳴を上げます。「使い終わったオブジェクトは、必ず自分自身の手で消去する」。これがプロの鉄則です。
—
2. メモリリークを完全封鎖するテンプレート
巨大なファイルを連続処理するための、極限まで最適化されたコード構造がこちらです。このパターンをテンプレートとして保存してください。
Option Explicit
‘ 巨大バッチ処理用メインプロシージャ
Public Sub BatchProcessCorelFiles()
Dim i As Long
Dim fileList As Variant
Dim doc As CorelDRAW.Document
‘ ファイルパスのリスト取得（ここでは簡略化）
fileList = GetFileList(“C:\SourceData\”)
‘ 強力なエラーハンドリング（予期せぬ停止を防ぐ）
On Error GoTo ErrorHandler
For i = LBound(fileList) To UBound(fileList)
‘ 1. ドキュメントを開く
Set doc = Application.OpenDocument(fileList(i))
‘ 2. 処理を実行（サブルーチンに分離するのがコツ）
ProcessSingleDocument doc
‘ 3. 閉じる前に必ず保存処理
doc.SaveAs “C:\Output\” & i & “.cdr”, cdrCorelDRAW14
‘ 4. 超重要：明示的な解放とクローズ
doc.Close
Set doc = Nothing ‘ メモリ上の参照を切る
‘ 5. 必要に応じてDoEventsでCPUに呼吸をさせる
DoEvents
Next i
MsgBox “全処理完了！”
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description
‘ エラー時もオブジェクトを確実に解放する
If Not doc Is Nothing Then Set doc = Nothing
End Sub
Private Sub ProcessSingleDocument(ByRef doc As CorelDRAW.Document)
‘ ここに個別の編集ロジックを書く
‘ 内部で作成したShapeオブジェクト等も、使い終わったらSet = Nothingを徹底！
Dim s As Shape
For Each s In doc.ActivePage.Shapes
‘ 処理…
Next s
Set s = Nothing
End Sub
—
3. プロの現場で差がつく3つの鉄則
① `Set = Nothing` は儀式である
VBAのガベージコレクションは非常に控えめです。`Set doc = Nothing` は単なる「記号」ではなく、「このメモリ領域を今すぐ解放してくれ」というOSへの強い命令だと考えてください。特にループ内での宣言は、ループの終了と同時に必ず開放しましょう。
② `DoEvents` を恐れない
数千回のループを回すと、WindowsはCorelDRAWが「応答なし」だと誤認しがちです。ループの最後に `DoEvents` を入れることで、OSに制御権を戻し、UIのフリーズを防ぎます。
③ 処理を小さな関数に分ける（スコープの活用）
巨大なコードを一つのプロシージャに詰め込まないでください。`ProcessSingleDocument` のようにサブルーチンに切り出すことで、その関数内で使用されたローカル変数は、関数終了時に自動的にスコープ外（＝解放されやすい状態）になります。
—
4. 最後に：なぜ私たちがこれをするのか
自動化とは、単に作業を速くするだけではありません。「人間が長時間張り付かなくても、機械が完璧に後片付けまでこなしてくれる環境を作る」ことこそが、本当の自動化です。
今日からあなたの書くコードは、「記録されただけの命令」から、「メモリの隅々まで管理されたプロの設計図」に変わります。
最初は難しく感じるかもしれませんが、この「参照の管理」さえマスターしてしまえば、CorelDRAW VBAで怖いものは何もありません。さあ、安全で高速な自動化の世界へ踏み出しましょう！
もし壁にぶつかったら、いつでも戻ってきてください。私たちは常に、あなたのコードの背後で最適化を見守っています。
