CorelDRAW VBAを掌握する極限の知見
【実務中級】ActiveDocument.UndoLockを活用した大規模ループ処理のパフォーマンス最適化と履歴管理の制御
CorelDRAWを用いた自動化開発において、数千、数万点に及ぶベクターオブジェクトを一括生成・変形するバッチ処理を実装した際、誰もが一度は「アプリケーションのフリーズ」や「メモリリークによる強制終了」という壁に直面する。
素人が書いたVBAコードは、決まって以下のような絶望的な遅延を引き起こす。
‘ 【アンチパターン】Undo制御を放棄した愚直なループ
Dim i As Long
For i = 1 to 10000
ActiveLayer.CreateRectangle 0, 0, 10, 10 ‘ この1行がVBAとCorelDRAWの内部Undoスタックを直撃する
Next i
なぜこのコードが数分、あるいは数十分もの時間を要し、最終的にシステムをクラッシュさせるのか。その理由はCorelDRAWの「Undo（アンドゥ）アーキテクチャの重み」にある。CorelDRAWはオブジェクトが1つ生成・変更されるたびに、その全状態をトランザクションとしてUndoバッファに蓄積する。10万回の操作を行えば、10万回分の履歴管理オーバーヘッドがVBAの実行スレッドとGUIスレッドの間に発生し、メモリ空間を圧迫し続けるのだ。
本稿では、シニアエンジニアおよび大規模システム管理者が知るべき、`ActiveDocument.UndoLock` を用いたトランザクション制御の極意と、オブジェクトライフサイクルの完全掌握によるパフォーマンスの極限最適化を解説する。
—
1. UndoLockのメカニズムとアーキテクチャ的意味
`ActiveDocument.UndoLock` は、CorelDRAWのドキュメント単位でUndo/Redoのトラッキングを一時的に無効化（またはロック）するための強力なプロパティである。
これを適切にコードのブロックで囲むことにより、CorelDRAWは「履歴の記録」という莫大な処理コストから解放され、純粋な描画エンジンの計算処理のみにリソースを集中させることが可能になる。
UndoLock実装の基本構文
Sub OptimizedBatchProcess()
Dim doc As Document
Set doc = ActiveDocument
‘ Undoロックの開始（これ以降の操作は履歴に記録されない）
doc.UndoLock
On Error GoTo ErrorHandler
‘ — ここに爆速のループ処理を記述 —
ExecuteHeavyOperations doc
‘ ロックの解除とUndoグループの確定
doc.UndoUnlock
Exit Sub
ErrorHandler:
‘ エラー発生時でも必ずロックを解除する（さもないとドキュメントのUndo機能が壊れたままになる）
doc.UndoUnlock
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End Sub
このパターンにおいて最も重要なのは、「エラーハンドリングの徹底」である。`UndoLock`をかけたままVBAが実行時エラーで中断した場合、CorelDRAWのドキュメントはUndo機能がロックされた不整合状態に取り残される。実務レベルのコードでは、必ず `On Error GoTo` による安全弁を設置しなければならない。
—
2. 実践：数万オブジェクト生成におけるパフォーマンス比較
以下の実用コードは、`UndoLock` の有無がいかに実行速度に影響を与えるかを証明するベンチマーク兼、実務で使用可能なグリッド状シェイプ自動生成モジュールである。
Sub BenchmarkAndGenerateShapes()
Dim startTime As Double
Dim i As Long, j As Long
Dim sh As Shape
Dim layer As Layer
Set layer = ActiveLayer
startTime = Timer
‘ 【重要】画面描画の更新を停止し、さらにパフォーマンスを加速させる
Application.Optimization = True
‘ Undoのトラッキングを完全に排除
ActiveDocument.UndoLock
On Error GoTo CleanUp
‘ 100 × 100 = 10,000 個の矩形を生成する負荷テスト
For i = 0 To 99
For j = 0 To 99
Set sh = layer.CreateRectangle(i 5, j 5, i 5 + 4, j 5 + 4)
‘ オブジェクトプロパティの微調整（必要に応じて）
sh.Fill.UniformColor.CmykAssign 0, 100, 100, 0
sh.Outline.SetNoOutline
‘ 【メモリ管理の鉄則】ループ内で生成したオブジェクト変数は明示的に解放する
Set sh = Nothing
Next j
Next i
CleanUp:
‘ 【必須】Undoロックの解除と画面描画の復元
ActiveDocument.UndoUnlock
Application.Optimization = False
‘ 強制的に画面を再描画
ActiveWindow.Refresh
If Err.Number <> 0 Then
MsgBox “処理中に異常終了しました: ” & Err.Description, vbCritical
Else
MsgBox “処理完了 実行時間: ” & Format(Timer – startTime, “0.00秒”), vbInformation
End If
End Sub
チーフアーキテクトの視点：`Application.Optimization` との併用
上記のコードでは、`UndoLock` と共に `Application.Optimization = True` を使用している。
この設定を行うことで、CorelDRAWはオブジェクトが追加されるたびに発生する「ビューポートの再描画（Redraw）」を完全に抑制する。`UndoLock` が「論理層（履歴）」の負荷を消し去り、`Optimization` が「物理層（描画）」の負荷を消し去る。この2つを同時に適用して初めて、真の大規模データ処理基盤が完成する。
—
3. レガシー環境とシステム間連携におけるリスク管理
企業内の基幹システム（ERPやPIMなど）から出力された膨大なCSVやXMLデータをCorelDRAWに流し込み、カタログやパッケージ展開図を自動生成するシステムでは、さらに高度なメモリ管理が要求される。
COMオブジェクトの参照リークを防ぐ作法
VBAの実行環境は、ガベージコレクションが強力ではない。ループ内で以下のような書き方をすると、VBAの背後にあるCOMコンポーネントの参照カウンタが下がらず、メモリリーク（RAMの枯渇）を引き起こす。
‘ 【NGパターン】参照を解放しないコード
For i = 1 To 10000
ActiveLayer.CreateRectangle(0, 0, 10, 10).Fill.UniformColor.RGBAssign 255, 0, 0
‘ CreateRectangleが返すShapeオブジェクトの参照がスタックに残り続ける
Next i
これを防ぐためには、必ず変数に一度受け、ループの各イテレーションの最後で `Set sh = Nothing` によって参照を明示的に切断する必要がある。前述のベンチマークコードにその実装が含まれているのはそのためだ。
トランザクションの粒度設計
何万ものオブジェクトを一括処理する際、すべてを1つの `UndoLock` で囲むと、ユーザーが「一連の処理を1回のアンドゥで元に戻したい」という要件には合致するが、処理途中で万が一エラーが起きた場合のリスクが大きくなる。
もしバッチ処理をいくつかの「論理ブロック（例：1ページごと、あるいは1000アイテムごと）」に分割する場合は、以下のようにトランザクションを細分化する設計も検討に値する。
Sub ChunkedBatchProcess()
Dim batchSize As Long
batchSize = 1000
Dim totalItems As Long
totalItems = 10000
Dim i As Long
For i = 1 To totalItems Step batchSize
ActiveDocument.UndoLock
‘ — 1000件単位の処理 —
ProcessChunk i, i + batchSize – 1
ActiveDocument.UndoUnlock
‘ 必要に応じてイベントループに制御を返す（フリーズ対策）
DoEvents
Next i
End Sub
`DoEvents` を挟むことで、OSやCorelDRAWが「フリーズしていない」と判断し、ユーザーがタスクマネージャーから強制終了せざるを得ない状況を防ぐことができる。ただし、`UndoLock` のスコープ内に `DoEvents` を含めると予期せぬタイミングでの描画やユーザー操作割り込みが発生する原因になるため、必ず `UndoUnlock` の外側に配置するのが鉄則である。
—
総括
CorelDRAW VBAによる自動化の成否は、「オブジェクトモデルをいかに効率よく叩くか」ではなく、「CorelDRAWが裏側で行っている重厚長大なオーバーヘッド（履歴管理と描画更新）をいかに正確にコントロール（マスク）するか」にかかっている。
`ActiveDocument.UndoLock` は、そのための最も鋭利な刃である。このプロパティのライフサイクルを完全に掌握したエンジニアだけが、数万点規模のベクターデータを秒単位で料理する、真に安定したエンタープライズグレードの自動化システムを構築できるのである。
