CorelDRAW VBAを掌握せよ：画面描画を封じ、全ページを瞬時に制する「バックグラウンド置換」の極意
CorelDRAW VBAで「ページを切り替えてテキストを置換する」というコードを書いていないだろうか？ もし `ActiveDocument.ActivePage = p` のような記述がループ内にあるなら、今すぐその実装を捨ててほしい。
CorelDRAWのレンダリングエンジンは非常に重い。画面更新を伴う操作は、スクリプトの実行速度を指数関数的に低下させる。実務で求められるのは、「目に見えないところで、正確かつ最速で処理を完結させる」ことだ。
今日は、CorelDRAWのオブジェクトモデルの深淵に触れ、画面描画を完全に抑制し、非アクティブなページを透過的に操作する「プロフェッショナルな一括置換アーキテクチャ」を伝授する。
—
1. なぜ「画面更新」が最大のボトルネックなのか
CorelDRAWのVBA APIにおいて、`ActivePage` や `ActiveWindow` を操作することは、UIスレッドに対して「描画をやり直せ」という命令を送ることに等しい。数百ページのドキュメントでこれを繰り返せば、処理時間の9割は描画オーバーヘッドに費やされる。
真のエンジニアは、「DOM（ドキュメント・オブジェクト・モデル）を直接叩き、UIを介さない」アプローチをとる。
鉄則：最適化フラグの鉄壁
まず、コードの冒頭と終了には必ず `Optimization` プロパティを配置する。これがないコードは、素人の遊びに過ぎない。
‘ 処理開始前
Optimization = True
EventsEnabled = False ‘ イベントハンドラによる予期せぬ挙動を抑制
‘ … 処理 …
‘ 処理終了後
Optimization = False
ActiveWindow.Refresh
—
2. 堅牢な置換エンジンの設計
「非アクティブなページ」を操作する際、最も恐ろしいのは「オブジェクトの参照切れ」だ。特定のレイヤーがロックされていたり、非表示になっていたりする場合、安易なイテレーションはエラーを吐く。
以下のコードは、全ページを走査し、テキストオブジェクトに対して安全に置換を行うプロダクション品質のテンプレートだ。
Public Sub BatchTextReplace(searchStr As String, replaceStr As String)
Dim doc As Document
Dim p As Page
Dim layer As Layer
Dim s As Shape
Set doc = ActiveDocument
‘ 描画・イベントを抑制し、メモリ効率を最大化
Optimization = True
EventsEnabled = False
On Error GoTo Cleanup ‘ 万が一のクラッシュに備える
For Each p In doc.Pages
For Each layer In p.Layers
‘ 非表示レイヤーやロックされたレイヤーを考慮した走査
For Each s In layer.Shapes.FindShapes(Type:=cdrTextShape)
If InStr(s.Text.Story, searchStr) > 0 Then
s.Text.Story = Replace(s.Text.Story, searchStr, replaceStr)
End If
Next s
Next layer
Next p
Cleanup:
Optimization = False
EventsEnabled = True
ActiveWindow.Refresh
If Err.Number <> 0 Then
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
—
3. 実務で遭遇する「罠」と回避策
データベース連携の注意点
外部のCSVやデータベースから置換リストを読み込む場合、「メモリリーク」を警戒せよ。
特に `FileSystemObject` や `ADODB.Connection` を使う際は、必ず `Set = Nothing` で明示的に解放すること。CorelDRAWのプロセスが終了してもVBAのメモリが残る原因の多くは、こうしたオブジェクトの解放漏れにある。
ガイド線が邪魔をする場合
ガイド線（Guideline）もレイヤー状のオブジェクトとして管理されていることがある。`FindShapes` を使う際、意図しないガイド線まで拾ってしまう場合は、`s.Type` や `s.Layer.Name` でフィルタリングするロジックを必ず追加すること。
なぜ `FindShapes` なのか
`layer.Shapes` をインデックスで回すのは避けろ。オブジェクトの削除が発生する場合、インデックスがずれてバグの温床となる。`FindShapes` を用いたイテレーションは、CorelDRAWの最適化された検索インデックスを利用するため、純粋なループよりも遥かに高速だ。
—
4. 最後に：エンジニアとしての矜持
VBAはレガシーな言語だと揶揄されることもある。しかし、CorelDRAWの内部構造を理解し、APIを効率的に叩く術を知る者にとって、それは「最強の自動化ツール」に化ける。
今回紹介した「画面描画を抑制し、DOMを直接走査する」設計思想は、テキスト置換だけでなく、一括エクスポートやレイヤー構成の自動整理など、あらゆる現場で応用可能な基盤技術だ。
「動くコード」を書くのは当たり前。
「壊れないコード」を書き、「待ち時間」を極限まで削り取るのが、我々エンジニアの仕事である。
さあ、あなたの環境でこのコードを走らせてみてほしい。その圧倒的な速度差が、次のプロジェクトの生産性を確実に変えるはずだ。
