ようこそ、CorelDRAW VBAという深淵かつ情熱的な自動化の世界へ。私は、これまで数え切れないほどのグラフィックワークフローをコードの力で変革してきたチーフアーキテクトです。
デザイン業務において、数十ページ、時には数百ページに及ぶカタログやマニュアルを制作する際、「今、自分はどのページを触っているのか？」を正確に把握することは、ミスを防ぐための第一歩です。マクロの記録を卒業し、自分の手でコードを書き始めたあなたにとって、今回のテーマは「ドキュメントの構造を理解するための最高の入り口」となるでしょう。
さあ、あなたのCorelDRAWに「意志」を吹き込む準備はいいですか？
—
航海には羅針盤が必要だ：アクティブページ番号の取得
CorelDRAW VBAを学ぶ上で最も大切なのは、「オブジェクトの階層構造」をイメージすることです。
あなたが今見ているページは、広大な宇宙（Application）の中の、特定の銀河（Document）にある、ひとつの惑星（Page）のようなものです。この「現在地」を特定し、ユーザーに知らせるためのコードを紐解いていきましょう。
1. ページ情報を取得してステータスバーに表示する基本コード
まずは、最もシンプルで強力なスニペットを紹介します。このコードを実行すると、CorelDRAWの画面左下にある「ステータスバー」に、現在のページ番号が表示されます。
‘
‘ ツール名：ShowCurrentPageIndex
‘ 概要：現在アクティブなページ番号をステータスバーに表示する
‘ 著者：CorelDRAW VBA アーキテクト
‘
Public Sub ShowCurrentPageIndex()
Dim doc As Document
Dim pg As Page
‘ 1. アクティブなドキュメントが存在するか確認する（安全装置）
If Documents.Count = 0 Then
MsgBox “ドキュメントが開かれていません。”, vbExclamation
Exit Sub
End If
‘ 2. オブジェクトの参照を取得
Set doc = ActiveDocument
Set pg = doc.ActivePage
‘ 3. ステータスバーへ情報を出力
‘ Indexプロパティが「何ページ目か」を保持しています
Application.StatusBar.Text = “現在は ” & pg.Index & ” ページ目（全 ” & doc.Pages.Count & ” ページ中）を操作しています。”
End Sub
コードの解説：なぜこの書き方をするのか？
プログラミング初学者が「マクロの記録」から脱却するためのポイントがここに詰まっています。
- `ActiveDocument` と `ActivePage`:
CorelDRAWには「今触っているもの」を指し示すショートカットが用意されています。これらを使うことで、「どのページか」を特定する複雑な計算をスキップできます。
- `.Index` プロパティ:
これはページが持つ「名札」のようなものです。CorelDRAWのページインデックスは 1から始まります。プログラミング言語によっては0から始まるものもありますが、CorelDRAWは直感的な1スタートです。
- `Application.StatusBar.Text`:
メッセージボックス（MsgBox）は作業を中断させてしまいますが、ステータスバーは作業を邪魔せずに情報を伝えられる「奥ゆかしい通知場所」です。プロのツール開発では多用されます。
—
2. 【一歩先へ】ページを切り替えるたびに自動で更新させる（イベント制御）
「マクロを実行した時だけ表示される」のでは、少し物足りないかもしれません。ページをめくるたびに、自動でステータスバーが更新されたら素敵だと思いませんか？
これを実現するのが「イベント（Event）」という概念です。少し高度に見えますが、ここをクリアすればCorelDRAW VBAの基本はバッチリですよ。
実装手順：
1. VBAエディタの左側にある「プロジェクトエクスプローラ」で `ThisDocument` をダブルクリックします。
2. 右側のコードウィンドウ上部のドロップダウンから `Document` を選択し、右側のイベント一覧から `PageActivate` を選択します。
‘ ThisDocument モジュールに記述します
Private Sub Document_PageActivate(ByVal Page As Page)
‘ ページが切り替わった瞬間にこのコードが自動実行される
Application.StatusBar.Text = “表示ページ変更：現在は ” & Page.Index & ” ページ目です。”
End Sub
この数行を書くだけで、あなたのCorelDRAWは「ページが切り替わったこと」を自ら認識し、報告してくれる賢い相棒へと進化します。
—
3. 陥りやすいエラーと回避策：アーキテクトの知恵
初心者が最初につまずくポイントを、先回りして解説しておきましょう。
① 「オブジェクト変数または With ブロック変数が設定されていません」
これは、ドキュメントを一つも開いていない状態でマクロを動かそうとした時に発生します。
対策: `If Documents.Count = 0 Then Exit Sub` という一行を入れる癖をつけましょう。これがプロの「守り」のコードです。
② ページ削除時のエラー
ページを削除した直後にインデックスを取得しようとすると、存在しないページを参照してエラーになることがあります。
対策: 常に `ActivePage` を経由して取得するか、アクションの最後に取得するように設計します。
—
最後に：VBAを掌握するあなたへ
今回の「ページインデックスの取得」は、一見すると小さな一歩かもしれません。しかし、これは「ドキュメントという構造体をオブジェクトとして捉えた」という大きな進歩です。
ページ番号が取得できれば、次は「奇数ページだけ背景色を変える」「特定のページにだけガイド線を引く」といった、よりクリエイティブで強力な自動化が可能になります。
CorelDRAW VBAは、あなたの創造力を物理的な制約（単純作業の時間）から解放するための鍵です。一つ一つのコードが持つ意味を楽しみながら、ぜひ自分だけの最強のツールを作り上げてください。
次回の講義では、このページ操作を応用した「レイヤーの自動生成」についてお話ししましょう。あなたの挑戦を、いつでも応援しています。
