【メモリ解放の極意】100ページ超えでも固まらない！CorelDRAW VBA大量ループ高速化テクニック
こんにちは！いつもCorelDRAWでのデザイン作業やデータ作成、お疲れ様です。
「マクロの記録から脱却して、複数ページの自動処理に挑戦してみたけれど……数十ページを超えたあたりでCorelDRAWが『応答なし』になって固まる」
「100ページ以上のカタログや名札データを一括処理しようとしたら、PCのメモリを喰い尽くして強制終了してしまった……」
そんな苦い経験はありませんか？
実はこれ、CorelDRAW VBAを書く誰もが一度はぶつかる「通過儀礼」のような壁なんです。決してあなたのPCのスペックが足りないわけでも、プログラミングの才能がないわけでもありません。
CorelDRAWという巨大なグラフィックエンジンが、裏側でどのようにメモリや画面描画を扱っているか。その「仕組み」を少しだけ理解して、適切なスイッチを入れてあげるだけで、100ページ、200ページを超える巨大なファイルでも驚くほど涼しい顔で爆速処理できるようになります。
ここをクリアすれば、CorelDRAW VBAの基本と実践力はバッチリ身につきますよ。今回は、現場で本当に役立つ「極限の最適化テクニック」を優しく紐解いていきましょう！
—
1. なぜCorelDRAWは大量ループでフリーズするのか？
原因を突き止めずにやみくもにコードを書いても、問題は解決しません。まずはCorelDRAWが悲鳴を上げてしまう「3大ボトルネック」を図解イメージで理解しておきましょう。
【PCのメモリとCPUを圧迫する3大要因】
1. 画面の再描画 (Refresh)
[1ページ処理] ➔ 画面を綺麗に再描画！ ➔ [2ページ処理] ➔ また再描画！ ➔ 激重…
2. 元に戻す (Undo) の履歴蓄積
[処理A] ➔ 履歴保存 ➔ [処理B] ➔ 履歴保存 ➔ メモリがUndoデータで満杯に！
3. オブジェクト参照の放置 (Memory Leak)
ページや図形の参照（Set 変数）を掴んだまま手放さない ➔ メモリが解放されない
普通の人間が作業するとき、画面が毎回更新されて、いつでも「Ctrl + Z（元に戻す）」ができるのは親切な機能ですよね。しかし、VBAが1秒間に何十回も処理を行うとき、この親切機能はすべて「重い足かせ」へと変わります。
つまり、プロの自動化コードでは、
- 「作業中は画面の更新を止め、最後に一回だけ描画する」
- 「Undoの無駄な記録を止める（または1つにまとめる）」
- 「使い終わったページ変数や図形変数はその都度ポイッと手放す（Nothing）」
という3つのアプローチを徹底するのです。
—
2. コピペで使える！大量ページ処理の「黄金テンプレート」
理屈がわかったところで、まずは現場でそのまま使える実践コードを見てみましょう。
以下のマクロは、ドキュメントの全ページをループしながら「各ページにトンボ（または枠線）などのオブジェクトを追加・レイアウトする」場面を想定した超高速テンプレートです。
Option Explicit
‘ ==============================================================================
‘ 処理名: ProcessAllPagesOptimized
‘ 概要 : 大量ページをフリーズ・メモリリークなしで高速処理する黄金テンプレート
‘ ==============================================================================
Sub ProcessAllPagesOptimized()
Dim doc As Document
Dim p As Page
Dim lyr As Layer
Dim shp As Shape
Dim i As Long
Dim totalPages As Long
‘ アクティブなドキュメントが存在するかチェック
If ActiveDocument Is Nothing Then
MsgBox “ドキュメントが開かれていません。”, vbExclamation, “エラー”
Exit Sub
End If
Set doc = ActiveDocument
totalPages = doc.Pages.Count
‘ ————————————————————————-
‘ [鉄則1] 最適化モードの開始 (描画停止・イベント停止・Undoの集約)
‘ ————————————————————————-
On Error GoTo ErrorHandler ‘ 予期せぬエラーで設定が戻らなくなるのを防ぐ
Application.Optimization = True ‘ 画面の再描画を一時停止（これだけで劇的に高速化！）
Application.EventsEnabled = False ‘ ドキュメントのイベント監視を停止
doc.BeginCommandGroup “大量ページ一括処理” ‘ Undo履歴を1つに集約（Ctrl+Z 1回で戻せる）
‘ CorelDRAWのステータスバーに進捗を出す準備
CorelScript.ShowStatusMessage “処理を開始します…”
‘ ————————————————————————-
‘ [鉄則2] ページループ処理
‘ ————————————————————————-
For i = 1 To totalPages
‘ ページオブジェクトを取得
Set p = doc.Pages(i)
‘ ステータスバーに進捗を表示 (10ページごとなど、更新頻度を落とすとさらに高速)
If i Mod 10 = 0 Or i = totalPages Then
CorelScript.ShowStatusMessage “処理中: ” & i & ” / ” & totalPages & ” ページ完了”
End If
‘ — ここに各ページへの個別処理を記述 —
‘ 例: ページのデスクトップではなく、各ページの「レイヤー 1」に対象を絞る
Set lyr = p.ActiveLayer
‘ サンプル処理: ページ中央にテスト用の矩形を作成
Set shp = lyr.CreateRectangle2(0, 0, p.SizeWidth, p.SizeHeight)
shp.Outline.SetProperties 0.2, OutlineStyles(0), CreateRGBColor(255, 0, 0)
‘ ———————————————————————
‘ [鉄則3] ループ内での参照解放 (メモリリークの徹底防止)
‘ ———————————————————————
Set shp = Nothing
Set lyr = Nothing
Set p = Nothing ‘ 次のループへ行く前に必ず手放す！
Next i
‘ ————————————————————————-
‘ [鉄則4] 終了処理と環境の復旧
‘ ————————————————————————-
CleanUp:
doc.EndCommandGroup ‘ Undo集約の終了
Application.Optimization = False ‘ 画面描画の再開
Application.EventsEnabled = True ‘ イベント監視の再開
CorelScript.ShowStatusMessage “完了しました！”
‘ 画面を最新の状態に強制更新
Application.Refresh
ActiveWindow.Refresh
MsgBox totalPages & ” ページの処理が正常に完了しました！”, vbInformation, “成功”
Exit Sub
ErrorHandler:
‘ 万が一途中でエラーが起きても、必ず最適化設定を元に戻す安全設計
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “処理中断”
Resume CleanUp
End Sub
—
3. なぜこれで速くなる？プロの設計ポイントを解説
コードの中に散りばめられた「プロの技」、それぞれの意味を紐解いていきましょう。ここを理解すると、他のマクロを書くときにも応用が効くようになりますよ。
① `Application.Optimization = True` （最重要！）
これが処理速度を10倍〜数十倍に引き上げる魔法のスイッチです。
通常、CorelDRAWは図形を1つ置くたびに「画面を綺麗に塗り直す」という重い計算をGPUとCPUに命令します。これを `True` に設定すると、マクロが動いている間は画面の描画を一切ストップしてくれます。
作業がすべて終わった後、最後に `Application.Optimization = False` で戻し、`Refresh` を呼ぶことで、完成形だけを「パッ」と一度に描画させます。
② `doc.BeginCommandGroup` と `doc.EndCommandGroup`
マクロの記録で作ったコードを実行したあと、CorelDRAWの「元に戻す（Ctrl + Z）」の履歴を見てみてください。「矩形の作成」「色の変更」「線の太さ変更」……と、膨大な履歴が並んでいませんか？
この履歴を保存するために、PCのメモリはどんどん削られていきます。
`BeginCommandGroup` で囲んであげると、どれだけ膨大な処理を行っても「マクロ全体の処理を1回のUndo」としてまとめてくれます。メモリ消費を劇的に抑えられるだけでなく、万が一やり直したくなったユーザーにとっても親切な設計になります。
③ ループ末尾の `Set p = Nothing`（COMオブジェクトの解放）
CorelDRAWのVBAは、裏側でWindowsの「COM（コンポーネント・オブジェクト・モデル）」という仕組みを使ってソフトウェア本体とおしゃべりをしています。
`Set p = doc.Pages(i)` と書くと、VBAはCorelDRAW本体のページ実体への「名札（参照）」をガッチリ掴みます。
これを `Set p = Nothing` で手放さずにループを回し続けると、CorelDRAW本体側は「まだVBAがこのページ情報を使っているんだな」と勘違いし、メモリ上にキャッシュを溜め込み続けてしまいます。これが100ページを超えたときのフリーズ（メモリリーク）の真犯人です。
使い終わったオブジェクトは、その都度 `Nothing` を代入して「もう使わないよ！」と教えてあげましょう。
—
4. ありがちな落とし穴とトラブルシューティング
最後に、初心者を脱出したエンジニアがよくハマる「落とし穴」をシェアしておきますね。
落とし穴1：エラーが起きたらCorelDRAWの画面が真っ白のまま戻らない！
`Application.Optimization = True` を使ったコードで、処理の途中にエラーが発生してマクロが強制停止してしまうと……画面更新がオフになったままなので、CorelDRAWの画面が真っ白（あるいは固まった状態）に見えてしまいます。
これを防ぐのが、テンプレートに入っている `On Error GoTo ErrorHandler` の仕組みです。
何があっても必ず最後の `CleanUp` ラベルを通過させ、`Application.Optimization = False` を実行して画面描画を復旧させるのがプロの「防御的プログラミング」です。
落とし穴2：ページを削除しながらループするとインデックスがズレる！
大量のページから「特定の条件に合うページを削除する」処理を行いたい場合、通常の `For i = 1 To totalPages` でループを回してはいけません。
[ページ1] [ページ2] [ページ3]
1番目を削除すると…
[ページ2] が繰り上がって新しい [ページ1] になる！
次に i = 2 を処理しようとすると、元の [ページ3] を指してしまい、繰り上がった [ページ2] がスキップされる！
ページを削除するときは、必ず後ろのページから逆順にループするのが鉄則です。
‘ ページを削除する場合は「Step -1」で後ろから回す！
For i = totalPages To 1 Step -1
Set p = doc.Pages(i)
If p.Shapes.Count = 0 Then
p.Delete ‘ 空白ページなら削除
End If
Set p = Nothing
Next i
—
まとめ：CorelDRAWのリソースを意識できる一流の書き手へ
お疲れ様でした！今回ご紹介したポイントを振り返ってみましょう。
1. `Application.Optimization = True` で画面の無駄な描画をシャットアウトする
2. `doc.BeginCommandGroup` でUndoメモリの爆発を防ぎ、ユーザーに優しくする
3. `Set 変数 = Nothing` で使い終わったページ・図形のリソースを確実にCorelDRAWへ返す
4. `On Error GoTo` で、何があっても画面更新が復旧するエスケープルートを確保する
これらの作法が自然に書けるようになれば、マクロ記録のレベルを完全に脱却し、何百ページ、何千ページという巨大な商業案件・印刷用データも涼しい顔で自動処理できるようになります。
まずは手元の複数ページファイルで、このテンプレートの爆速感を味わってみてくださいね。あなたのCorelDRAW開発が、より快適で楽しいものになることを心から応援しています！
