「Ctrl+Z」の連打から卒業しよう。数百の操作をひとまとめにする「トランザクション制御」の極意
こんにちは。今日もCorelDRAWの自動化、楽しんでいますか？
マクロの記録機能を使って「あ、これ自動化できそうだな」と一歩踏み出したあなた。素晴らしいセンスです。でも、コードを書き進めていくうちに、こんな恐怖を感じたことはありませんか？
「もし、このマクロを実行して、結果が思っていたのと違ったら……。数百回も『元に戻す（Ctrl+Z）』を連打するのか？」
大量のページにレイヤーを生成し、何百本ものガイド線を配置する。そんなプロフェッショナルな処理を行うマクロにおいて、ユーザー体験（UX）を決定づけるのは、実は「処理の速さ」だけではありません。「失敗したときに、いかに美しく、一瞬で元に戻せるか」。これこそが、素人のコードと、プロの設計の境界線です。
今日は、CorelDRAW VBAにおける最強の武器、「トランザクション制御（Undo Grouping）」について、その本質を伝授します。ここをマスターすれば、あなたの作るツールは「ただ動くもの」から「信頼されるプロの道具」へと進化します。
1. なぜ「一括Undo」が必要なのか？
想像してみてください。あなたがクライアントから「全500ページのドキュメントに、特定のレイヤーとガイド線を一括で追加してほしい」と頼まれたとします。
あなたが書いたマクロが、実行中にエラーで止まってしまった。あるいは、配置したガイド線の間隔が、実はクライアントの意図と数ミリ違っていた。
もし、トランザクション制御を行っていないマクロだと、CorelDRAWの「Undo（元に戻す）」履歴には、「レイヤー追加」「ガイド線追加」「レイヤー追加」……と、数千件の操作がバラバラに記録されています。 ユーザーが正しい状態に戻そうとすれば、Ctrl+Zを数百回、数千回叩かなければなりません。これはもはや、ユーザーへの嫌がらせに近い状態です。
プロのエンジニアは、「一連のまとまった作業は、一つの塊として扱う」という原則を守ります。これがトランザクション制御の考え方です。
2. 制御の二大柱：Optimization と CommandGroup
効率的で安全なマクロを作るためには、2つのテクニックをセットで使う必要があります。
① Optimization（描画の最適化）
CorelDRAWは、オブジェクトが追加されるたびに「画面を書き直そう」とします。数百のオブジェクトを扱うとき、この「画面の書き換え」が猛烈なオーバーヘッド（負荷）となり、動作を極端に重くします。
`Optimization = True` に設定することで、描画処理を一時停止し、処理速度を劇的に向上させることができます。
② CommandGroup（操作のグループ化）
これが今回の主役です。`BeginCommandGroup` で「ここから一つの作業が始まるよ」と宣言し、`EndCommandGroup` で「ここで作業は終わりだよ」と伝えます。これにより、その間に起きた大量の操作が、Undo履歴の中でたった一つの項目にまとめられます。
3. 【実践】プロフェッショナルなテンプレート・コード
それでは、実際に使えるコードを見てみましょう。単に命令を並べるのではなく、「もしエラーが起きても、必ず設定を元に戻す」という、堅牢な（壊れにくい）構造にしています。
Option Explicit
''' <summary>
''' 大量のレイヤーとガイド線を一括操作するプロフェッショナル用テンプレート
''' </summary>
Sub ProfessionalLayerAndGuideAutomation()
Dim doc As Document
Set doc = ActiveDocument
' 1. エラーハンドリングの設定
' 万が一途中でエラーが起きても、必ず「後片付け」へ飛ばすための仕組みです
On Error GoTo ErrorHandler
' 2. 最適化の開始（描画を止めて高速化）
Application.Optimization = True
' 3. トランザクション（Undoグループ）の開始
' ここで指定した名前が、Ctrl+Zを押した時に表示される履歴の名前になります
doc.BeginCommandGroup "自動レイヤー・ガイド生成処理"
' --- ここからがメインの処理領域 ---
Dim i As Integer
Dim pg As Page
Dim newLayer As Layer
' 例：全ページに対してループ処理
For Each pg In doc.Pages
pg.Activate
' 新しいレイヤーを追加
Set newLayer = pg.AddLayer("自動生成レイヤー_" & pg.Index)
' ガイド線を大量に配置（例として10本）
Dim xPos As Double
For i = 1 To 10
xPos = i * 20.0 ' 20mm間隔で配置
pg.ActiveLayer.AddGuide cdrGuideVertical, xPos
Next i
Next pg
' --- メイン処理領域ここまで ---
' 4. 正常終了時のクリーンアップ
' グループ化を終了し、描画の最適化を解除します
doc.EndCommandGroup
Application.Optimization = False
MsgBox "処理が完了しました！", vbInformation, "成功"
Exit Sub
ErrorHandler:
' 5. エラー発生時の救済措置
' ここが「プロ」の分かれ目です。
' エラーが起きても、描画停止を解除し、Undoグループを適切に閉じる必要があります。
' Undoグループが開始されている場合のみ、終了させる（安全策）
' ※BeginCommandGroupの後にエラーが出た場合、Endが必要
On Error Resume Next ' エラーハンドラ内での二次エラーを防ぐ
doc.EndCommandGroup
Application.Optimization = False
On Error GoTo 0
MsgBox "エラーが発生しました。処理を中断し、元の状態に戻しました。" & vbCrLf & _
"Error: " & Err.Description, vbCritical, "実行エラー"
End Sub4. ここが「極限の知見」：陥りやすい罠
このコードを理解したあなたに、さらに深いアドバイスを送ります。
罠その1：`Optimization = False` を忘れる
`Optimization = True` にしたまま処理が終わってしまうと、CorelDRAWの画面は一切更新されなくなります。「マクロは終わったはずなのに、画面が真っ白で何も変わっていない！」というパニックが起きます。必ず `ErrorHandler` を含めて、確実に `False` に戻す設計にしてください。
罠その2：エラー発生時の `EndCommandGroup` の扱い
もし `BeginCommandGroup` を呼び出す前にエラーが発生した場合、`EndCommandGroup` を実行しようとすると、逆に「そんなグループはありません」というエラーが出てしまいます。
上記のテンプレートでは、`On Error Resume Next` を使って、エラーハンドラ内での二次的なエラーを防いでいます。これが「止まらないコード」を作るコツです。
罠その3：メモリの使いすぎ
数百ページもの処理を行う場合、オブジェクト変数（`Set newLayer = …` など）をループ内で適切に管理しないと、メモリを圧迫することがあります。大規模な処理を行う際は、処理が終わった変数に `Set newLayer = Nothing` と明示的に入れる習慣をつけると、より洗練されたコードになります。
最後に
「動けばいい」という考え方は、小規模なスクリプトなら正解かもしれません。しかし、あなたが作るツールが、誰かの業務を支える「製品」になるなら、その考え方は捨ててください。
「失敗しても、一瞬で、美しく、元に戻せること」
この一言をコードに込めることができれば、あなたはもう「マクロの記録」から卒業し、真のCorelDRAW VBAエンジニアとしての第一歩を踏み出したことになります。
さあ、自信を持って、あなたの素晴らしい自動化の世界を広げていってください。応援していますよ！
