CorelDRAW VBAを掌握する極限の知見：Undoバッファの支配とトランザクション制御
CorelDRAW VBAの自動化において、多くの開発者が直面し、そして見過ごしがちな致命的なボトルネックがある。それが「Undo（元に戻す）バッファの肥大化」だ。
数千のオブジェクトを生成・変形するバッチ処理をVBAで実行した際、コードの完了後にユーザーが「Ctrl+Z」を叩いたとする。もしトランザクションの制御を怠っていれば、ユーザーは数千回に及ぶ「個別の単一オブジェクトの生成・移動」の履歴を延々と逆戻りさせられることになる。これはUXの観点から最悪であるだけでなく、CorelDRAWの内部メモリ管理（Undoスタック）にとっても無駄な負荷でしかない。
真に洗練された自動化システムとは、プロシージャ内で実行された一連の破壊的・非破壊的変更を不可分の「単一のトランザクション」としてまとめ上げることである。
今回は、CorelDRAWのUndoバッファを完全に掌握し、VBAからコマンドグループを制御するための極限の知見を公開する。
—
1. CorelDRAWのUndoアーキテクチャとコマンドグループ
CorelDRAWのオブジェクトモデルには、アプリケーションの操作履歴を制御するための強力なプリミティブが用意されている。それが `Application.BeginCommandGroup` と `Application.EndCommandGroup`（または `Optimization` プロパティとの組み合わせ）だ。
これらは、RDB（リレーショナルデータベース）における `BEGIN TRANSACTION` と `COMMIT` に等しい。このスコープで囲まれた一連のVBA操作は、CorelDRAWの内部エンジンに対して「1つのユーザー操作」としてアトミック（不可分）に記録される。
アーキテクチャ上の重要原則
1. アトミズムの保証: 処理の途中でエラーが発生した場合のロールバック処理（例外処理）とコマンドグループの整合性。
2. 描画イベントの抑制: トランザクション中は画面描画（ScreenUpdating）やイベントを完全に遮断し、OSのメッセージループを枯渇させない。
3. オブジェクトのライフサイクル管理: 生成した不要なメモリ（ShapeRangeやMatrixなど）の即時解放。
—
2. 実装：トランザクション制御を組み込んだ堅牢な一括処理コード
以下のコードは、実務の現場でそのまま使用できる、極限まで最適化されたトランザクション制御のテンプレートだ。大量のシェイプを生成し、それらを1つのUndo履歴にまとめる。
Option Explicit
‘ =========================================================================
‘ 模範的なCorelDRAW Undoトランザクション制御サンプル
‘ Archtect: Chief Automation Engineer
‘ =========================================================================
Sub ExecuteAtomicBatchProcess()
Dim startTime As Double
startTime = Timer
‘ 1. エラーハンドリングの準備（クラッシュ時のUndoハングを防ぐ）
On Error GoTo ErrorHandler
‘ 2. 描画の完全抑制（パフォーマンス最大化の定石）
ActiveDocument.BeginOptimization
‘ 3. 【最重要】Undoコマンドグループの開始
‘ 引数には「Ctrl+Z」を押した際に履歴に表示される名前を指定する
Application.BeginCommandGroup “一括シェイプ生成とレイアウト最適化”
‘ — ここから業務ロジック（例：1000個のオブジェクトを規則的に配置） —
Dim s As Shape
Dim i As Long
Dim layerObj As Layer
Set layerObj = ActiveDocument.ActiveLayer
‘ ダミーのグリッド生成シミュレーション
For i = 1 to 1000
Set s = layerObj.CreateRectangle(i 2, i 2, (i 2) + 10, (i 2) + 10)
s.Fill.UniformColor.RGBAAssign 255, 128, 0
s.Outline.SetNoOutline
Next i
‘ — 業務ロジックここまで —
‘ 4. Undoコマンドグループの正常終了
Application.EndCommandGroup
‘ 5. 描画の復元
ActiveDocument.EndOptimization
‘ 強制画面リフレッシュ
ActiveWindow.Refresh
MsgBox “処理が正常終了しました。実行時間: ” & Format(Timer – startTime, “0.00”) & “秒”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 【極限の知見】エラー発生時の安全網
‘ トランザクションが開いたままVBAが異常終了するとCorelDRAWが不安定になるため必ず閉じる
On Error Resume Next
‘ 未完了のコマンドグループを強制終了（またはロールバックに相当する処理）
‘ ※CorelDRAW VBAではBeginCommandGroupのネスト深度に注意が必要
Application.EndCommandGroup
ActiveDocument.EndOptimization
ActiveWindow.Refresh
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
End Sub
—
3. シニアエンジニアが押さえるべき「罠」と回避策
罠1: BeginCommandGroupのネストと「沈黙のフリーズ」
複数のVBAプロシージャ（共通関数など）をモジュール化している際、それぞれの関数内で `BeginCommandGroup` を呼んでしまうミスが多発する。CorelDRAWでコマンドグループを多重にネストさせると、Undoスタックのインデックスが狂い、最悪の場合ドキュメントが破損するか、VBAランタイムがサイレントクラッシュする。
対策:
コマンドグループの開始と終了は、必ず最上位（エントリーポイント）のプロシージャにのみ記述すること。下位のサブルーチンには一切記述せず、純粋なデータ処理とオブジェクト操作のみを担当させる。
罠2: エラー時のUndoスタックの残骸
VBAのコード内で実行時エラー（ゼロ除算やオブジェクト参照エラーなど）が発生し、`Error Handler` にジャンプした際、`BeginCommandGroup` が呼び出されたままで `EndCommandGroup` がスキップされると、CorelDRAWの内部ステートが「コマンドグループ構築中」のままフリーズする。
対策:
上記のサンプルコードの通り、エラーハンドラー内でも必ず `EndCommandGroup`（または適切な状態リセット）を安全に呼び出せる構造（防御的プログラミング）を徹底する。
—
4. パフォーマンス極限追求のための周辺知識
CorelDRAWのVBAで大量のオブジェクトを扱う場合、Undoのグループ化と併せて以下の最適化を同時に適用しなければ意味がない。
- `ActiveDocument.BeginOptimization` / `EndOptimization`:
これらは画面の再描画を止めるだけでなく、ドキュメントツリーのイベント通知をミュートする。オブジェクトの生成数が100を超える場合は必須。
- オブジェクト変数の即時解放:
ループ内で生成・破棄されるオブジェクト変数（`Shape`, `Matrix` 等）は、ループの終わりに `Set s = Nothing` と明示的に解放し、VBAのガベージコレクションを待たずにメモリリークを防ぐ。
総括
プログラマの技量は、コードが「動く」ということではなく、「異常系を含めてシステム全体にどのような影響を与えるか」を完全にコントロールできているかで決まる。
Undoバッファの制御は、単なる便利機能ではない。それはCorelDRAWという巨大なDTPエンジンのメモリ空間と、人間の作業履歴という心理的空間を橋渡しする、極めてアーキテクチャ的なアプローチなのだ。この知見をあなたのソリューションに組み込み、真にプロフェッショナルな安定性を実現してほしい。
