CorelDRAW VBAの深淵：マルチページ・レイヤー制御を「破壊的」に最適化する
CorelDRAW VBAにおける「全ページ走査」は、安易に書けばメモリリークの温床となり、巨大なCDRファイルを一瞬でクラッシュさせる。特に多言語対応や版管理が複雑化したデータにおいて、特定のレイヤーをクレンジングする処理は、単なるループ処理ではなく、「オブジェクトのライフサイクル管理」の極致である。
今回は、シニアエンジニアが現場で直面する「一括処理のボトルネック」を排除するための、極限の自動化フローを伝授する。
—
1. なぜ「単純なループ」ではいけないのか
多くの開発者は、`ActiveDocument.Pages` を単純に `For Each` で回す。しかし、CorelDRAWの内部エンジンは、ページ切り替え時に再描画（Redraw）やUIの同期を試みるため、ページ数が増えるごとに指数関数的に処理速度が低下する。
「非表示」にするだけならまだしも、「削除」を伴う操作はUndoバッファを圧迫する。 これを回避するには、以下のアーキテクチャが必須となる。
1. ScreenUpdatingの完全制御: Win32 APIを直接叩く必要はないが、`Application.Optimization` を活用し、UI更新を完全に停止させる。
2. オブジェクトの直接参照: `ActivePage` を頻繁に切り替えない。ページオブジェクトを個別に保持し、レイヤーを直接特定する。
3. メモリの明示的解放: オブジェクト変数の `Nothing` 代入を徹底する。
—
2. 実装コード：マルチページ・レイヤー制御の最適解
以下のコードは、特定の名前を持つレイヤーを全ページから一括で削除・非表示にするためのテンプレートだ。
‘ 伝説的なチーフアーキテクトによる、クリーンで高速な処理フロー
Public Sub ProcessLayersAcrossPages(ByVal targetLayerName As String, ByVal shouldDelete As Boolean)
Dim doc As Document
Set doc = ActiveDocument
‘ 最適化の極み：再描画とイベントを完全に遮断する
Optimization = True
doc.BeginCommandGroup “Bulk Layer Cleanup”
On Error GoTo Cleanup
Dim pg As Page
Dim lay As Layer
For Each pg In doc.Pages
‘ ページをアクティブにせず、オブジェクトツリーからレイヤーを特定する
Set lay = pg.Layers.Find(targetLayerName)
If Not lay Is Nothing Then
If shouldDelete Then
‘ 削除時はUndo履歴を考慮しつつ一気に消去
lay.Delete
Else
‘ 非表示にする場合はVisibleプロパティのみを操作
lay.Visible = False
End If
End If
‘ 参照の明示的破棄（メモリリーク防止）
Set lay = Nothing
Next pg
Cleanup:
‘ 終了処理：エラー発生時も必ずOptimizationを元に戻す
doc.EndCommandGroup
Optimization = False
ActiveWindow.Refresh
If Err.Number <> 0 Then
MsgBox “Critical Error: ” & Err.Description, vbCritical
End If
End Sub
—
3. レガシー環境とメモリ最適化の知見
A. 大規模ファイルでのメモリ負荷対策
もしファイルが数百MBを超える場合、`For Each` ループ内でオブジェクトを生成しすぎると、VBAのガベージコレクションが追いつかない。その場合は、`Page` インデックスを直接指定する `For i = 1 To doc.Pages.Count` 形式を採用し、`DoEvents` を適宜挟むことで、OSとの同期を維持しつつクラッシュを防ぐ。
B. Windows APIによる「強制停止」の活用
処理が重すぎる場合、あるいはバックグラウンドでシステム間連携を行う場合、`user32.dll` の `LockWindowUpdate` を併用するのも手だ。
‘ 宣言部
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hWndLock As LongPtr) As Long
‘ 処理直前に呼び出し
LockWindowUpdate Application.hWndMain
‘ … 処理 …
‘ 終了後に解除
LockWindowUpdate 0
これは CorelDRAW の `Optimization = True` よりも強力に描画を停止させるため、視覚的なチラつきを完全に排除できる。
—
4. チーフアーキテクトからの提言
自動化エンジニアが陥る最大の罠は、「コードが動くこと」をゴールにすることだ。
真の自動化は、システムがエラーで止まった際に「どこまで処理が進んだか」が明確であり、かつ「再実行が安全であること」を保証しなければならない。今回紹介したレイヤー操作は、破壊的な処理を伴うため、必ず「処理前のバックアップ保存」と「例外処理（Error Handling）」をセットで実装することを義務付けてほしい。
CorelDRAW VBAは古い技術だが、その内部オブジェクトモデルは極めて堅牢だ。あなたが適切に管理さえすれば、数千ページの版違いデータであっても、数秒でクレンジングを完遂する最強の武器となる。
次は、この処理を外部データベース（JSONやXML）と連携させ、多言語展開を完全自動化するパイプライン構築について語ることにしよう。準備はいいか？
