マクロ記録から「プログラミング」へ。CorelDRAW VBAでページの向きを読み解く技術
こんにちは。自動化の世界へようこそ。
CorelDRAWの「マクロの記録」ボタンを押し、自分の操作をコードに変換して「お、動いた！」と感動した経験はありませんか？ それは素晴らしい第一歩です。しかし、記録されたコードを眺めてみてください。それは単に「あなたの動きをなぞっただけの、融通の利かない手順書」に過ぎません。
真の自動化エンジニアが目指すのは、「状況に応じて自分で判断し、動くプログラム」です。
例えば、「もしページが縦向きならロゴを上部に、横向きなら右側に配置する」といった処理。これができるようになると、あなたのマクロは「ただの記録」から「賢いアシスタント」へと進化します。
今日は、その第一歩として、ページの向き（Orientation）を判別し、条件によって処理を分ける方法を伝授しましょう。ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。
1. なぜ「幅と高さ」で判定してはいけないのか？
初心者がやりがちな失敗があります。
「ページが縦か横かを知りたいなら、幅（Width）と高さ（Height）を比較すればいいじゃないか」という考え方です。
' ⚠️ 初心者が陥りがちな、あまり美しくない例
If ActivePage.SizeWidth > ActivePage.SizeHeight Then
' 横向きの処理
Else
' 縦向きの処理
End Ifもちろん、これでも動きます。しかし、プロの設計思想としては推奨しません。理由は2つあります。
1. 計算コストと精度の問題: コンピュータにとって、数値の比較（特に浮動小数点数）は、あらかじめ定義された「状態（列挙型）」をチェックするよりも、わずかに重い処理です。
2. 正方形（Square）の存在: もしページが正方形だった場合、あなたのコードはどう振る舞うべきでしょうか？
CorelDRAWには、最初から「向き」というプロパティが用意されています。私たちは、「計算」するのではなく、「状態を問いかける」べきなのです。
2. 核心となるプロパティ：`Orientation`
CorelDRAWの`Page`オブジェクトには、`Orientation`という非常に強力なプロパティがあります。これは単なる数値ではなく、「列挙型（Enumeration）」という特別な形式で管理されています。
私たちが使うのは、以下の2つの定数です。
- `cdrPortrait` （縦向き）
- `cdrLandscape` （横向き）
これを使うことで、「幅が高さより大きいかどうか」という曖昧な判断ではなく、「このページは『横向き』という状態である」という、明確で誤解のない命令が可能になります。
3. 実践：条件分岐の黄金テンプレート
では、実際に使えるコードを見てみましょう。ここでは、単なる`If`文ではなく、拡張性の高い`Select Case`文を使った書き方を紹介します。
Option Explicit
''' <summary>
''' 現在のページの向きを判定し、それに応じたメッセージを表示する
''' </summary>
Sub CheckPageOrientationSmart()
' 1. エラーハンドリングの準備
' ドキュメントが開かれていない場合にエラーで止まらないようにします
If Documents.Count = 0 Then
MsgBox "ドキュメントが開かれていません。先にファイルを開いてください。", vbExclamation
Exit Sub
End If
' 2. オブジェクトの参照を確立
' ActivePageを直接使うのではなく、一度変数に格納するのがプロの作法です
' これにより、コードの可読性が上がり、デバッグもしやすくなります
Dim pg As Page
Set pg = ActivePage
' 3. 条件分岐（Select Case による判定）
' If文よりも、選択肢が増えたとき（将来的に特殊な向きが増えた場合など）に
' 読みやすく、メンテナンスしやすい構造です
Select Case pg.Orientation
Case cdrPortrait
' --- 縦向き（Portrait）の場合の処理 ---
Debug.Print "現在のページは【縦向き】です。"
MsgBox "ページは縦向きです。上部に要素を配置します。", vbInformation
' ここに縦向き用の自動配置コードを書いていく
Case cdrLandscape
' --- 横向き（Landscape）の場合の処理 ---
Debug.Print "現在のページは【横向き】です。"
MsgBox "ページは横向きです。右側に要素を配置します。", vbInformation
' ここに横向き用の自動配置コードを書いていく
Case Else
' 万が一、定義されていない状態があった場合の保険
MsgBox "未知の向きを検出しました。", vbCritical
End Select
' 4. 後処理
' 変数の参照を解放します（大規模なマクロではメモリ管理のために重要です）
Set pg = Nothing
End Subコードの解説：ここが「プロ」のポイント
- `Option Explicit`: スクリプトの冒頭に必ず書いてください。変数の宣言を強制することで、タイポ（打ち間違い）によるバグを未然に防ぎます。
- `Set pg = ActivePage`: `ActivePage`を何度も呼び出すのは、CPUのリソースを無駄に消費します。一度変数（オブジェクト参照）に格納して使い回すのが、パフォーマンスを意識した設計です。
- `Select Case`: `If…ElseIf…Else`でも書けますが、`Select Case`は「一つの変数に対して、複数の状態をチェックする」場合に最も美しい構造になります。
- `Debug.Print`: `MsgBox`はユーザーに通知しますが、`Debug.Print`はVBAエディタの「イミディエイトウィンドウ」に結果を出力します。開発中のログ出力として非常に重宝します。
4. 陥りやすい罠：オブジェクトのライフサイクル
最後に、一つだけ高度なアドバイスを。
VBAでオブジェクト（`Page`や`Document`など）を扱うとき、常に「今、そのオブジェクトは本当に存在しているか？」を意識してください。
マクロを実行中に、ユーザーが手動でページを削除したり、ドキュメントを閉じたりすると、プログラムが参照していた `pg`（Pageオブジェクト）は「幽霊」のような状態になります。これを「無効なオブジェクト参照」と呼び、実行時エラーを引き起こす最大の原因です。
初心者のうちは、まずは「今開いているドキュメントに対して処理を行う」というルールを徹底してください。先ほどのコードにある `If Documents.Count = 0` のようなチェックが、あなたのプログラムを堅牢（壊れにくいもの）にします。
まとめ：次なるステップへ
お疲れ様でした。あなたは今、「ページの向きを判別する」という、自動化における最も重要な概念の一つをマスターしました。
1. 数値の比較ではなく、プロパティ（状態）を見る。
2. `Select Case` を使って、美しく整理された分岐を作る。
3. オブジェクトの存在を常に意識する。
これさえ守れば、あなたの書くコードは格段にレベルアップします。
次は、この判定結果を利用して、「縦向きならガイド線を上下に、横向きなら左右に引く」といった、より具体的なレイアウト制御に挑戦してみてください。
その先には、もっと広く、もっと自由な自動化の世界が待っていますよ。応援しています！
