CorelDRAW VBAで「メモリ地獄」を脱出する。何千個のファイルを完全自動処理するメモリ管理の極意
こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロの記録」で生成されたコードを動かしたとき、最初は感動したはずです。しかし、いざ数百個、数千個のファイルを処理させようとした途端、CorelDRAWは重くなり、やがて「フリーズ」という名の沈黙を迎える……。この壁にぶつかった方は多いでしょう。
今日は、その「メモリリークの悪夢」を終わらせるための、プロフェッショナルな設計思想をお伝えします。
—
なぜ、CorelDRAWは「メモリを忘れる」のか？
VBAの初心者が最も陥りやすい罠。それは、「オブジェクト変数を使い捨てにしている」ことです。
‘ 【NGコード】やってはいけないメモリの垂れ流し
Sub BadExample()
Dim i As Long
For i = 1 To 1000
Dim doc As Document
Set doc = OpenDocument(“C:\Files\data_” & i & “.cdr”)
‘ 何か処理…
doc.SaveAs “C:\Output\data_” & i & “.pdf”
‘ ここでdocを閉じても、VBAの参照は残ったまま！
Next i
End Sub
このコードを実行すると、`doc`というオブジェクト変数がメモリ上に「幽霊」のように残り続けます。何千回もループすれば、Windowsのメモリは枯渇し、CorelDRAWは墜落します。
—
極限のメモリ管理：3つの鉄則
プロの領域では、以下のルールを「呼吸するように」実装します。
1. オブジェクトの「明示的解放」
VBAはガベージコレクションが極めて脆弱です。`Set doc = Nothing` を呼び出すことは、単なる作法ではなく「生存確認」です。
2. 「Application.ProcessMessages」の活用
連続処理の際、CorelDRAWに息継ぎの時間をさせます。これを入れないと、Windowsのメッセージキューが飽和し、プロセスが応答なしになります。
3. グローバル変数の排除
スコープを最小限に絞ることで、参照カウンタを確実に0へ落とします。
—
実践：何千個のファイルを安全にバッチ処理するコード
以下は、メモリをクリアに保ちながら大量処理を行うための「堅牢なテンプレート」です。これをベースにカスタマイズしてください。
Option Explicit
‘ メモリ管理を徹底したバッチ処理の雛形
Public Sub SafeBatchProcess()
Dim doc As Document
Dim fileName As String
Dim folderPath As String
folderPath = “C:\InputData\” ‘ 対象フォルダ
fileName = Dir(folderPath & “.cdr”)
Do While fileName <> “”
‘ 1. ファイルを開く
Set doc = Application.OpenDocument(folderPath & fileName)
‘ 2. 処理を実行（サブプロシージャに分けるのがコツ）
ProcessSingleFile doc
‘ 3. 明示的なクローズと解放
doc.Close
Set doc = Nothing
‘ 4. OSにメモリを返すための「息継ぎ」
DoEvents
Application.Refresh
fileName = Dir() ‘ 次のファイルへ
Loop
MsgBox “全プロセスのメモリ解放が完了しました。”
End Sub
Private Sub ProcessSingleFile(ByRef targetDoc As Document)
‘ ここで具体的なベクター操作を行う
‘ 注意：ここで新しいオブジェクト（ShapeRangeなど）を定義したら、
‘ 必ず最後に Set 〇〇 = Nothing を行うこと！
Dim sr As ShapeRange
Set sr = targetDoc.ActivePage.Shapes.All
‘ …処理…
Set sr = Nothing ‘ 忘れずに解放！
End Sub
—
現場で役立つ「メモリリーク対策」のチェックリスト
コードを書く際、常に自分に問いかけてください。
- Setしたか？：オブジェクトを代入したら、必ず最後には `Set 〇〇 = Nothing` があるか？
- DoEventsを入れたか？：ループのたびにOSに処理権を戻しているか？
- 変数スコープは適切か？：必要な場所で宣言し、終わったら消えるようにしているか？
なぜ「サブプロシージャ」に分けるのか？
`ProcessSingleFile` のように処理を切り出す最大のメリットは、「そのプロシージャを抜けた瞬間に、ローカル変数の参照が自動的に解放される」というVBAの性質を利用できるからです。巨大なメインプロシージャを作らず、小さく分解して組み立てる。これがエンジニアリングの基本です。
—
最後に：恐れる必要はありません
CorelDRAW VBAは、正しく扱えば最強の武器になります。メモリ管理という「OSとの対話」を覚えたあなたは、もう単なるマクロの記録者ではありません。
明日の仕事で、ぜひこの設計を導入してみてください。数千個のファイルを処理し終えたとき、CorelDRAWが以前のようにフリーズせず、軽快に動いていることにきっと感動するはずです。
もし分からないことがあれば、いつでも質問してください。共に最高の自動化環境を築きましょう。
