CorelDRAW VBAの「死の淵」を越える：巨大バッチ処理でメモリリークを完全撲滅する技術
こんにちは。CorelDRAWの自動化に命を懸けるエンジニアです。
「マクロの記録」で生成されたコードを動かしたとき、最初は軽快だったはずの処理が、10枚、50枚と重なるにつれて徐々に遅くなり、やがてCorelDRAWが沈黙する……。そんな「メモリリークの地獄」を見たことはありませんか？
それはあなたのコードが悪いのではなく、VBAが持つ「COMオブジェクトの幽霊」を放置しているからです。今日は、数千枚のファイルを安全にバッチ処理するための、プロフェッショナルな「オブジェクト管理術」を伝授します。
—
なぜ、あなたのCorelDRAWは「死ぬ」のか？
VBAで `Set doc = Application.OpenDocument(…)` と書くとき、内部ではWindowsのCOM（Component Object Model）を通じてCorelDRAWに命令を送っています。
しかし、`Set doc = Nothing` を書くだけでは不十分なケースが多々あります。特に、`Page.Shapes` や `Layer.Shapes` といった「コレクション」をループで回すとき、VBAの裏側では無数のオブジェクトが生成され、解放のタイミングを失ってメモリに居座り続けます。これこそが、バッチ処理の後半で発生する「COM例外」の正体です。
—
鉄則：オブジェクトのライフサイクルを制御せよ
巨大なバッチ処理を完走させるための「守護神」となるコードの書き方を見ていきましょう。
1. 参照を「使い捨て」にするな
ループの中でオブジェクトを生成し続けると、メモリは瞬く間にパンクします。以下のパターンを守ってください。
‘ 良い例：厳密な参照管理
Sub BatchProcessExample()
Dim doc As Document
Dim shp As Shape
Dim i As Long
‘ ファイルパスのリスト（実際にはDir関数などで取得）
Dim fileList As Variant
fileList = Array(“C:\data\file1.cdr”, “C:\data\file2.cdr”)
For i = LBound(fileList) To UBound(fileList)
‘ 1. 開く
Set doc = OpenDocument(fileList(i))
‘ 2. 処理を行う（プロシージャを分けるのがコツ）
ProcessSingleDocument doc
‘ 3. 閉じる（必ず保存の有無を明示）
doc.Close
‘ 4. 明示的な解放とガベージコレクションの誘発
Set doc = Nothing
‘ 重要な儀式：メモリの解放を促す
DoEvents
Next i
End Sub
Private Sub ProcessSingleDocument(ByRef doc As Document)
‘ ここでShapesをループする場合の最適解
Dim s As Shape
‘ ActiveLayerを使うと参照が不安定になるため、明示的に取得
Dim layer As Layer
Set layer = doc.ActivePage.ActiveLayer
‘ コレクションを直接触らず、インデックスで回すのが最も安全
Dim j As Long
For j = layer.Shapes.Count To 1 Step -1
Set s = layer.Shapes(j)
‘ ここに処理を書く
‘ ループごとに使い終わった参照を消すのがプロの流儀
Set s = Nothing
Next j
Set layer = Nothing
End Sub
—
陥りやすい「落とし穴」
- ActiveDocumentを乱用しない:
`ActiveDocument` は非常に便利ですが、フォーカスが移った瞬間に参照先が揺らぐことがあります。常に `Set doc = …` で変数に格納し、その変数を通して操作してください。
- DoEventsの重要性:
`DoEvents` は単に画面を更新するだけではありません。OSに対して「今ならメモリを整理していいよ」とシグナルを送る役割も果たします。数千枚の処理では、この一行が安定性を劇的に高めます。
- COM例外の捕捉:
`On Error Resume Next` を闇雲に使うのはNGです。特定の処理ブロックだけを切り出し、エラーが起きたらそのファイルだけをログに書き出してスキップする「自浄作用」のあるコードを目指しましょう。
—
さらに高みを目指すあなたへ：設計の極意
「マクロの記録」から脱却する最大の鍵は、「CorelDRAWの内部オブジェクトを信じすぎないこと」です。
1. 分離: ファイルを開く、処理する、閉じる、という3つのプロセスを完全に分離してください。
2. ログ: どのファイルで止まったかをテキストファイルに出力する仕組みを作りましょう。
3. 強制終了: どうしてもメモリが解放されない場合は、数ファイルごとに `Application.Quit` して自身を再起動する「外部バッチ管理」という最終手段も考慮に入れてください。
最後に
CorelDRAW VBAは、正しく使えば数千枚のグラフィックを数分で処理できる強力な武器になります。最初は難しく感じるかもしれませんが、「開いたものは必ず閉じる。作ったオブジェクトは必ずNothingにする」という基本さえ徹底すれば、あなたのバッチ処理は驚くほど安定します。
ここをクリアすれば、あなたはもうただのユーザーではありません。CorelDRAWという巨大なプラットフォームを自在に操る「エンジニア」の仲間入りです。
何か詰まったことがあれば、いつでもまた聞いてください。あなたの自動化の旅を、全力でサポートします！
