【テクニカル・上級編】【初心者向け】CorelDRAW VBAで指定したページの用紙向き（縦・横）を判別し条件分岐させる基本コード – CorelDRAW VBA解析バイブル

CorelDRAW VBA

2026.11.11

幾何学的決定論：CorelDRAW VBAにおけるページ方位判定の深淵と、堅牢な自動化アーキテクチャ
If VBA7 Then
Else
End If
1. 4. レガシー環境の保守とシステム間連携への提言
2. 結論

幾何学的決定論：CorelDRAW VBAにおけるページ方位判定の深淵と、堅牢な自動化アーキテクチャ

「ページが縦か、横か。それだけの判定に、なぜこれほどの設計思想が必要なのか？」

もし君が、単に `If ActivePage.Orientation = …` と書くだけのコードを書いて、それを「完成」だと思っているなら、君はまだプロフェッショナルな自動化エンジニアの入り口に立ったに過ぎない。

大規模なバッチ処理、あるいは数千枚のドキュメントを自動生成するエンタープライズ・システムにおいて、プロパティの読み取りは「単なる値の取得」ではない。それは、オブジェクトのライフサイクル、COM（Component Object Model）のメモリ管理、そしてOSのウィンドウ状態との整合性を問う、極めてクリティカルなステップなのだ。

本稿では、初心者が躓く「ページ向きの判定」というテーマを入り口に、シニアエンジニアが実務で要求する「絶対に壊れない、メモリを汚さない、システムとして完結した」実装レベルへと昇華させるための知見を伝授する。

1. プリミティブな実装：`cdrOrientation` 列挙型の理解

CorelDRAWのオブジェクトモデルにおいて、ページの向きは `Page.Orientation` プロパティによって管理される。このプロパティは、単なる Boolean（真偽値）ではなく、`cdrOrientation` という列挙型（Enumeration）を返す。

まず、基本となるコードを確認しよう。だが、これはあくまで「概念の証明」に過ぎない。

' --- Basic Implementation (Concept Only) ---
Sub BasicOrientationCheck()
    Dim pg As Page
    Set pg = ActivePage
    
    ' Orientationプロパティを用いて判定
    ' cdrPageOrientationPortrait = 0 (縦向き)
    ' cdrPageOrientationLandscape = 1 (横向き)
    If pg.Orientation = cdrPageOrientationPortrait Then
        MsgBox "現在のページは【縦向き】です。"
    ElseIf pg.Orientation = cdrPageOrientationLandscape Then
        MsgBox "現在のページは【横向き】です。"
    Else
        MsgBox "未知の方向です。"
    End If
    
    ' オブジェクトの解放（重要）
    Set pg = Nothing
End Sub

アーキテクトの視点：なぜ `Nothing` が必要なのか

VBAはガベージコレクションに近い挙動を示すが、CorelDRAWのような巨大なCOMオートメーション・アプリケーションでは、オブジェクトの参照が残っているだけで、バックグラウンドプロセス（CorelDRW.exe）がメモリに居座り続ける「ゾンビプロセス」の原因となる。ループ内でページを操作する場合、`Set pg = Nothing` による明示的な参照解除は、システムの安定性を担保するための最低限の礼儀である。

2. エンタープライズ・グレードの実装：エラーハンドリングと堅牢性

実務において、`ActivePage` が存在しない状況や、ドキュメントが一つも開かれていない状態でマクロが実行されることは日常茶飯事だ。これらを無視するコードは、システム全体のクラッシュを招く。

以下に、実戦投入可能な、エラーハンドリングを組み込んだ関数型のアプローチを示す。

' --- Enterprise Grade Implementation ---
''
' ページの向きを安全に判定し、処理を分岐させる
' @return: True if Portrait, False if Landscape, Error if invalid
''
Function IsPagePortraitSafe() As Boolean
    On Error GoTo ErrorHandler
    
    Dim doc As Document
    Set doc = ActiveDocument
    
    ' 1. ドキュメントの存在確認
    If doc Is Nothing Then
        Err.Raise vbObjectError + 513, "SystemCheck", "アクティブなドキュメントが見つかりません。"
    End If
    
    ' 2. ページオブジェクトの取得と検証
    Dim pg As Page
    Set pg = doc.ActivePage
    
    If pg Is Nothing Then
        Err.Raise vbObjectError + 514, "SystemCheck", "アクティブなページが存在しません。"
    End If
    
    ' 3. 判定ロジック
    Select Case pg.Orientation
        Case cdrPageOrientationPortrait
            IsPagePortraitSafe = True
        Case cdrPageOrientationLandscape
            IsPagePortraitSafe = False
        Case Else
            Err.Raise vbObjectError + 515, "SystemCheck", "未定義のページ向きです。"
    End Select

CleanUp:
    ' メモリの明示的解放（ライフサイクル管理）
    Set pg = Nothing
    Set doc = Nothing
    Exit Function

ErrorHandler:
    ' ログ出力やエラー通知（実環境ではログファイルへの書き出しを推奨）
    MsgBox "Critical Error: " & Err.Description, vbCritical, "Automation Engine Error"
    IsPagePortraitSafe = False ' 異常時はデフォルトの安全な値を返す
    Resume CleanUp
End Function

Sub ExecuteAutomationProcess()
    ' プロセス実行
    If IsPagePortraitSafe() Then
        ' 縦向きの場合のレイアウトロジック
        Debug.Print "Executing Portrait Layout Engine..."
    Else
        ' 横向きの場合のレイアウトロジック
        Debug.Print "Executing Landscape Layout Engine..."
    End If
End Sub

3. 極限の知見：Windows APIとの連携と環境の安定化

高度な自動化システムでは、CorelDRAWの内部状態だけでなく、Windows OSレベルでの制御が必要になることがある。例えば、ユーザーが意図せずダイアログを開いていたり、ウィンドウが最小化されていたりする場合、COMの呼び出しがブロックされ、タイムアウトやデッドロックを引き起こす。

ここで、Windows APIを用いてプロセスの状態を監視し、オートメーションの実行環境を「浄化」する手法を紹介する。

' --- Windows API Integration ---
If VBA7 Then
    ' 64bit環境用
    Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr
    Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As LongPtr) As Long
Else
    ' 32bit環境用
    Declare Function GetForegroundWindow Lib "user32" () As Long
    Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
End If

''
' オートメーション実行前に、CorelDRAWが正しくアクティブかつ可視状態かを確認する
''
Function IsEnvironmentReady() As Boolean
    Dim hwnd As LongPtr
    hwnd = GetForegroundWindow()
    
    ' ウィンドウが可視状態か、あるいはシステムが操作を受け入れられる状態かを判定
    If IsWindowVisible(hwnd) <> 0 Then
        IsEnvironmentReady = True
    Else
        IsEnvironmentReady = False
    End If
End Function

なぜAPIが必要なのか

シニアエンジニアは、プログラムの「不確実性」を排除するために動く。`ActivePage` を参照する前に、OSレベルでアプリケーションのフォーカスや可視性をチェックすることは、リモートデスクトップ経由でのバッチ処理や、サーバーサイドでのヘッドレス運用（※CorelDRAWの仕様上制限はあるが）において、予期せぬエラーを未然に防ぐための「防波堤」となるのだ。

4. レガシー環境の保守とシステム間連携への提言

最後に、君がこれから直面するであろう「レガシーな現場」へのアドバイスだ。

1. Late Binding vs Early Binding:
開発時は `Tools > References` で CorelDRAW のライブラリを参照する Early Binding を使い、インテリセンスの恩恵を受けるべきだ。しかし、クライアントへ配布する際、バージョン差異（X8, 2020, 2024等）による参照エラーを避けるためには、運用フェーズでは `CreateObject(“CorelDRAW.Application”)` を用いた Late Binding への切り替え、あるいは厳密なバージョンチェックを組み込む設計が求められる。

2. 決定論的なコードを書け:
「たぶん動くだろう」は、エンジニアの敗北宣言だ。`Orientation` プロパティ一つとっても、それが `cdrPageOrientationPortrait` であることを明示的に、かつ例外処理を伴って扱う。この積み重ねが、システムの信頼性を形作る。

結論

ページ向きの判定は、単なる条件分岐ではない。それは、「オブジェクトの整合性」「メモリの安全性」「OSとの調和」という、自動化エンジニアが守るべき三原則を実践するための、最初の訓練場なのだ。

このコードを単にコピペして終わらせるな。その背後にある、メモリの動きとOSの挙動を想像しろ。それこそが、伝説的なアーキテクトへの唯一の道である。