CorelDRAW VBAの極意：ページ操作の「地雷」を回避し、自動化を完璧に制御する
こんにちは。CorelDRAWの自動化の世界へようこそ。
マクロの記録ボタンを押すだけの「初心者」から、数千ページのカタログを数秒で構築する「アーキテクト」へ進化するための第一歩を踏み出しましょう。
今回解説するのは、「ページ操作の動的制御」です。ページを追加したり、整理のために削除したりする際、多くの人が「インデックスのズレ」や「メモリリークによる強制終了」という壁にぶつかります。この壁を越えるための、現場で使える「最強の作法」を伝授します。
—
1. なぜ「ページの削除」でエラーが起きるのか？
一番多い失敗は、「前から順番に削除する」というアプローチです。
例えば、1ページ目から3ページ目を削除したいとき、`For i = 1 To 3` でループを回して削除するとどうなるでしょう？
- 1つ目を削除すると、本来2ページ目だったものが1ページ目に繰り上がります。
- 次に「2つ目」を削除しようとすると、本来3ページ目だったものが削除されてしまいます。
結果、意図しないページが消えたり、存在しないインデックスを指して「Run-time error ‘9’: Subscript out of range」が発生します。
解決策：ループは「後ろから」回せ
ページを削除するときは、必ずインデックスの大きい方から小さい方へ逆順でループする。これがCorelDRAW VBAにおける鉄則です。
‘ ページの逆順削除：これがプロの定石
Sub DeleteAllPagesExceptFirst()
Dim i As Integer
Dim doc As Document
Set doc = ActiveDocument
‘ ActiveDocument.Pages.Count はページ数。ここから1まで逆順にループ
For i = doc.Pages.Count To 2 Step -1
doc.Pages(i).Delete
Next i
MsgBox “1ページ目以外をすべて削除しました。”
End Sub
—
2. ページの動的追加と「ActiveLayer」の罠
テンプレートからページを生成する際、単に `doc.AddPages(1)` を呼ぶだけでは不十分です。生成した瞬間に「どのレイヤーがアクティブか」を制御できていないと、後の描画処理で予期せぬレイヤーにオブジェクトが散乱します。
「ページを作る」ことと「レイヤーをリセットする」ことはセットで行う。これが重要です。
‘ ページを追加し、特定のレイヤーを初期化する関数
Sub CreateNewPageAndSetup(pageIndex As Integer)
Dim p As Page
Set p = ActiveDocument.AddPages(1)
‘ 新しく作ったページをアクティブに
p.Activate
‘ このページ上の「デフォルトレイヤー」をクリアする例
p.ActiveLayer.Shapes.All.Delete
‘ ここにテンプレートからオブジェクトをインポートする処理を記述
End Sub
—
3. 安全なページ整理のための「例外管理」アーキテクチャ
現場では「全ページをチェックし、特定の条件に合致するものだけを削除する」という処理が頻繁に発生します。ここで、エラーを完全に握りつぶすのではなく、「安全にクリーンアップする」ための雛形を紹介します。
Sub SafePageCleanup()
Dim i As Integer
Dim doc As Document
Set doc = ActiveDocument
‘ エラーハンドリング：万が一の事態に備える
On Error GoTo ErrorHandler
‘ ページ数が1より大きい場合のみ処理
If doc.Pages.Count > 1 Then
For i = doc.Pages.Count To 1 Step -1
‘ 例：ページ名が “Temp” で始まるページだけ削除する
If Left(doc.Pages(i).Name, 4) = “Temp” Then
doc.Pages(i).Delete
End If
Next i
End If
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End Sub
—
4. アーキテクトからのアドバイス：オブジェクトを「保持」せよ
初心者がやりがちなミスとして、ループの中で何度も `ActiveDocument.Pages(i)` を呼び出すコードがあります。CorelDRAWのオブジェクトモデルは強力ですが、毎回 `ActiveDocument` を経由するとパフォーマンスが低下し、参照の安定性も損なわれます。
- 変数に格納する: `Dim p As Page` と宣言し、`Set p = doc.Pages(i)` とすることで、メモリ上の参照を安定させます。
- イベントを無効化する: 大量にページを生成する場合は、`Application.Optimization = True` を設定することで、画面更新を止めて劇的に高速化できます。
—
まとめ
CorelDRAW VBAを掌握するための3つの極意です。
1. 削除は後ろから！（インデックスの動的変化を防ぐ）
2. レイヤーを初期化せよ！（ページ追加後の散らかりを防止）
3. オブジェクトを変数に格納せよ！（パフォーマンスと安定性の向上）
ここをクリアすれば、あなたはもう「マクロの記録」に頼る初心者ではありません。CorelDRAWという巨大なキャンバスを、プログラムで自在に操るエンジニアの領域です。
次に挑戦する際は、ぜひ「`Application.Optimization`」を調べてみてください。あなたのマクロが数秒で終わるようになる魔法のコマンドです。応援していますよ！
