「マクロ記録」を卒業する。CorelDRAW VBA高速化の真髄：Application.Optimizationの極意
こんにちは。開発の現場へようこそ。
CorelDRAW VBAの世界へ足を踏み入れ、まずは「マクロの記録」機能を使って、自分の操作がコードになる感動を味わったことでしょう。それは素晴らしい第一歩です。
しかし、実務で「数千ページのドキュメントを操作する」「大量のレイヤーを一括作成する」といった大規模なタスクに挑んだとき、あなたは恐ろしい現象に遭遇するはずです。
「CorelDRAWが応答なしになり、画面が真っ白になって固まってしまう……」
もしあなたが今、この壁にぶつかっているとしたら、おめでとうございます。あなたは今、プログラミングにおける「パフォーマンス（処理速度）」と「リソース管理」という、エンジニアとして最もエキサイティングで重要な領域の入り口に立っています。
今日は、初心者から一歩抜け出し、プロのエンジニアへと昇り詰めるための必須テクニック『Application.Optimization』を徹底的に解説します。ここをクリアすれば、あなたの書くコードは「ただ動くもの」から「プロ仕様の高速ツール」へと進化しますよ。
なぜ、あなたのマクロは「重い」のか？
まず、敵の正体を知ることから始めましょう。なぜ大規模な処理をするとCorelDRAWは固まってしまうのでしょうか？
理由は単純です。CorelDRAWが「親切すぎるから」です。
通常、VBAで「レイヤーを追加する」「ガイド線を引く」という命令を出すと、CorelDRAWは次のような動きをリアルタイムで行います。
1. 命令の実行: レイヤーを追加する。
2. 画面の再描画 (Redraw): 「あ、レイヤーが増えたな。画面を書き換えなきゃ！」と画面を更新する。
3. イベントの通知: 「レイヤーが変わりましたよ！」と、他のアプリケーションや内部システムに通知を送る。
もし、あなたが1,000ページに対してこの操作を行うとしたら、CorelDRAWは「追加 → 描画 → 通知」というプロセスを1,000回繰り返します。 画面を書き換える作業（描画）は、コンピュータにとって非常にコスト（負荷）が高い作業なのです。この「親切なリアルタイム更新」こそが、大規模処理における最大のボトルネック（停滞要因）なのです。
救世主：`Application.Optimization` とは？
ここで登場するのが、`Application.Optimization` というプロパティです。
これは、いわば「作業中のカーテン」です。
この機能を `True` に設定すると、CorelDRAWに対して次のように命令できます。
「今から大量の作業をするから、終わるまで画面の更新やイベント通知を一切しないでくれ。作業が終わったら、その時にまとめて見せてくれ！」
これによって、描画のオーバーヘッド（余計な負荷）が劇的に削減され、処理速度は数倍、時には数十倍へと跳ね上がります。
実践：数千ページ規模の高速レイヤー・ガイド操作
それでは、実際に「数千ページのドキュメントに、特定のレイヤーを作成し、ガイド線を自動配置する」という過酷な任務をこなすコードを見てみましょう。
単に `Optimization` を使うだけでなく、プロが必ず行う「エラーハンドリング（失敗した時の備え）」と「Undo（元に戻す）の管理」も組み込んでいます。
Option Explicit
''' <summary>
''' 大規模ドキュメントに対する高速レイヤー・ガイド配置マクロ
''' </summary>
Sub MassiveLayerAndGuideOptimization()
Dim doc As Document
Dim pg As Page
Dim lyr As Layer
Dim i As Long
Dim targetPageCount As Long
' --- 設定エリア ---
' テスト用にページ数を設定（実務では数千でもOK）
targetPageCount = 500
' ------------------
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox "ドキュメントが開かれていません。", vbCritical
Exit Sub
End If
' 1. 【重要】エラーハンドリングの設定
' OptimizationをTrueにしたままエラーで止まると、CorelDRAWが操作不能になるため
On Error GoTo ErrorHandler
' 2. 【重要】Undo（元に戻す）を一つの塊にする
' これを行わないと、1操作ごとにUndo履歴が溜まり、メモリを圧迫します
doc.BeginCommandGroup "Massive Layer & Guide Setup"
' 3. 【極意】Optimizationを有効化（画面更新を停止）
' これにより、描画負荷をゼロにします
Application.Optimization = True
' 画面を一旦非表示にする（さらに高速化したい場合）
' doc.Views(1).Refresh
Debug.Print "処理開始: " & Now
' --- メイン処理ループ ---
For i = 1 To targetPageCount
' ページが存在しない場合は作成（念のため）
If i > doc.Pages.Count Then
doc.AddPages (i - doc.Pages.Count)
End If
Set pg = doc.Pages(i)
' レイヤーの追加
' 既存のレイヤー名を確認しながら追加するロジック
Set lyr = pg.CreateLayer("Auto_Layer_" & i)
' ガイド線の配置（例：ページ中央に垂直ガイドを引く）
' 描画負荷が高い操作も、Optimization中なら一瞬です
pg.Guides.Add glVertical, pg.SizeWidth / 2
' 進行状況をコンソールに表示（あまり出しすぎると逆に遅くなるので注意）
If i Mod 100 = 0 Then
Debug.Print i & " ページ完了..."
End If
Next i
' --- 後処理 ---
' 4. 【重要】Optimizationを解除（画面更新を再開）
Application.Optimization = False
' 5. 【重要】画面を強制的に再描画
' これを忘れると、処理が終わっても画面が真っ白なままになります
doc.Refresh
' Undoグループを終了
doc.EndCommandGroup
Debug.Print "処理完了: " & Now
MsgBox targetPageCount & " ページの処理が完了しました！", vbInformation
Exit Sub
' エラーが発生した場合の処理
ErrorHandler:
' もし途中でエラーが起きても、必ずOptimizationをFalseに戻す！
' これを忘れると、CorelDRAWがフリーズしたように見えてしまいます
Application.Optimization = False
doc.EndCommandGroup ' Undoグループも閉じる
MsgMsg = "エラーが発生しました: " & Err.Description
MsgBox MsgMsg, vbCritical
End Subプロが教える「ここが落とし穴！」
コードを書く際、以下の3点には特に注意してください。ここを外すと、せっかくの最適化が裏目に出ます。
1. 「Optimizationの解除」を絶対に忘れない
`Application.Optimization = True` にしたままマクロがエラーで終了したり、`End Sub` に到達したりすると、CorelDRAWは「まだ作業中なんだな」と判断し、画面を一切更新しなくなります。ユーザーからは「ソフトがフリーズした！」ように見えます。
必ず `On Error GoTo ErrorHandler` を使い、エラー時にも必ず `False` に戻す構造にしてください。
2. `doc.Refresh` は「最後の仕上げ」
`Optimization = False` にしただけでは、画面が更新されないことがあります。最後に `doc.Refresh` を呼び出すことで、溜まっていた描画指示が一気に実行され、美しい結果が画面に現れます。
3. `BeginCommandGroup` の魔法
大規模な操作を行う際、これを忘れると「Ctrl + Z（元に戻す）」を数千回押さなければならなくなります。`BeginCommandGroup` で囲むことで、数千ページの操作を「たった1回のUndo」で元に戻せるようになります。これはユーザー体験（UX）において極めて重要です。
まとめ：ステップアップへの道
今回の内容をまとめましょう。
- 大量の描画・操作は、画面更新（Redraw）が最大の敵。
- `Application.Optimization = True` で「作業中のカーテン」を引く。
- エラーが起きても必ず `False` に戻るよう、エラーハンドリングを徹底する。
- `BeginCommandGroup` と `Refresh` をセットで使い、操作性と視認性を確保する。
これらをマスターすれば、あなたの作るツールは「マクロの記録」レベルから、プロの現場で重宝される「業務自動化ソリューション」へと昇華します。
最初は難しく感じるかもしれません。でも、一度この「制御の感覚」を掴んでしまえば、もう元の遅いコードには戻れなくなるはずですよ。
さあ、恐れずにコードを書いてみてください。応援しています！
