【CorelDRAW VBA】数百ページの巨大ドキュメントを「死なせない」ためのメモリ管理術
CorelDRAWで数百ページに及ぶカタログやマニュアルを扱っているとき、あなたは「メモリ不足による強制終了」という悪夢に何度遭遇しただろうか。
CorelDRAWのVBA環境は、一見すると直感的だが、その裏側にあるCOMオブジェクトモデルは「リソースの解放」という概念が非常に希薄だ。特に大量のページをループで処理する際、オブジェクトを明示的に破棄せず、ドキュメントを開いたまま走らせるコードは、遅かれ早かれ「Application Error」という名の断頭台へ向かうことになる。
今回は、数千ページ規模のドキュメントを安全に捌き、安定してバッチ処理を完遂させるための「設計の極意」を伝授する。
—
1. なぜ「全ページ一括処理」は死を招くのか
多くの初心者は、`For Each Page In ActiveDocument.Pages` と書き始める。これが悲劇の始まりだ。
CorelDRAWの`Document`オブジェクトは、開いている間、ドキュメント内の全リソース（ビットマップ、複雑な曲線、レンダリングデータ）をメモリ上にキャッシュし続ける。ループ内で生成される一時的な`Shape`や`Range`オブジェクトの参照がスタックに残り続け、VBAのガベージコレクションが追いつかなくなる。
これを解決する唯一の解は、「ドキュメントの再読み込みを前提としたバッチ単位の実行」である。
—
2. 堅牢な設計パターン：ファイル分割と明示的メモリ解放
巨大なファイルに対しては、「ファイルを開く→数ページ処理する→閉じる→（必要なら別ファイルへ保存）→メモリを解放する」というサイクルを回す必要がある。
実践コード：メモリ効率を最大化するページ処理テンプレート
このコードは、巨大なCDRを読み込み、指定ページ単位で処理を行い、メモリをクリアするプロトタイプだ。
Option Explicit
‘ メモリ管理の極意：オブジェクト変数は必ず破棄する
Public Sub ProcessHugeDocument(ByVal filePath As String)
Dim doc As Document
Dim p As Page
Dim i As Long, batchSize As Long
batchSize = 10 ‘ 一度に処理するページ数
‘ ファイルを開く際はインターフェースを最小化して負荷を減らす
Optimization = True
Set doc = OpenDocument(filePath)
For i = 1 To doc.Pages.Count Step batchSize
‘ バッチ単位の処理を実行
ProcessBatch doc, i, batchSize
‘ 強制的に再描画とメモリ整理を促す
DoEvents
Application.Refresh
Next i
‘ 文脈終了時のクリーンアップ
doc.Close
Set doc = Nothing
Optimization = False
End Sub
Private Sub ProcessBatch(ByRef doc As Document, ByVal startPage As Long, ByVal size As Long)
Dim p As Page
Dim s As Shape
Dim endPage As Long
endPage = IIf(startPage + size – 1 > doc.Pages.Count, doc.Pages.Count, startPage + size – 1)
Dim i As Long
For i = startPage To endPage
Set p = doc.Pages(i)
‘ ここで実際の処理を実行
Debug.Print “Processing Page: ” & p.Index
‘ ループ内でのオブジェクト破棄（重要）
Set p = Nothing
Next i
End Sub
—
3. 「死なせない」ための3つの鉄則
コードを書く際、以下の原則を遵守せよ。
① `Optimization = True` の絶対的適用
処理開始時に `Optimization = True` を宣言すると、画面描画やイベント発生が抑制され、処理速度が飛躍的に向上する。これを忘れると、CorelDRAWはページが変わるたびに画面を描画しようとし、無駄なリソースを消費する。必ず終了時に `False` に戻すことを忘れないこと。
② 明示的な `Nothing` の代入
VBAは参照カウンタ方式でメモリを管理している。ループ内で `Set p = Nothing` を明示的に呼び出すことで、参照カウントを即座に減らし、メモリリークの温床を摘み取ることができる。これをサボることは、エンジニアとして「掃除をせずに料理をする」のと同じだ。
③ インターフェース連携時の注意
データベースや外部ファイル（CSV/Excel）から情報を取得する場合、「CorelDRAW外のオブジェクト」と「CorelDRAW内のオブジェクト」を混ぜるな。 外部データを一旦配列（Array）やコレクション（Collection）に格納し、CorelDRAWの処理には純粋なデータとして渡すこと。COM接続を跨いだループは、予期せぬクラッシュの最大の原因となる。
—
4. 最後に：エンジニアとしてのマインドセット
CorelDRAW VBAは古い技術だが、その堅牢さは設計次第でいくらでも引き出せる。
「動けばいい」というコードは、10ページでは正しくても、1000ページでは凶器に変わる。
あなたが書くべきは、「マシンが悲鳴を上げない、理にかなったデータフロー」だ。
このアプローチを取り入れれば、深夜に「強制終了」のダイアログに起こされることは二度となくなるはずだ。
次は、外部データベースとの接続におけるトランザクション管理について掘り下げるとしよう。準備はいいか？
