【入門編】【初心者向け】ActivePageオブジェクトのプロパティを確認し現在地のページ情報をダイアログに表示するVBA – CorelDRAW VBA解析バイブル

CorelDRAW VBA

2026.11.05

マクロ記録を卒業しよう。CorelDRAW VBAの心臓部「ActivePage」を掌握する

マクロ記録を卒業しよう。CorelDRAW VBAの心臓部「ActivePage」を掌握する

こんにちは。自動化の世界へようこそ。

CorelDRAWで「マクロの記録」ボタンを押し、自分の操作をコードに変換して「おぉ、動いた！」と感動したことはありませんか？それは素晴らしい第一歩です。しかし、記録されたコードを眺めてみてください。少し冗長で、何をしているのか読み解くのが難しいと感じることはありませんか？

マクロ記録は「結果」を記録しますが、プログラミングは「構造」を記述するものです。

今日、あなたが踏み出す一歩は、単なるコードの書き方ではなく、CorelDRAWの「オブジェクトモデル」という設計図を理解する旅です。まずは、今自分がどのページにいて、そのページがどのような性質（サイズや名前）を持っているのかを、プログラムから正確に問いかける方法をマスターしましょう。

ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。

1. 「オブジェクト」という概念を理解する

プログラミングを始める前に、一つだけ大切な考え方をお伝えします。CorelDRAW VBAの世界は、すべてが「オブジェクト」という箱で管理されています。

Application（CorelDRAWというアプリ全体）
Document（開いているファイル）
Page（その中のページ）
Shape（ページ上の図形）

これらは入れ子構造（階層構造）になっています。「今開いているページの情報を知りたい」というとき、私たちは「Applicationの中の、Documentの中の、ActivePage（現在アクティブなページ）の中にあるプロパティ（属性）を教えて」と命令を下すのです。

この階層を意識できるかどうかが、初心者とエンジニアを分ける境界線になります。

2. 実践：現在のページ情報を表示するコード

では、実際にコードを書いてみましょう。目標は、「現在のページ番号、ページ名、そしてページサイズをダイアログボックスに表示する」ことです。

以下のコードをVBAエディタに貼り付けて実行してみてください。

Option Explicit

''' <summary>
''' 現在アクティブなページの情報をダイアログで表示するマクロ
''' </summary>
Sub ShowCurrentPageInfo()
    ' --- 1. エラー回避のための準備 ---
    ' ドキュメントが一つも開かれていない場合にエラーが発生するのを防ぎます
    If Documents.Count = 0 Then
        MsgBox "ドキュメントが開かれていません。ファイルを開いてから実行してください。", vbExclamation, "エラー"
        Exit Sub
    End If

    ' --- 2. オブジェクトの定義 ---
    ' ActivePageオブジェクトを変数「pg」に代入します。
    ' これにより、以降「pg.～」と書くだけでページの情報にアクセスできます。
    Dim pg As Page
    Set pg = ActivePage

    ' --- 3. 情報の取得と文字列の組み立て ---
    ' 変数に情報を格納していきます。
    Dim pageName As String
    Dim pageIndex As Long
    Dim pageWidth As Double
    Dim pageHeight As Double
    
    pageName = pg.Name             ' ページの名前（例: "Page 1"）
    pageIndex = pg.Index           ' ページ番号（左から数えた順番）
    pageWidth = pg.Size.Width      ' ページの幅
    pageHeight = pg.Size.Height    ' 高さ

    ' --- 4. ユーザーへの通知 ---
    ' MsgBoxを使って、組み立てた情報を画面に表示します。
    ' vbCrLf は改行を意味する定数です。
    Dim message As String
    message = "【現在のページ情報】" & vbCrLf & vbCrLf & _
              "■ ページ名: " & pageName & vbCrLf & _
              "■ ページ番号: " & pageIndex & vbCrLf & _
              "■ サイズ: " & Format(pageWidth, "0.00") & " x " & Format(pageHeight, "0.00")

    MsgBox message, vbInformation, "ページ情報確認"

End Sub

3. コードの深層解説：プロの視点

この短いコードの中に、エンジニアとして押さえておくべき重要なエッセンスが詰まっています。

① 「防波堤」を作る（エラーハンドリング）

`If Documents.Count = 0 Then` の部分は、プロが必ず書く「防波堤」です。
もしファイルが一つも開いていない状態で `ActivePage` を参照しようとすると、VBAは「そんなページは存在しません！」とパニックを起こして強制終了してしまいます。これを防ぐのが、堅牢なプログラムへの第一歩です。

② `Index` と `Name` の違いを知る

ここが初心者が最も陥りやすい罠です。

`Index`: ページが左から何番目にあるかという「物理的な順番」です。
`Name`: ユーザーが任意に付けた「名前」です。

例えば、2ページ目の名前を「表紙」に変えたとしても、`Index` は `2` のまま、`Name` は `”表紙”` になります。自動化のロジックを組む際、「何番目のページか」を基準にするのか、「名前」を基準にするのかを明確に使い分ける必要があります。

③ `Size` プロパティの構造

`pg.Size.Width` という書き方に注目してください。これは `Page` オブジェクトの中に、さらに `Size` というオブジェクトが存在し、その中に `Width` というプロパティがあることを示しています。
この「ドット（.）で繋いでいく階層構造」こそが、CorelDRAW VBAを操るための鍵です。

4. まとめ：次の一歩へ

今回のマクロを通じて、あなたは「現在のコンテキスト（文脈）をプログラムから読み取る」という重要な技術を習得しました。

「今、どこにいるのか？」を知ることは、自動化において極めて重要です。なぜなら、次に「図形を描く」や「色を変える」といった操作を行う際、その操作が「どのページに対して行われるべきか」を決定する根拠になるからです。

今日のアドバイス：
次にマクロを記録するときは、記録されたコードの中で `ActivePage` や `ActiveDocument` という言葉を探してみてください。それらがどのように使われているかが見えてきたら、あなたのエンジニアとしての視界は、もう一段階高いレベルへと引き上げられています。

一歩ずつ、確実に。CorelDRAW VBAのマスターを目指して進んでいきましょう！