CorelDRAW VBAの深淵へ：選択したオブジェクトから「ページ」を特定する極意
こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロの記録」ボタンを押して、生成された難解なコードを眺めて溜息をついたことはありませんか？
安心してください。それは皆が通る道です。しかし、今日からは違います。CorelDRAW VBAの本質、つまり「オブジェクトモデル」の構造を理解すれば、あなたの作業は劇的に加速します。
今回は、「今、選択しているオブジェクトがどのページにあるのか？」を瞬時に特定する、業務自動化の第一歩となるコードを解説します。
—
1. なぜ「ページ番号」を知る必要があるのか？
CorelDRAWで数百ページのカタログを作成しているとき、「このロゴ、どのページのやつだっけ？」と迷子になることはありませんか？
手作業でページタブをクリックして探すのは、プロのエンジニアの仕事ではありません。プログラムに「このオブジェクトの親（Parent）を探れ」と命令すれば、一瞬で解決します。
—
2. 核心を突くコード：選択オブジェクトのページ特定
まずは、以下のコードをVBAエディタ（Alt + F11）に貼り付けて実行してみてください。
Sub GetSelectedObjectPage()
‘ ドキュメント内に選択したオブジェクトがあるかチェック
If ActiveSelectionRange.Count = 0 Then
MsgBox “オブジェクトが選択されていません！”, vbExclamation
Exit Sub
End If
‘ 選択中の最初のオブジェクトを取得
Dim shp As Shape
Set shp = ActiveSelectionRange.FirstShape
‘ そのオブジェクトが属する「親（Parent）」を辿り、ページ番号を取得
‘ CorelDRAWのオブジェクトモデルでは、Shape -> Layer -> Page と遡れます
Dim pageNum As Integer
pageNum = shp.Layer.Page.Index
‘ 結果をメッセージで表示
MsgBox “選択したオブジェクトは「ページ ” & pageNum & “」に存在します。”, vbInformation
End Sub
このコードの「賢いポイント」
- ActiveSelectionRange.Count: ユーザーが何も選択していない状態で実行するとエラーになります。この一行で「空振り」を防ぐのが、堅牢なコードの第一歩です。
- shp.Layer.Page.Index: ここが最大のポイント。オブジェクト（Shape）は必ずレイヤー（Layer）に属し、レイヤーは必ずページ（Page）に属しています。この「階層構造（親子関係）」を辿るのが、VBA自動化の鉄則です。
—
3. 初心者が陥りやすい「3つの罠」
コードを書く際、以下のポイントを意識するだけで、あなたのレベルは一段引き上がります。
① 「複数選択」の罠
上記のコードは `FirstShape` を使っています。もし複数のオブジェクトを選択していたらどうなるでしょうか？ それぞれが別のページにいる可能性があります。実務では `For Each` ループを使って、選択中のオブジェクトをすべて回す設計が必要になる場面が多いでしょう。
② 「マスターページ」の壁
CorelDRAWには「マスターページ」という概念があります。通常のページとは異なる場所に配置されたオブジェクトを読み取ろうとすると、このコードではエラーになることがあります。まずは「標準ページ」で練習し、慣れてきたら `IsMasterPage` プロパティで分岐させるのが上級者へのステップです。
③ インデックス番号は「1」から始まる
CorelDRAW VBAのインデックス（番号）は、多くのプログラミング言語（0から始まることが多い）とは異なり、直感的に「1」から始まります。これを知っておくだけで、配列操作の際のオフセットエラーを回避できます。
—
4. さあ、次のステップへ
ここをクリアしたあなたは、もう「マクロ記録」の奴隷ではありません。
次に学ぶべきは、「特定のレイヤーにだけ配置されているオブジェクトを一括で削除する」といった、ページやレイヤーを操作する技術です。
VBAは、あなたの代わりに「退屈な繰り返し作業」を黙々とこなしてくれる最強の助手です。今回作成したコードをベースに、自分なりのカスタマイズを加えてみてください。
「わからないことがあれば、またいつでも聞きに来てくださいね。自動化の道は、一歩ずつの積み重ねがすべてです。」
—
エンジニアからのTips:
開発中は、`F8キー` を押してステップ実行を試してください。一行ずつコードが動く様子を見ることで、CorelDRAWがどのようにオブジェクトを認識しているのか、その「生命のリズム」を感じ取れるはずです。それが、伝説的な自動化エンジニアへの近道ですよ。
