CorelDRAW VBAを掌握する極限の知見：`ActivePage`と`ActiveLayer`の呪縛を断ち切れ
開発現場でよく見かける光景がある。「ボタン一つで全ページのオブジェクトを整列させるマクロを作った」と意気揚々とテストし、ドキュメントを閉じた状態や、新規ドキュメントを開いた瞬間に実行した途端、エラー番号91「オブジェクト変数または With ブロック変数が設定されていません。」でVBE（Visual Basic Editor）が盛大にクラッシュする。
素人はここで `On Error Resume Next` という禁断の麻薬に手を出す。エラーを握りつぶし、背後で無限ループや意図せぬメモリリークを引き起こす――これではプロの仕事とは言えない。
CorelDRAW VBAにおける最大の罠は、グローバルなコンテキスト（`ActiveDocument`、`ActivePage`、`ActiveLayer`）が「常に存在しているとは限らない」という事実にある。
今回は、実務の現場で絶対に破綻しない、堅牢性（ロバストネス）の極限に達したページ・レイヤー制御とエラーハンドリングの設計思想を伝授する。
—
なぜ `ActivePage` の直叩きは地雷なのか？
CorelDRAWのオブジェクトモデルにおいて、`ActiveDocument` がない状態、あるいはドキュメント内に1枚もページが存在しない（極めて稀だが、アドイン等の挙動や不正なファイル操作で起こり得る）状態で `ActivePage` を呼び出すと、VBAのランタイムは即座に例外をスローする。
さらに厄介なのは、「アクティブなレイヤーがロックされている」「レイヤーが非表示である」「ガイド線レイヤーを操作しようとして通常のレイヤーオブジェクトを触っている」といった論理エラーだ。これらは構文エラーではないため、事前の厳密なステータスチェックが不可欠となる。
現場で求められる「3つの防衛ライン」
1. ドキュメントの存在確認：操作対象のキャンバスはあるか？
2. ページの有効性確認：アクティブページは正しくロードされているか？
3. レイヤーの状態確認：書き込み可能なアクティブレイヤーが存在し、ロックされていないか？
これらをすべてクリアした上で処理を流し込む。それがプロダクションコードの絶対条件だ。
—
【実務コード】完全網羅した堅牢なページ・レイヤー制御テンプレート
以下のコードは、単なるエラー回避にとどまらず、処理速度を最大化するための画面描画抑制（`Optimization`）と、予期せぬ中断時にも環境を確実に復元するエラーハンドリングを実装した、実戦投入仕様のテンプレートだ。
Option Explicit
” ==============================================================================
” 担当者向け：実務レベルの堅牢なページ・レイヤー操作テンプレート
” 概要: ドキュメント・ページ・レイヤーの存在・状態を完全検証し、
II 安全かつ高速にガイド線の自動配置とオブジェクト処理を行う。
” ==============================================================================
Public Sub SafeExecuteDocumentAutomation()
Dim targetDoc As Document
Dim targetPage As Page
Dim targetLayer As Layer
‘ 1. 防衛ライン：ドキュメントの存在チェック
If CorelDRAW.Documents.Count = 0 Then
MsgBox “処理対象のドキュメントが開vていません。”, vbCritical, “致命的エラー”
Exit Sub
End If
Set targetDoc = CorelDRAW.ActiveDocument
‘ トランザクション・パフォーマンス最適化の開始
‘ ※画面描画を止めることで、VBAの実行速度を数十倍に跳ね上げる
targetDoc.Drawing.Optimization = True
targetDoc.App.EventsEnabled = False
On Error GoTo ErrorHandler
‘ 2. 防衛ライン：アクティブページの存在および有効性チェック
If targetDoc.Pages.Count = 0 Then
Err.Raise vbObjectError + 1000, “SafeExecute”, “ドキュメント内にページが存在しません。”
End If
Set targetPage = targetDoc.ActivePage
If targetPage Is Nothing Then
Err.Raise vbObjectError + 1001, “SafeExecute”, “アクティブページを取得できませんでした。”
End If
‘ 3. 防衛ライン：アクティブレイヤーの状態チェック（ロック・非表示の網羅）
Set targetLayer = targetPage.ActiveLayer
If targetLayer Is Nothing Then
Err.Raise vbObjectError + 1002, “SafeExecute”, “アクティブレイヤーが存在しません。”
End If
If Not targetLayer.Visible Then
Err.Raise vbObjectError + 1003, “SafeExecute”, “現在のアクティブレイヤーは非表示です。表示状態に変更してください。”
End If
If targetLayer.Locked Then
Err.Raise vbObjectError + 1004, “SafeExecute”, “現在のアクティブレイヤーはロックされています。ロックを解除してください。”
End If
‘ ==============================================================================
// 【コアビジネスロジック】ここから実際の安全な処理を記述
‘ ==============================================================================
‘ 例：アクティブレイヤーの中心に安全にガイド線を自動配置する
Call CreateSafeGuidelines(targetPage, targetLayer)
‘ ==============================================================================
‘ 正常終了処理
GoTo Finally
ErrorHandler:
‘ 予期せぬ例外のキャッチとユーザーへの明確なフィードバック
MsgBox “エラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “業務自動化システム例外”
Finally:
‘ 【超重要】最適化フラグの確実な復元
‘ これを怠るとCorelDRAWのUIがフリーズしたままになるか、メモリリークの温床になる
If Not targetDoc Is Nothing Then
targetDoc.Drawing.Optimization = False
targetDoc.App.EventsEnabled = True
targetDoc.App.Refresh
End If
‘ オブジェクト変数の明示的な解放（ガベージコレクションへの布石）
Set targetLayer = Nothing
Set targetPage = Nothing
Set targetDoc = Nothing
End Sub
” ——————————————————————————
” ガイド線自動配置のサブプロシージャ（レイヤー・ページコンテキスト依存）
” ——————————————————————————
Private Sub CreateSafeGuidelines(ByVal pg As Page, ByVal lyr As Layer)
Dim docX As Double, docY As Double
docX = pg.Width
docY = pg.Height
‘ レイヤーがガイド線レイヤーであるか、通常のレイヤーであるかに応じた安全な処理
‘ ここではアクティブレイヤー上に正確なセンターガイドを引く
Dim gLineH As Shape
Dim gLineV As Shape
‘ レイヤーがアクティブであることを明示的に保証
lyr.Activate
‘ 水平センターガイド
Set gLineH = pg.Guides.Add(cdrHorizontal, docY / 2)
‘ 垂直センターガイド
Set gLineV = pg.Guides.Add(cdrVertical, docX / 2)
‘ 必要に応じた属性付与
gLineH.Layer.Name = lyr.Name
gLineV.Layer.Name = lyr.Name
End Sub
—
プロが実践する設計の急所
1. `Drawing.Optimization = True` の絶対的義務
CorelDRAW VBAで数千のオブジェクトを操作したり、ページやレイヤーを動的に生成・削除する際、これを有効にしないのは「高速道路を逆走する」ようなものだ。画面描画とイベント通知を強制的にオフにすることで、プロセッサのCPUサイクルを計算処理に100%集中させる。
ただし、エラーが発生して途中で抜けた場合でも必ず `False` に戻す必要がある。上記のコードにある `GoTo Finally` 構造は、いかなる例外発生時も環境をクリーンアップするための鉄壁のデザインパターンだ。
2. `Err.Raise` によるカスタム例外の設計
標準のエラーメッセージはユーザーにとって不親切極まりない。「オブジェクト変数…」と言われても、現場のオペレーターは何が起きたか理解できない。
`Err.Raise vbObjectError + 固有番号` を用いて、「レイヤーがロックされている」「ページがない」といった業務上のバリデーションエラーを明確に定義し、`ErrorHandler` で一元処理する。これにより、保守性が劇的に向上する。
3. オブジェクト参照の明示的な破棄 (`Set … = Nothing`)
VBAのメモリ管理は甘い。特にCorelDRAWのCOMオブジェクトを保持したままプロシージャを抜けると、内部参照が残り続け、CorelDRAWそのものが終了時にクラッシュする原因になる。プロシージャの終端では必ずローカル変数に `Nothing` を代入して参照カウントを落とすこと。
—
結論：稚拙なコードを排除せよ
「動けばいい」で作られたVBAマクロは、現場の運用がスケールした瞬間に牙を剥く。
`ActivePage` や `ActiveLayer` を無防備に信用せず、常に「存在しないかもしれない」「ロックされているかもしれない」という疑念を持ってコードを構築する。このエンジニアリングマインドこそが、現場の信頼を勝ち取る唯一の道である。
あなたの書くコードは、深夜のバッチ処理や、慌てたオペレーターの誤操作の中でも静かに、確実にタスクを完遂するものでなければならない。今日からその場しのぎの `On Error Resume Next` を捨て、真に堅牢なアーキテクチャへと移行してほしい。
