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

CorelDRAW VBA

2026.11.05

ActivePageという「動的な虚像」を制御せよ：CorelDRAW自動化におけるオブジェクト生存戦略
If VBA7 Then
Else
End If
1. 4. アーキテクチャの総括：オブジェクトのライフサイクル管理

ActivePageという「動的な虚像」を制御せよ：CorelDRAW自動化におけるオブジェクト生存戦略

自動化エンジニアが最初に手にする武器、それが`ActivePage`オブジェクトだ。

初心者はこう教わる。「現在のページ情報を知りたいなら、`ActivePage`のプロパティを読み取ればいい」と。しかし、我々のようなシステムアーキテクトは、その言葉をそのまま鵜呑みにはしない。なぜなら、`ActivePage`とは、アプリケーションの状態に依存する「動的な参照」であり、実行環境やドキュメントの構造によっては、予期せぬ例外（Runtime Error）やメモリリーク、あるいは「存在しないオブジェクトへの参照」を引き起こす脆弱な接点だからだ。

本稿では、一見単純な「現在のページ情報を取得する」というタスクを題材に、プロフェッショナルが実装すべき堅牢なアーキテクチャ、Windows APIを用いた高度なインターフェース制御、そしてCOMオブジェクトのライフサイクル管理について、その真髄を解説する。

1. 脆弱な実装：初心者が陥る「ActivePage」の罠

まず、典型的な「動かない、あるいは壊れる」コードを見てみよう。

' --- 避けるべきアンチパターン ---
Sub BadExample()
    ' ドキュメントが開いていない場合に、ここで即座にエラー（Runtime Error 91）が発生する
    MsgBox "現在のページ: " & ActivePage.Index & vbCrLf & _
           "サイズ: " & ActivePage.SizeWidth & " x " & ActivePage.SizeHeight
End Sub

このコードには、プロフェッショナルが嫌う致命的な欠陥が3つある。

1. 存在確認の欠如: `Documents.Count` を確認せずに `ActivePage` にアクセスしている。ドキュメントが存在しない状態で実行されると、プロセスは即座にクラッシュする。
2. 型と単位の不透明性: `SizeWidth` がどの単位（インチか、ミリか、ピクセルか）で返ってくるかを明示的に制御していない。システム間連携において、単位の不一致は致命的な計算ミスを招く。
3. ブロッキング・ダイアログ: 標準の `MsgBox` はユーザーの入力を待機する「モーダル」な挙動を示す。バッチ処理やバックグラウンドでの自動実行プロセスにおいて、この一行はシステムの停止を意味する。

2. 堅牢な実装：オブジェクトの生存確認と単位の正規化

シニアエンジニアが書くコードは、常に「最悪のシナリオ」を想定している。ドキュメントがない、ページが削除された、あるいは単位系が予期せぬものに変わった、といった事態だ。

以下に、実戦投入可能なレベルまで昇華させたベースラインの実装を示す。

''' <summary>
''' 現在のページ情報を安全に取得し、正規化された単位で通知する。
''' </summary>
Sub GetActivePageInfo_Robust()
    Dim doc As Document
    Dim pg As Page
    Dim infoMsg As String
    
    ' 1. ドキュメントの存在確認（防御的プログラミング）
    If Documents.Count = 0 Then
        Err.Raise vbObjectError + 513, "GetActivePageInfo", "開いているドキュメントが存在しません。"
        Exit Sub
    End If
    
    Set doc = ActiveDocument
    
    ' 2. ActivePageの参照取得
    ' ActivePageを直接使い続けるのではなく、一度変数にキャプチャすることで
    ' 実行中のページ切り替えによる参照の不整合を防ぐ
    On Error Resume Next
    Set pg = doc.ActivePage
    On Error GoTo 0
    
    If pg Is Nothing Then
        MsgBox "有効なページオブジェクトを取得できませんでした。", vbCritical
        Exit Sub
    End If
    
    ' 3. 単位の正規化
    ' CorelDRAWの内部単位に依存せず、明示的にミリメートル(mm)として取得する
    ' これにより、ユーザーの環境設定（インチ設定等）に左右されない堅牢なシステムとなる
    Dim w As Double, h As Double
    w = pg.SizeWidth * 25.4 / 25.4 ' ここでは単位変換のロジックを抽象化
    ' 実践的には doc.Unit を一時的に変更するか、変換係数を掛ける
    ' 下記は、現在のドキュメントの単位設定を一時的に保持し、計算後に復元する手法
    
    Dim originalUnit As cdrUnit
    originalUnit = doc.Unit
    doc.Unit = cdrMillimeter
    
    w = pg.SizeWidth
    h = pg.SizeHeight
    
    ' 4. メッセージ構築
    infoMsg = "--- Page Information ---" & vbCrLf & _
              "Page Index: " & pg.Index & vbCrLf & _
              "Size: " & Format(w, "0.00") & " mm x " & Format(h, "0.00") & " mm"
              
    ' 5. 結果の表示
    MsgBox infoMsg, vbInformation, "System Monitor"
    
    ' 6. 環境の復元（副作用の防止）
    doc.Unit = originalUnit
    
    ' 7. メモリの明示的解放（COMオブジェクトのライフサイクル管理）
    Set pg = Nothing
    Set doc = Nothing
End Sub

3. 極限の知見：Windows APIによる非ブロッキング・インターフェース

大規模な自動化システムにおいて、VBA標準の `MsgBox` は「ノイズ」でしかない。もし、あなたが構築しているのが、他のアプリケーション（C#やPython等）から呼び出されるヘッドレスな自動化エンジンであるなら、ダイアログを表示すること自体が設計ミスとなる。

しかし、デバッグや管理者の確認用に「より高度な制御」が必要な場合、Windows APIを直接叩くという選択肢がある。これにより、Unicode（多言語環境）への完全な対応と、メッセージボックスの挙動をOSレベルで制御することが可能になる。

' --- Windows API Declarations ---
' 64bit環境（CorelDRAWの近年のバージョン）に対応するための PtrSafe 宣言
If VBA7 Then
    Declare PtrSafe Function MessageBoxW Lib "user32" ( _
        ByVal hwnd As LongPtr, _
        ByVal lpText As LongPtr, _
        ByVal lpCaption As LongPtr, _
        ByVal uType As Long) As Long
Else
    Declare Function MessageBoxW Lib "user32" ( _
        ByVal hwnd As Long, _
        ByVal lpText As Long, _
        ByVal lpCaption As Long, _
        ByVal uType As Long) As Long
End If

''' <summary>
''' Windows APIを用いた、Unicode対応の高度なメッセージ表示
''' </summary>
Sub ShowInfoWithAPI(ByVal msg As String, ByVal title As String)
    ' StrPtrを使用して、VBAのStringをUnicodeポインタとして渡す
    ' これにより、日本語や特殊文字の文字化けを完全に防ぐ
    MessageBoxW 0, StrPtr(msg), StrPtr(title), &H40 ' &H40 = MB_OK | MB_ICONINFORMATION
End Sub

なぜAPIを使うのか？

シニアエンジニアがAPIを使い分ける理由は、単なる「格好良さ」ではない。
1. Unicode Compliance: `MsgBox` は環境によって文字化けの挙動が不安定になることがあるが、`MessageBoxW` は確実にUTF-16として処理される。
2. Thread Safety & Control: 将来的に、特定のウィンドウハンドル（`hwnd`）に紐付けたモーダル制御を行いたい場合、APIの知識が不可欠となる。

4. アーキテクチャの総括：オブジェクトのライフサイクル管理

CorelDRAW VBAにおける自動化の成否は、「COMオブジェクトをいかに適切に扱い、いかに早く解放するか」にかかっている。

`ActivePage` や `ActiveDocument` は、CorelDRAWのメインプロセスが管理するメモリ領域へのポインタに過ぎない。これらをグローバル変数に保持し続けたり、エラーハンドリングを怠って参照を放置したりすると、`CorelDRW.exe` のメモリ使用量は指数関数的に増大し、最終的には「メモリ不足」によるプロセスダウンを引き起こす。

エンジニアとしての鉄則：

Capture: `ActivePage` を直接操作せず、必ずローカル変数に `Set` してキャプチャせよ。
Isolate: 単位設定（`doc.Unit`）を変更したなら、必ず `Finally` 相当の処理で元の状態へ復元せよ。
Release: 処理の終端では `Set obj = Nothing` を明示し、参照カウントを確実に減らせ。

これが、レガシーな環境から最新の64bit環境まで、システムを安定稼働させ続けるための「極限の知見」である。