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

CorelDRAW VBA

2026.11.05

【CorelDRAW VBA 掌握術】ActivePageの深淵：なぜあなたのマクロは「たまたま動く」のか？

【CorelDRAW VBA 掌握術】ActivePageの深淵：なぜあなたのマクロは「たまたま動く」のか？

業務自動化の世界へようこそ。これから君たちが手にするのは、単なる「操作の記録」ではない。CorelDRAWという巨大なグラフィックエンジンを、意のままに操るための「設計思想」だ。

初心者が最初に手にする武器は、多くの場合`ActivePage`オブジェクトだろう。現在のページ番号を知り、そのサイズを取得する。一見、単純な作業に見える。しかし、現場で動く「プロダクション・レベル」のツールを作る人間と、ただの「スクリプト・キッド」を分かつのは、その一行の背後にある堅牢性（Robustness）への執着だ。

今日の講義では、`ActivePage`を題材に、バグを未然に防ぎ、保守性の高いコードを書くための「プロフェッショナルな設計」を伝授する。

1. 初学者が陥る「脆弱なコード」の罠

まず、多くの初心者が書くコードを見てみよう。おそらく、君たちの手元にあるコードもこれに近い。

' 典型的な「動けばいい」レベルのコード
Sub BadExample()
    MsgBox "現在のページは " & ActivePage.Index & " です。" & vbCrLf & _
           "サイズは " & ActivePage.SizeWidth & " x " & ActivePage.SizeHeight & " です。"
End Sub

このコードは、たしかに動く。しかし、実務（プロダクション）環境においては「欠陥品」だ。 なぜか？

なぜこのコードは「非効率」で「危険」なのか

1. ドキュメント不在への無策: もしCorelDRAWが開いているが、ドキュメントが一つも作成されていない状態でこのマクロを実行したらどうなる？ `ActivePage`は参照できず、実行時エラーでマクロは即座にクラッシュする。
2. 単位系のブラックボックス化: `SizeWidth`が「ミリメートル」なのか「インチ」なのか「ピクセル」なのか。このコードにはその定義がない。ユーザーの設定次第で、出力される数値の意味が変わり、計算ミスを誘発する。
3. オブジェクト参照の不安定さ: `ActivePage`は「今、ユーザーが見ているページ」という、極めて動的で不安定な状態を指している。複雑な処理の途中でユーザーがページを切り替えた場合、意図しないページに対して操作が行われるリスクがある。

2. プロフェッショナルが採用する「堅牢な設計思想」

プロのエンジニアは、コードを書く前に「何が起きうるか」をシミュレーションする。`ActivePage`を扱う際は、以下の3つのレイヤーで設計を行うべきだ。

① 防御的プログラミング (Defensive Programming)

「ドキュメントが存在するか？」「ページが有効か？」を、処理の入り口で必ずチェックする。エラーで止めるのではなく、ユーザーに「何が足りないか」を優しく、しかし明確に伝えるのが設計者の責任だ。

② 単位の明示的制御 (Explicit Unit Management)

CorelDRAWの内部数値は、ドキュメントの単位設定に依存する。自動化ツールにおいては、「常に特定の単位（例：ミリメートル）として取得する」というロジックを組み込むことが、計算ミスを防ぐ唯一の道だ。

③ 疎結合なモジュール化 (Decoupling)

「情報を取得する機能」と「情報を表示する機能」を分離せよ。表示処理（MsgBox）の中に取得ロジックを混ぜ込むな。これにより、将来的に「ダイアログではなくExcelに書き出したい」となった際、取得ロジックを再利用できる。

3. 【実践】プロダクション・クオリティのコード例

それでは、これら全ての教訓を盛り込んだ、そのまま業務に投入できるレベルのコードを提示する。

''**
'' モジュール名: PageInfoModule
'' 概要: 現在のページ情報を安全に取得し、ユーザーに通知する
'' 作成者: Chief Architect
''**

Option Explicit

''' <summary>
''' メインエントリポイント。
''' ユーザーが実行するマクロの入り口。
''' </summary>
Public Sub ShowActivePageInformation()
    On Error GoTo ErrorHandler
    
    ' 1. ドキュメントの存在確認 (防御的プログラミング)
    If Documents.Count = 0 Then
        MsgBox "エラー: 開いているドキュメントが見つかりません。", vbCritical, "実行エラー"
        Exit Sub
    End If

    ' 2. ページ情報の取得 (ロジックの分離)
    ' ページ情報を格納するための構造体的な役割を果たす変数
    Dim pageInfo As String
    pageInfo = GetCurrentPageDetails()
    
    ' 3. 結果の表示
    If pageInfo <> "" Then
        MsgBox pageInfo, vbInformation, "現在のページ情報"
    End If

    Exit Sub

ErrorHandler:
    MsgBox "予期せぬエラーが発生しました: " & Err.Description, vbCritical, "システムエラー"
End Sub

''' <summary>
''' 現在のページ番号とサイズを、指定された単位で安全に文字列として取得する。
''' </summary>
''' <returns>整形されたページ情報文字列。取得失敗時は空文字を返す。</returns>
Private Function GetCurrentPageDetails() As String
    On Error GoTo FuncError
    
    Dim doc As Document
    Dim pg As Page
    Dim strInfo As String
    Dim targetUnit As cdrUnit
    
    ' ターゲットとなる単位を明示的に定義 (ミリメートル)
    targetUnit = cdrMillimeter
    
    Set doc = ActiveDocument
    Set pg = doc.ActivePage ' ここでActivePageを明示的にPageオブジェクトへ代入
    
    ' ページ情報の構築
    ' SizeWidthなどは、ドキュメントの現在の単位ではなく、
    ' 取得時に単位を指定できるプロパティ、あるいは変換ロジックを用いるのが理想。
    ' ここでは、確実にミリメートルで取得するために変換を意識する。
    
    strInfo = "【現在のページ情報】" & vbCrLf & _
              "----------------------------" & vbCrLf & _
              "ページ番号: " & pg.Index & vbCrLf & _
              "幅: " & Format(ConvertUnits(pg.SizeWidth, doc.Unit, targetUnit), "0.00") & " mm" & vbCrLf & _
              "高さ: " & Format(ConvertUnits(pg.SizeHeight, doc.Unit, targetUnit), "0.00") & " mm"
              
    GetCurrentPageDetails = strInfo
    Exit Function

FuncError:
    ' ログ出力などの処理をここに検討すべき
    GetCurrentPageDetails = ""
    Exit Function
End Function

''' <summary>
''' 単位変換を行うヘルパー関数。
''' 異なる単位系間での計算ミスを防ぐためのコア・ロジック。
''' </summary>
Private Function ConvertUnits(ByVal value As Double, ByVal fromUnit As cdrUnit, ByVal toUnit As cdrUnit) As Double
    ' CorelDRAWのAPIを活用し、高精度な変換を行う
    ' 内部的に計算を行うことで、浮動小数点誤差を最小限に抑える
    ConvertUnits = Application.UnitConvert(value, fromUnit, toUnit)
End Function

4. アーキテクトからのアドバイス：保守性のための「次の一手」

このコードをコピーして動かすだけで満足してはいけない。君が真のエンジニアを目指すなら、以下の視点を持ってほしい。

1. データベースとの連携を見据える:
もしこのページ情報をExcelやSQL Serverに保存したくなった場合、`GetCurrentPageDetails` 関数を修正する必要はないはずだ。なぜなら、情報の「取得」と「表示」が分かれているからだ。次は、`GetCurrentPageDetails` の戻り値を文字列ではなく、カスタムクラスや構造体（Type）にする設計を検討せよ。

2. パフォーマンスの重み:
今回のコードは軽量だが、もしこれが「1,000ページのドキュメントに対して、全ページのサイズをループで取得する」ものに変わった場合、`ActivePage`を何度も呼び出すのは非効率だ。ループ内では、`Pages`コレクションを一度変数に格納し、その要素にアクセスする設計に切り替えろ。

3. エラーハンドリングの深化:
`On Error GoTo ErrorHandler` は魔法ではない。何が起きたのかを記録（ログ出力）する仕組みを組み込むことで、君のツールは「使い捨てのスクリプト」から「信頼される業務システム」へと昇華する。

結論：
コードを書くときは、常に「未来の自分」と「予期せぬユーザー」を想像せよ。それこそが、世界最高峰のエンジニアへの第一歩だ。