CorelDRAW VBAを掌握せよ：メモリリークを撲滅する「完璧な終了処理」の極意
こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロを動かしているうちにCorelDRAWが重くなる」「タスクマネージャーを見ると、終了したはずのプロセスが居座っている」。そんな経験はありませんか？
CorelDRAW VBAは強力ですが、オブジェクトの「始末」を怠ると、メモリという名の資産を食いつぶすゾンビプロセスを生み出します。 今日は、プロのエンジニアが現場で必ず行っている「ドキュメントの安全な後処理」について、その本質を伝授しましょう。
—
1. なぜ「閉じているのに消えない」のか？
CorelDRAWのオブジェクトモデルは、階層構造をしています。
`Application` > `Document` > `Layer` > `Shape` …という連鎖です。
あなたがコードで `Set myDoc = Documents.Open(“…”)` と書いた瞬間、メモリ上にはドキュメントの参照（ポインタ）が作成されます。この「参照」という紐が繋がっている限り、CorelDRAWは「まだこのドキュメントは使われているかもしれない」と判断し、メモリから解放してくれません。
「プログラムが終わったから自動で消えるだろう」という甘えが、メモリリークの最大の原因です。
—
2. 破壊的な失敗を避ける：正しい終了手順
ドキュメントを閉じる際に使われる `Document.Close` メソッド。ここには `SaveChanges` という重要なパラメータがあります。これを理解せず適当に扱うと、保存忘れや予期せぬダイアログの表示でマクロがストップしてしまいます。
黄金のテンプレートコード
まずは、現場で標準的に使われている「安全な終了処理」の型を見てください。
Sub SecureDocumentProcess()
Dim doc As Document
‘ 1. ドキュメントを開く
Set doc = Documents.Open(“C:\Temp\Design.cdr”)
‘ — ここに業務ロジックを記述 —
‘ 例: doc.ActiveLayer.CreateArtisticText 0, 0, “Hello Automation”
‘ —————————-
‘ 2. 保存処理の制御とクローズ
‘ cdrDoNotSaveChanges: 保存せずに閉じる (変更が不要な場合)
‘ cdrSaveChanges: 保存して閉じる
doc.Close cdrDoNotSaveChanges
‘ 3. 【最重要】オブジェクト変数の解放
‘ これを忘れると、VBAはメモリを掴んだままになります
Set doc = Nothing
MsgBox “処理が完了し、安全にメモリを解放しました。”
End Sub
—
3. なぜ `Set doc = Nothing` が必要なのか？
初学者が最も見落とすのがこの `Set doc = Nothing` です。
VBAの変数は、スコープ（プロシージャ）を抜ければ自動的に破棄される……と思っていませんか？ 実は、参照型のオブジェクト変数は、明示的に `Nothing` を代入して参照を切断しない限り、内部的なメモリ管理領域に情報が残存します。
特に、ループ処理の中で `Set doc = Documents.Open` を繰り返すようなマクロを組むと、この「切れない紐」が溜まり続け、数分でCorelDRAWは応答不能になります。
陥りやすいエラー：エラーハンドラとの組み合わせ
もし処理中にエラーが発生して `doc.Close` に到達しなかったら？ その場合もメモリリークします。必ず `On Error GoTo` を使いましょう。
Sub RobustProcess()
Dim doc As Document
On Error GoTo Cleanup ‘ エラー発生時は必ずクリーンアップへ飛ぶ
Set doc = Documents.Open(“C:\Work.cdr”)
‘ 処理ロジック…
Cleanup:
‘ エラーがあろうとなかろうと、開いたドキュメントを確実に閉じる
If Not doc Is Nothing Then
doc.Close cdrDoNotSaveChanges
Set doc = Nothing
End If
If Err.Number <> 0 Then MsgBox “エラー発生: ” & Err.Description
End Sub
—
4. プロの視点：メモリ管理を制する3つの鉄則
1. 「開いたら閉じる」はセットで書く
`Documents.Open` を書いた次の行には、もう `doc.Close` を空で書いておきましょう。それからロジックを書き始めるのがプロの習慣です。
2. `ActiveDocument` に頼らない
`ActiveDocument` は便利ですが、ユーザーが意図せずドキュメントを切り替えると参照先がズレます。必ず `Set doc = …` で変数に固定し、その変数を操作しましょう。
3. `Nothing` は「お辞儀」と考える
「お世話になりました」と最後にお辞儀をするように、`Set 変数 = Nothing` を書く。この丁寧さが、数時間動かし続けるようなタフな自動化ツールを作ります。
—
最後に：自動化の先にあるもの
CorelDRAW VBAのメモリ管理は、一見地味な作業です。しかし、この基礎を疎かにしたマクロは「時限爆弾」です。
今日学んだ `Close` のパラメータ指定と `Nothing` による解放。この2つを徹底するだけで、あなたの書くマクロの安定性は劇的に向上します。
「動くコード」から「信頼できるコード」へ。
皆さんの自動化ライフが、より軽快で素晴らしいものになることを応援しています。次は、さらに深い「Shapeオブジェクトの階層制御」についてお話ししましょう。それでは、良いコーディングを！
