CorelDRAW VBAの深淵：画面描画を封じ、メモリを制する「バックグラウンド走査」の極意
CorelDRAWのVBA開発において、多くのエンジニアが陥る罠がある。それは「画面（UI）とロジックを同期させようとする」ことだ。`ActivePage`を切り替え、`Application.Refresh`を繰り返すコードは、現代の複雑なドキュメントにおいて致命的なパフォーマンス低下を招く。
プロフェッショナルは、「CorelDRAWのレンダリングエンジンを欺き、メモリ上のオブジェクトグラフを直接叩く」。本稿では、画面描画を一切行わずに全ページのテキストを一括置換する、極限の自動化手法を解説する。
—
1. 描画抑制の真実：Optimizationプロパティの再定義
CorelDRAWには`Optimization`プロパティがあるが、これを単に「画面を止めるもの」と認識していては素人だ。これは、イベントハンドラと再描画キューを完全にバイパスする「コンテキストスイッチ」である。
‘ 処理の開始時に必ず実行する定石
Optimization = True
EventsEnabled = False ‘ イベントのオーバーヘッドを遮断する
ActiveDocument.BeginCommandGroup “Mass Text Replacement”
この設定により、CorelDRAWはメモリ内のオブジェクト操作にのみリソースを割くようになる。`ActivePage`を切り替える必要は一切ない。`Document.Pages`コレクションをイテレーションするだけで、非表示レイヤーを含めた走査が可能だ。
—
2. 実践：非アクティブページを走査する高速置換エンジン
以下のコードは、全ページの`Text`オブジェクトを再帰的に走査し、置換を行うアーキテクチャだ。重要なのは、`Shape`オブジェクトの型を`cdrTextShape`で厳密に判定し、余計なプロパティアクセスを最小化することにある。
Public Sub PerformHighSpeedReplace(targetText As String, replaceText As String)
Dim doc As Document
Dim pg As Page
Dim shp As Shape
Set doc = ActiveDocument
On Error GoTo Cleanup
Optimization = True
EventsEnabled = False
‘ 全ページを巡回（画面切り替えは不要）
For Each pg In doc.Pages
ProcessShapes pg.Shapes, targetText, replaceText
Next pg
Cleanup:
‘ 終了処理：必ず最適化を戻すこと
Application.EndCommandGroup
EventsEnabled = True
Optimization = False
ActiveWindow.Refresh
End Sub
‘ 再帰的にグループ内も走査するメソッド
Private Sub ProcessShapes(shapes As Shapes, target As String, replacement As String)
Dim shp As Shape
For Each shp In shapes
If shp.Type = cdrTextShape Then
‘ テキスト置換の実行
If InStr(shp.Text.Story, target) > 0 Then
shp.Text.Story = Replace(shp.Text.Story, target, replacement)
End If
ElseIf shp.Type = cdrGroupShape Then
‘ グループの場合は再帰呼び出し
ProcessShapes shp.Shapes, target, replacement
End If
Next shp
End Sub
—
3. シニアエンジニアが意識すべきメモリの「後始末」
VBAのメモリリークは、多くの場合「循環参照」と「未解放のオブジェクト」に起因する。CorelDRAWのCOMインターフェースは強力だが、`Nothing`による明示的な解放を怠ると、長大なドキュメント処理時にガベージコレクションが追いつかず、プロセスが肥大化する。
- オブジェクトの参照はスコープを絞る: ループ内で使用するオブジェクト変数は、可能な限り処理単位でスコープを区切り、`Set shp = Nothing`を徹底せよ。
- Windows APIの活用: 大規模な処理を行う場合、`DoEvents`を不用意に使うのではなく、`Sleep` APIを適宜差し込むことで、OS側へのリソース譲渡を制御し、アプリケーションのハングアップを防ぐ。
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
—
4. 限界を超えるためのアーキテクチャ設計
もし、数千ページに及ぶドキュメントや、外部データベースとの連携が必要な場合は、VBA単体で完結させようとしてはならない。
1. 中間データとしてのJSON出力: CorelDRAWから一旦情報をJSONで書き出し、外部のC# (VB.NET) 製コンソールアプリで高速処理した後、CorelDRAWに反映させる。VBAは「ブリッジ」としてのみ機能させるのが、大規模システムにおける正解だ。
2. エラーハンドリングの抽象化: 予期せぬオブジェクト構造（ロックされたレイヤーや、読み取り専用のマスターページなど）にぶつかった際、処理を止めるのではなく、ログファイルに記録してスキップする「レジリエンス（回復力）」を持たせよ。
最後に：職人の矜持
自動化とは、単なる「作業の省略」ではない。CorelDRAWの内部構造を理解し、その挙動を制御下に置くという「支配のプロセス」である。
この記事を読んだ諸君には、ただコードを動かすことではなく、なぜそのコードが速いのか、なぜそのメモリ管理が安全なのかを理解してほしい。理論と実務の境界線で戦うエンジニアにとって、最適化されたVBAコードは、芸術作品と同等の価値を持つはずだ。
さあ、レガシーなUI操作からシステムを解放し、真の自動化を実装せよ。
