こんにちは！CorelDRAW VBAの世界へようこそ。
私はこれまで数々の現場で、CorelDRAWを使った巨大な自動化システムを構築してきたチーフアーキテクトです。
「マクロの記録」で吐き出されたコードを眺めて、「なぜ動くのか分からない」「一部だけ変えたいのにエラーが出る」と頭を抱えていませんか？その原因のほとんどは、CorelDRAWの「オブジェクト階層（オブジェクトモデル）」を把握していないことにあります。
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ！
今日は、初心者のあなたが「おっ、そういうことか！」と視覚的に腑に落ちるよう、CorelDRAWの宇宙を上から順に探検してみましょう。
—
1. CorelDRAWの世界は「ロシアの人形（マトリョーシカ）」構造
まず、CorelDRAWのドキュメント構造をイメージしてください。
CorelDRAW VBAの世界は、大きな箱の中に小さな箱が順に入っているマトリョーシカ人形のような構造をしています。これを専門用語で「オブジェクト階層」と呼びます。
一番外側にある巨大な宇宙（親）から、一番内側にある個別の図形（子）まで、道順（パス）を正確に指定してあげないと、CorelDRAWは「どのオブジェクトを操作すればいいの？」と迷子になってエラーを吐き出します。
階層の全体像はこうなっています：
Application (CorelDRAW アプリケーション本体)
┗ Document (開いているファイル / 複数存在可能)
┗ Page (ページ / 複数存在可能)
┗ Layer (レイヤー / 複数存在可能)
┗ Shape (図形・テキストなどの個別オブジェクト)
この「上から順に辿っていく」というルールさえ掴めば、どんな複雑な操作も怖くありません。それぞれの階層を詳しく見ていきましょう。
—
2. 5つの階層を解剖する！
① Application（アプリケーション層）
すべての親であり、CorelDRAWそのものです。
VBAを書くとき、この`Application`は省略して書き始めることができます（省略してもCorelDRAWが「あ、自分自身のことだな」と気を利かせて補完してくれます）。
- 例：画面の更新を止めたり、環境設定をいじるときに関係します。
② Document（ドキュメント層）
現在、画面で開いている「ファイル（.cdr）」のことです。
CorelDRAWでは同時に複数のファイルを開くことができるため、「今、どのファイルに対して命令しているのか？」を明確にする必要があります。現在アクティブなファイルは `ActiveDocument` という便利なキーワードで一発指定できます。
③ Page（ページ層）
ドキュメントの中にある「ページ」です。
マルチページ（複数ページ）のチラシや冊子を作るとき、何ページ目を操作しているかを管理します。こちらも `ActivePage` で現在のページを指すことができます。
④ Layer（レイヤー層）
ページの上にある「透明なフィルム（レイヤー）」です。
「ガイド線レイヤー」「デザインレイヤー」「文字レイヤー」のように、オブジェクトを整理するために使います。ここを無視して図形を作ると、デフォルトのレイヤーに全てが突っ込まれて後から泣くことになります。
⑤ Shape（シェイプ層）
ついにたどり着きました！画面上の四角形、円、曲線、そしてテキスト（文字）など、目に見えるすべての「図形」がこのShape（またはその集合体であるShapes）です。
私たちが自動化で動かしたいものの9割は、このShape層に属しています。
—
3. 実践！コードで階層の繋がりを体験しよう
百聞は一見にしかず。実際にVBAのエディタ（Alt + F11）を開いて、以下のコードを動かしてみてください。
「Applicationから順番に、階層を降りていく」感覚が手に取るように分かるはずです。
Sub CreateSimpleRectangle()
‘ 【階層 1 & 2】現在アクティブなドキュメントを変数に格納する
Dim doc As Document
Set doc = ActiveDocument
‘ もしドキュメントが開いていない場合の安全装置
If doc Is Nothing Then
MsgBox “ドキュメントが開かれていません！”, vbCritical
Exit Sub
End If
‘ 【階層 3】アクティブなページを取得
Dim pg As Page
Set pg = doc.ActivePage
‘ 【階層 4】特定のレイヤー（例: “レイヤー 1″）を指定する
‘ ※レイヤー名が存在しないとエラーになるため、確実に存在するレイヤー名を指定してください
Dim lyr As Layer
Set lyr = pg.Layers(“レイヤー 1”)
‘ 【階層 5】レイヤーに対して「四角形（Shape）」を作成する（座標はミリ単位ではなく内部単位：通常はインチやセンチ等に依存。今回は分かりやすく）
‘ CreateRectangle(Left, Top, Width, Height)
Dim shp As Shape
Set shp = lyr.CreateRectangle(2, 10, 5, 3)
‘ おまけ：作成した図形（Shape）の色を赤に変えてみる
shp.Fill.UniformColor.CmykAssign 0, 100, 100, 0 ‘ シアン0, マゼンタ100, イエロー100, ブラック0 (赤)
MsgBox “オブジェクト階層をたどって、無事に赤い四角形を作成しました！”, vbInformation
End Sub
コードの解説
1. `Set doc = ActiveDocument` でDocument層をキャッチ。
2. `Set pg = doc.ActivePage` でDocumentからPage層へ。
3. `Set lyr = pg.Layers(“レイヤー 1”)` でPageからLayer層へ。
4. `Set shp = lyr.CreateRectangle(…)` でLayerに命令を出し、新しいShapeを生み出す。
このように、親から子へとドット（.）で繋いでいくのがCorelDRAW VBAの基本構文です。
—
4. 初心者が絶対ハマる「3つの落とし穴」
現場のサポートをしていると、初心者が決まってつまずくポイントがあります。先回りして回避策を伝授しましょう。
落とし穴①：レイヤーのロックや表示非表示
「コードは完璧なはずなのに、図形が作成できない、または選択できない！」という場合、大抵の原因は指定したLayerがロックされている、または非表示になっていることです。
コードで操作するレイヤーは、必ず `lyr.Editable = True` などのプロパティで編集可能な状態にしておくのがプロの技です。
落とし穴②：単位のトラップ
CorelDRAWはドキュメントごとに「単位（mm、インチ、ピクセルなど）」が異なります。コード内で数値を指定するとき、単位を意識しないと思ったより巨大な、あるいは米粒のような図形が出来上がります。
確実を期すために、処理の最初に `doc.Unit = cdrMillimeter` のように単位を明示的に指定してあげるのが安全です。
落とし穴③：単数形（Shape）と複数形（Shapes）の混同
- `ActivePage.Shapes` （Sがついている）＝ ページ上のすべての図形の「コレクション（集まり）」
- `ActivePage.Shapes(1)` や `shp` ＝ 個別の「単体の図形」
「特定の図形の色を変えたいのに、Shapes（複数形）に対して色の変更命令を出してエラーになる」というミスが多発します。集まりなのか、個体なのかを常に意識しましょう。
—
まとめ
いかがでしょうか？
CorelDRAW VBAのオブジェクト階層は、一見すると複雑に見えますが、「Application → Document → Page → Layer → Shape」というマトリョーシカ構造を理解してしまえば、怖くありません。
マクロの記録頼みから卒業し、この階層構造を意識したコードを書けるようになると、あなたの自動化スキルは劇的に飛躍します。退屈な定型作業はマクロにすべて任せて、あなたはクリエイティブなデザインワークに集中してくださいね。
それでは、次回の実践的なテクニック解説でお会いしましょう！
