【上級プロ向け】トランザクション制御とUndoグループ化による数百ページの完全一括ロールバック
「マクロの記録」から一歩踏み出し、コードを自分で書き始めた皆さん、素晴らしい一歩を踏み出しましたね。
しかし、ある時あなたは「壁」にぶつかるはずです。それは「規模（スケール）」という壁です。
数個のオブジェクトを動かすだけなら、マクロが途中で止まっても大した問題はありません。しかし、もしあなたのマクロが「100枚のページを作成し、それぞれに5つのレイヤーを生成し、さらに複雑なガイド線を配置する」という重い処理を行っている最中に、予期せぬエラーで停止したらどうなるでしょうか？
画面には、中途半端に作成されたページとレイヤーが散乱し、元に戻そうとしても「Ctrl+Z」を100回、あるいは1000回も連打しなければならない……。これでは自動化どころか、手作業よりも地獄のような作業になってしまいます。
今日は、プロの現場で必須となる「トランザクション制御」と「Undoグループ化」、そして「堅牢なエラーハンドリング」という、CorelDRAW VBAを「ツール」から「システム」へと昇華させる極限の知見を伝授します。
1. なぜ「ただのループ」ではいけないのか？
多くの初学者が書くコードは、以下のような構造になりがちです。
' 典型的な「危うい」コードのイメージ
Sub BadExample()
Dim i As Integer
For i = 1 To 100
ActiveDocument.AddPages 1 ' ページ追加
' ここで何らかのエラーが発生すると...
' ページが100枚追加された状態で、処理が止まってしまう！
Next i
End Subこのコードの最大の問題は、「操作が一つひとつの独立したアクションとして扱われている」点です。CorelDRAWにとって、1枚目のページ追加と2枚目のページ追加は別々の出来事です。そのため、エラーが起きたとき、それまでの全工程を「一括でなかったことにする」ことができないのです。
プロのエンジニアは、一連の処理を「一つの原子的な塊（トランザクション）」として扱います。
2. 三種の神器：Optimization, CommandGroup, Error Handling
数百ページ規模の操作を安全かつ高速に行うには、3つの技術を組み合わせる必要があります。
① `Optimization`（高速化の魔法）
CorelDRAWは、オブジェクトが作成されるたびに画面を書き換えようとします。100ページ作る際に毎回画面を更新していては、処理速度は劇的に低下します。`Optimization = True` にすることで、描画更新を一時停止し、計算資源をロジックに集中させます。
② `BeginCommandGroup`（Undoの束ね役）
これが今回の主役です。複数の操作を「一つの名前のグループ」としてまとめます。これにより、ユーザーが「元に戻す」を押した際、100回の操作が「一つの大きな塊」として一瞬でロールバックされます。
③ `On Error GoTo`（守護神）
予期せぬエラー（メモリ不足、ファイル権限、オブジェクトの不在など）が発生した際、プログラムを強制終了させるのではなく、適切に「後始末（Cleanup）」を行ってから終了させるための仕組みです。
3. 実践：堅牢な一括処理テンプレート
それでは、これらを統合した「プロ仕様」のコードを見てみましょう。このコードは、ページ追加、レイヤー作成、ガイド線配置を一つのグループとして管理します。
Option Explicit
''' <summary>
''' 大量ページ・レイヤー・ガイド線を安全に一括生成するプロフェッショナル・ルーチン
''' </summary>
Sub ProfessionalMassiveLayout()
' --- 1. エラーハンドリングの準備 ---
On Error GoTo ErrorHandler
Dim doc As Document
Set doc = ActiveDocument
' ドキュメントが開かれていない場合のガード
If doc Is Nothing Then
MsgBox "ドキュメントが開かれていません。", vbCritical
Exit Sub
End If
' --- 2. パフォーマンス最適化の開始 ---
' 画面更新を停止し、処理速度を極限まで高める
Optimization = True
' --- 3. トランザクション（Undoグループ）の開始 ---
' これにより、以降の操作はすべて「Massive Layout Task」という一つの名前でUndo可能になる
doc.BeginCommandGroup "Massive Layout Task"
Dim i As Integer
Dim pg As Page
Dim ly As Layer
Dim g As Guide
' --- 4. メインロジック（数百ページ規模の処理） ---
For i = 1 To 50 ' 実践ではここが数百になるイメージ
' 新しいページを追加
Set pg = doc.AddPages(1)
pg.Name = "AutoPage_" & i
' 各ページに特定のレイヤーを追加
Set ly = pg.CreateLayer("Data_Layer")
' ガイド線を自動配置（例：ページの左から10mmの位置）
' ここでエラーが起きても、BeginCommandGroupのおかげで全て巻き戻せる
Set g = pg.AddGuide(cdrGuideVertical, 10)
' 処理の進捗をコンソールに表示（デバッグ用）
Debug.Print "Processed Page: " & i
Next i
' --- 5. 後始末（正常終了ルート） ---
' 全ての操作が成功したら、グループを閉じる
doc.EndCommandGroup
' 最適化を解除し、画面を再描画する
Optimization = False
doc.Refresh
MsgBox "処理が正常に完了しました！", vbInformation
Exit Sub
ErrorHandler:
' --- 6. エラー発生時の緊急ロールバック処理 ---
' エラーが発生した場合、ここへジャンプする
' Undoグループを強制的に閉じることで、中途半端な状態を「一つの操作」として閉じる
' これにより、ユーザーはCtrl+Z一回で、エラー直前の状態へ完全に戻れる
If Not doc Is Nothing Then
doc.EndCommandGroup
End If
' 最適化を必ず解除（これを忘れるとCorelDRAWの画面が固まったように見える）
Optimization = False
doc.Refresh
' エラー内容を報告
MsgBox "致命的なエラーが発生しました。処理を中断し、変更をロールバックしました。" & vbCrLf & _
"Error No: " & Err.Number & vbCrLf & _
"Description: " & Err.Description, vbCritical, "System Error"
End Sub4. コードの深淵：なぜこの構造が「最強」なのか
このコードを分解して、設計思想を解説します。
なぜ `ErrorHandler` 内でも `EndCommandGroup` を呼ぶのか？
ここが最も重要なポイントです。もしエラーが起きたときに `EndCommandGroup` を呼ばずにプログラムを終了してしまうと、CorelDRAWの内部的な「Undoスタック」が壊れた状態（グループが開いたままの状態）になり、その後のユーザー操作に悪影響を及ぼす可能性があります。
「開けたら、必ず閉じる」。これはデータベース操作でもVBAでも共通する鉄則です。
`Optimization = False` と `doc.Refresh` の重要性
`Optimization = True` にしたままエラーで止まると、CorelDRAWは「画面を更新しなくていいんだな」と判断し続け、ユーザーには画面がフリーズしたように見えます。エラーハンドラの中で必ず `False` に戻し、`Refresh` を叩くことで、ユーザーに「安全に止まったこと」を視覚的に伝えるのです。
`doc.BeginCommandGroup` の名前
`”Massive Layout Task”` という名前を付けています。これにより、ユーザーがUndoを実行した際、CorelDRAWのUndo履歴にこの名前が表示されます。ユーザーに対して「今、何が巻き戻されたのか」を明示する、プロフェッショナルな親切心です。
5. まとめ：次の一歩へ
プログラミングにおける「堅牢性（Robustness）」とは、「失敗したときに、いかに美しく、いかに安全に立ち止まれるか」を設計することに他なりません。
1. `Optimization` でスピードを稼ぐ。
2. `BeginCommandGroup` で操作をひとまとめにする。
3. `On Error GoTo` で、失敗しても必ず「後始末」をする。
この3点をマスターすれば、あなたの作るマクロは、単なる「便利ツール」から、業務を支える「信頼できるシステム」へと進化します。
さあ、次はもっと複雑な、条件分岐を含む大規模な自動化に挑戦してみてください。もし道に迷ったら、いつでもこの「トランザクション」の原則に立ち返ってくださいね。応援していますよ！
