CorelDRAW VBAの「神」になる第一歩：Undoを支配し、数百の操作を「一瞬」で無に帰す技術
こんにちは。CorelDRAWの自動化の世界へようこそ。
マクロを書き始めると、誰もが一度はこう思うはずです。「数百ページを一気に処理したあと、元に戻そうとしたら『元に戻す』を100回連打しなければならない……これ、なんとかならないの？」と。
実は、プロとアマチュアの決定的な差は、「Undo（元に戻す）の履歴をどう制御するか」という一点に集約されます。今日は、あなたのマクロを「プロのツール」へと昇華させる、`BeginCommandGroup`と`EndCommandGroup`という魔法の杖について解説しましょう。
—
1. なぜ「CommandGroup」が重要なのか？
CorelDRAWのVBAは、コードの1行1行を律儀に「操作」として履歴（Undo）に残そうとします。ページを100枚追加し、ガイドを引く……これらを個別に実行すると、ユーザーが「Ctrl+Z」を押したとき、ページが1枚ずつ消え、ガイドが1本ずつ消えていくという地獄のような光景が待っています。
「一連の処理を一つの操作としてCorelDRAWに認識させる」
これこそが、ユーザーフレンドリーな自動化の必須条件です。
—
2. 基本の型：魔法のサンドイッチ構造
考え方は非常にシンプルです。処理の前後を「グループ化の開始」と「終了」で挟むだけ。これだけで、内部で行われた数千の操作が、履歴スタック上では「たった一つの操作」として結合されます。
Sub CreateMasterLayout()
‘ 1. コマンドグループを開始（引数はUndo履歴に表示される名前）
ActiveDocument.BeginCommandGroup “自動レイアウト構築”
‘ — ここから下に大量の処理を書く —
Dim i As Integer
For i = 1 To 100
Dim p As Page
Set p = ActiveDocument.AddPages(1)
‘ ガイドを配置するなどの重い処理
p.AddGuide cdrVerticalGuide, 100
Next i
‘ ———————————-
‘ 2. コマンドグループを終了
ActiveDocument.EndCommandGroup
End Sub
—
3. 実践：ページ操作とガイド線配置のベストプラクティス
ここからが本題です。単にグループ化するだけでなく、メモリ負荷を抑え、高速に処理するための「プロの書き方」を伝授します。
Sub AdvancedPageSetup()
‘ エラーハンドリングを忘れずに。
‘ 途中で失敗してもEndCommandGroupが呼ばれるように設計するのがプロの嗜み。
On Error GoTo Cleanup
ActiveDocument.BeginCommandGroup “プロフェッショナル・レイアウト構築”
Dim i As Integer
For i = 1 To 50
‘ ページを追加
Dim p As Page
Set p = ActiveDocument.AddPages(1)
‘ レイヤー操作：特定のガイド用レイヤーをアクティブに
Dim lyr As Layer
Set lyr = p.Layers(“ガイド”)
lyr.Activate
‘ ガイド線を配置（座標指定）
lyr.CreateGuide cdrVerticalGuide, 50.0
lyr.CreateGuide cdrHorizontalGuide, 100.0
Next i
Cleanup:
‘ どんな状況でも必ずグループを閉じる（これを忘れるとCorelDRAWが固まる原因になります）
ActiveDocument.EndCommandGroup
End Sub
—
4. 陥りやすい罠：ここだけは注意！
プロを目指すあなたが、絶対に犯してはいけないミスが2つあります。
① `EndCommandGroup` を書き忘れる（またはエラーで飛ばす）
もしコードの途中でエラーが発生し、`EndCommandGroup` に到達せずに終了すると、CorelDRAWは「グループが閉じられていない状態」で迷子になります。最悪の場合、アプリケーションがハングアップします。上のコード例のように、必ず `On Error GoTo` を活用し、確実に終了処理へ誘導してください。
② 画面の再描画を抑えない
大量のページ操作を行う際、`Application.Optimization = True` を忘れていませんか？
グループ化とセットで、以下のコードを冒頭に置くのが鉄則です。
Application.Optimization = True ‘ 画面描画を停止して高速化
‘ …処理…
Application.Optimization = False ‘ 描画を再開
Application.Refresh ‘ 最後に一度だけ更新
—
最後に：あなたへのアドバイス
「マクロの記録」ボタンを押すだけの世界から、一行ずつコードを綴る世界へ。
あなたが書く数行のコードは、誰かの作業時間を数時間分、短縮する可能性があります。
`BeginCommandGroup` を制する者は、CorelDRAWの挙動を制します。
ぜひ、あなたの次のプロジェクトでこの「サンドイッチ構造」を試してみてください。もしわからないことがあれば、いつでもまた聞きに来てくださいね。
君のコードが、今日もどこかで誰かを助けているはずです。頑張ってください！
