自動化への第一歩：`Layers.Count` でページ構造の「真実」を読み解く
こんにちは。CorelDRAW VBAの世界へようこそ。
「マクロの記録」機能を使って、ボタン一つで動作するコードを手に入れた。そこまでは素晴らしい第一歩です。しかし、もしあなたが「もっと複雑なことをしたい」「特定の条件のときだけ処理を変えたい」と感じ始めているなら、あなたは今、「記録するユーザー」から「設計するエンジニア」へと進化する境界線に立っています。
エンジニアへの進化において最も重要なのは、CorelDRAWという巨大なソフトウェアを「単なる道具」としてではなく、「オブジェクト（物体）の階層構造」として捉えることです。
今日はその基礎中の基礎でありながら、デバッグ（プログラムの診断）において極めて重要な、「アクティブなページにあるレイヤーの総数を取得して表示する」というテクニックを伝授します。ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。
1. CorelDRAWの「階層構造」を理解する
コードを書く前に、まずはCorelDRAWがどのようにデータを管理しているのか、その「設計図」を頭の中に描いてください。これを理解していないと、VBAのコードはただの呪文になってしまいます。
CorelDRAWの構造は、以下のような「入れ子構造（階層構造）」になっています。
1. Application（CorelDRAW本体）
2. ┗ Document（開いているファイル）
3. ┗ Page（ドキュメント内の各ページ）
4. ┗ Layers（ページの中に含まれるレイヤーの集合体）
5. ┗ Layer（個々のレイヤー）
私たちが今回やりたいことは、「今見ているページ（Page）の中にある、レイヤーの集まり（Layers）の中に、いくつ要素（Count）があるか？」を数えることです。
2. 実践：レイヤー数を取得するコード
それでは、実際に動くコードを見てみましょう。VBAエディタ（Alt + F11）を開き、標準モジュールに以下のコードを貼り付けてみてください。
Option Explicit
''' <summary>
''' アクティブなページに含まれるレイヤーの総数を取得し、
''' イミディエイトウィンドウに出力するマクロ
''' </summary>
Sub GetActivePageLayerCount()
' --- 1. 変数の宣言 ---
' プログラムの世界では、使う道具（変数）に名前と種類を事前に決めるのが鉄則です。
Dim targetPage As Page
Dim layerTotal As Long
' --- 2. エラーハンドリング（安全装置） ---
' ドキュメントが一つも開いていない状態で実行するとエラーになるため、チェックします。
If Documents.Count = 0 Then
Debug.Print "【エラー】ドキュメントが開かれていません。"
Exit Sub
End If
' --- 3. オブジェクトのセット ---
' 「今、画面で見ているページ」を変数 targetPage に代入します。
' これにより、以降の操作が「そのページ」に対して行われるようになります。
Set targetPage = ActivePage
' --- 4. プロパティの取得 ---
' Layers はコレクション（集合体）であり、Count はその中身の数を表すプロパティです。
layerTotal = targetPage.Layers.Count
' --- 5. 結果の出力（デバッグの極意） ---
' MsgBox（メッセージボックス）も便利ですが、プロは「イミディエイトウィンドウ」を使います。
' 処理を止めずに、裏側でこっそり情報を確認できるからです。
Debug.Print "================================"
Debug.Print "実行時刻: " & Now
Debug.Print "対象ページ名: " & targetPage.Name
Debug.Print "レイヤー総数: " & layerTotal & " 個"
Debug.Print "================================"
' ユーザーへの確認用（動作確認がしやすいように）
MsgBox "ページ「" & targetPage.Name & "」のレイヤー数は " & layerTotal & " です。", vbInformation, "確認"
End Sub3. コードの深掘り解説：なぜこう書くのか？
エンジニアとして、コードの「意味」を分解していきましょう。
`Layers.Count` とは何か？
`Layers` は、単一のレイヤーではなく、そのページに属するすべてのレイヤーを束ねた「コレクション（Collection）」というオブジェクトです。
そして、`.Count` はそのコレクションの中に「いくつ要素が入っているか」を返す「プロパティ（属性）」です。
「箱（Layers）の中に、いくつボール（Layer）が入っているか？」を数えるイメージですね。
なぜ `Debug.Print` を使うのか？
初心者の多くは、結果を確認するために `MsgBox` を多用します。しかし、`MsgBox` は実行のたびにユーザーの操作（OKボタンのクリック）を待ちます。もし100回のループの中で100回 `MsgBox` が出たら、作業は中断されてしまいますよね。
一方、`Debug.Print` は イミディエイトウィンドウ というコンソール領域に文字を書き出すだけです。プログラムの動きを止めずに、変数の値が正しいかどうかを「監視」できる。これが、プロのデバッグ手法です。
4. 実行方法とイミディエイトウィンドウの出し方
コードを動かす準備はできましたか？
1. CorelDRAW上で適当なファイルを開き、レイヤーをいくつか作成したり削除したりしてみてください。
2. VBAエディタに戻り、`GetActivePageLayerCount` の中にカーソルを置いて F5キー を押します。
3. 重要： イミディエイトウィンドウが表示されていない場合は、メニューの [表示] -> [イミディエイト ウィンドウ] を選択するか、`Ctrl + G` を押してください。
そこに、以下のようなログが表示されていれば成功です！
================================
実行時刻: 2023/10/27 10:00:00
対象ページ名: Page 1
レイヤー総数: 3 個
================================5. 陥りやすい罠（エンジニアの視点）
この操作を行う際に、初心者が躓きやすいポイントが2つあります。
① 「レイヤー」と「オブジェクト」の混同
「ページに描いた四角形が3つあるから、レイヤー数は3だ」……これは間違いです。
描いた図形は「オブジェクト（Shape）」であり、レイヤーとは別物です。レイヤーは、それらの図形をグループ化して管理するための「層」です。図形をいくら増やしても、レイヤーを新しく作らない限り、`Layers.Count` の値は変わりません。
② アクティブなコンテキストの誤解
`ActivePage` は、「今、ユーザーが操作対象として選択しているページ」を指します。マクロを動かす前に別のページをクリックしてしまうと、意図しないページのレイヤー数を数えてしまうことになります。自動化のプログラムを書くときは、「今、自分はどのオブジェクトを操作しているのか？」という意識を常に持つようにしましょう。
まとめ：次なるステップへ
お疲れ様でした！あなたは今、CorelDRAWの内部構造にアクセスし、その情報を正確に取得してコンソールに出力する、という「データの可視化」の技術を習得しました。
「レイヤーの数を数える」ことは、一見地味に見えるかもしれません。しかし、これができると、例えば以下のような高度な自動化が可能になります。
- 「レイヤーが特定の数より少なかったら、警告を出す」
- 「全レイヤーをループで回して、一つずつ名前を変更する」
- 「特定の名前のレイヤーが存在するかどうかをチェックする」
基礎は固まりました。次は、取得した `layerTotal` を使って、条件分岐（If文）や繰り返し（For文）に挑戦してみてください。
「コードは、構造を理解した瞬間に、あなたの強力な武器に変わる。」
また次のレッスンでお会いしましょう！
