CorelDRAW VBA 掌握術：`Layers.Count` を単なる「数え上げ」で終わらせないための設計思想
業務自動化の世界へようこそ。
これから君たちが取り組むのは、単なる「操作の記録」ではない。複雑なグラフィックワークフローを、寸分の狂いもなく制御する「システムの構築」だ。
今日扱うテーマは、極めて初歩的なものだ。「アクティブなページにあるレイヤーの総数を取得し、イミディエイトウィンドウに出力する」。
「そんなこと、マクロ記録機能でもできるじゃないか」と思った君。その思考こそが、バグを量産し、保守不能なスパゲッティコードを生む原因だ。
プロフェッショナルのコードは、単に「動く」だけでは足りない。「予期せぬ状態に対してどう振る舞うか」、そして「後から読む人間（あるいは未来の自分）に対してどれだけ意図を明確に示せるか」が問われる。
本稿では、`Layers.Count` プロパティを題材に、堅牢な設計思想を叩き込む。
1. オブジェクト階層を理解せよ：なぜ `ActivePage` だけでは不十分なのか
CorelDRAWのVBAオブジェクトモデルは、厳格な階層構造を持っている。
`Application` $\rightarrow$ `Document` $\rightarrow$ `Page` $\rightarrow$ `Layer`
初心者はよく、いきなり `ActivePage.Layers.Count` と書き始める。しかし、これはエンジニアリングの観点からは「極めて危うい」書き方だ。
なぜ「Active」を多用してはいけないのか？
「Active（アクティブ）」とは、ユーザーの操作によって常に変化する、極めて流動的な状態を指す。
もし、マクロの実行中にユーザーが別のウィンドウをクリックしたり、ドキュメントを閉じたりしたらどうなるか？ `ActivePage` は、君のプログラムが想定していた「存在しないオブジェクト」を指し、ランタイムエラーを引き起こして即座にクラッシュする。
堅牢なツールを作るなら、まず「対象となるドキュメントが存在するか」を確認し、そのオブジェクトを明示的に変数に格納（参照）するプロセスが不可欠だ。
2. プロダクション・クオリティのコード例
以下に、実務でそのまま利用できるレベルの、堅牢性を担保したコードを示す。単なるコピペで終わらせず、各行の「意図」を読み解いてほしい。
Option Explicit ' 変数の宣言を強制し、タイポによるバグを未然に防ぐ（必須）
''' <summary>
''' アクティブなページ内のレイヤー総数を取得し、イミディエイトウィンドウに出力する。
''' </summary>
Sub GetActivePageLayerCount()
' 1. オブジェクトの明示的な宣言
' 型を明示することは、メモリ管理とIntelliSense（入力補完）の恩恵を受けるために不可欠だ。
Dim doc As Document
Dim pg As Page
Dim layerCount As Long
' 2. エラーハンドリングの設定
' 予期せぬ事態（ドキュメント未作成など）でプログラムを強制終了させないための防壁だ。
On Error GoTo ErrorHandler
' 3. コンテキストの検証
' 「ドキュメントが開かれているか」という前提条件をチェックする。これがプロの作法だ。
If Documents.Count = 0 Then
Debug.Print "[Error] ドキュメントが開かれていません。処理を中断します。"
Exit Sub
End If
' 4. オブジェクトの参照取得
' ActivePageを直接何度も参照するのではなく、一度変数にロック（格納）する。
' これにより、実行中の状態変化による不安定さを回避し、パフォーマンスも向上する。
Set doc = ActiveDocument
Set pg = doc.ActivePage
' 5. メインロジック：レイヤー数の取得
' LayersコレクションのCountプロパティを使用する。
layerCount = pg.Layers.Count
' 6. 結果の出力
' MsgBoxではなくDebug.Print（イミディエイトウィンドウ）を使う。
' ユーザーの作業を妨げず、開発者のみがログを確認できる、デバッグの定石だ。
Debug.Print "------------------------------------------"
Debug.Print "実行時刻: " & Now
Debug.Print "対象ドキュメント: " & doc.Name
Debug.Print "対象ページ: " & pg.Index & " (" & pg.Name & ")"
Debug.Print "レイヤー総数: " & layerCount
Debug.Print "------------------------------------------"
' 正常終了
Exit Sub
ErrorHandler:
' エラーが発生した場合の処理
' 何が起きたのかをログに残す。これが保守性を高める鍵となる。
Debug.Print "[Runtime Error] エラー番号: " & Err.Number & " | 内容: " & Err.Description
MsgBox "予期せぬエラーが発生しました。詳細はイミディエイトウィンドウを確認してください。", vbCritical
End Sub3. アーキテクトの視点：実務における注意点
このコードをベースに、さらに高度な自動化（データベース連携やファイル一括処理）へと拡張する際、君が直面するであろう壁をあらかじめ伝えておく。
① レイヤーの「存在」と「表示」は別物である
`Layers.Count` は、そのページに存在するレイヤーの総数を返す。しかし、そのレイヤーが「非表示（Visible = False）」であったとしても、カウントには含まれる。
「表示されているレイヤーだけを数えたい」のであれば、`Layers.Count` を使うのではなく、`Layers` コレクションを `For Each` でループさせ、各レイヤーの `.Visible` プロパティを判定するロジックが必要になる。
② 外部データ（CSV/DB）との連携における罠
もし、このレイヤー数を外部のデータベースやExcelに書き出す設計にするなら、「レイヤー名の一意性」に細心の注意を払え。
CorelDRAWのレイヤー名は重複することが可能だが、データベースのキーとして扱うなら、重複や全角・半角の揺らぎ、末尾のスペースなどは致命的なバグを招く。取得した値をそのまま信じるのではなく、正規化（Sanitize）する工程を検討せよ。
③ パフォーマンスの重み
数千個のオブジェクトや数百のレイヤーを持つ巨大なファイルにおいて、オブジェクトへのアクセスはコスト（負荷）がかかる。
`ActivePage.Layers.Count` をループの条件式の中で何度も呼び出すような書き方は、絶対に避けること。必ず一度変数に代入し、その変数を利用するのだ。
結びに代えて
`Layers.Count` は、広大な自動化の海における、最初の一歩に過ぎない。
しかし、この「一歩」において、エラーハンドリング、オブジェクトの明示的参照、ログ出力といった「プロフェッショナルの作法」を身につけているかどうかが、将来的に「使い物になるツール」を作るエンジニアと、「ただのスクリプト作成者」を分かつ決定的な差となる。
次に進む準備ができたら、このコードを自分の手で打ち込み、挙動を観察せよ。
幸運を。
