こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して得られたコードを眺めて、「これ、どうやって書き直したらいいんだろう？」と悩んでいませんか？
今回は、CorelDRAW VBAを自在に操るための第一歩であり、最も重要なテーマである「レイヤー操作とオブジェクトのライフサイクル（生成と破棄）」について解説します。
ここをクリアすれば、単なる「操作の自動再生」から卒業し、「あなたの意図通りにデザインを自動生成するプログラム」が書けるようになりますよ。さあ、一緒に本質をマスターしていきましょう！
—
1. CorelDRAWオブジェクトモデルの「土地勘」を持とう
まず、CorelDRAWのVBAがどのように世界を認識しているかを知る必要があります。家を建てる手順に例えてみましょう。
1. Application（アプリ全体）: 街そのもの
2. Document（ドキュメント）: 敷地（アクティブなファイル）
3. Layer（レイヤー）: 各階のフロア（床面）
4. Shape（シェイプ）: その床の上に置く家具（矩形、円、文字など）
私たちがコードで図形を描くとき、「今、どのドキュメントの、どのページの、どのレイヤーに家具（シェイプ）を置くのか」を明確に指定してあげる必要があります。これがオブジェクトモデルの基本です。
—
2. 図形を「生み出す」：`Layer.CreateRectangle` とその仲間たち
図形を動的に生成するには、対象となる`Layer`オブジェクトに対してメソッドを実行します。一番基本となる矩形（四角形）を作るコードを見てみましょう。
基本的な図形生成のコード例
Sub CreateBasicShapesDemo()
Dim doc As Document
Dim activeLayer As Layer
Dim rect As Shape
Dim circle As Shape
‘ 1. アクティブなドキュメントを取得
Set doc = ActiveDocument
‘ 2. アクティブなページの、現在のレイヤー（通常は「レイヤー 1」）を取得
Set activeLayer = doc.ActivePage.ActiveLayer
‘ 3. 矩形を生成する (Left, Top, Width, Height)
‘ ※CorelDRAWの座標系は「左下」が基準ではなく、デフォルトではページ設定に依存しますが、
‘ 基本的には中心や左上からの指定を意識します。単位は現在のドキュメント設定（mmやinchなど）に準拠します。
Set rect = activeLayer.CreateRectangle(10, 100, 50, 30)
‘ 生成した矩形に色を塗ってみる（ついでのお化粧）
rect.Fill.UniformColor.RGBAssign 255, 100, 100 ‘ 薄い赤
rect.Outline.Color.RGBAssign 0, 0, 0 ‘ 枠線は黒
rect.Outline.Width = 1 ‘ 枠線の太さ
‘ 4. 円（楕円）を生成する
Set circle = activeLayer.CreateEllipse(70, 100, 40, 40)
circle.Fill.UniformColor.RGBAssign 100, 149, 237 ‘ コーンフラワーブルー
MsgBox “図形を動的に生成しました！”, vbInformation, “ライフサイクル体験”
End Sub
ここがポイント！
- 変数（`Dim rect As Shape`）の重要性: 生成したオブジェクトを変数に格納することで、後から色を変えたり、大きさを変えたり、不要になったら消したりといったコントロールが可能になります。
- 単位の意識: CorelDRAWの数値は、ドキュメントの単位（ミリメートルなど）に依存します。コードを書くときは「今、何ミリのサイズを指定しているか」を常に頭に置いておきましょう。
—
3. 図形を「消し去る」：`Shape.Delete` の正しい使い方
オブジェクトを作ったら、次は「不要になったら片付ける」ライフサイクルの後半戦です。
プログラムでよくある失敗が、「画面上にあるはずのオブジェクトを消そうとしたらエラーになった」というもの。オブジェクトを安全に削除するには、その存在をしっかりと変数で保持している必要があります。
不要なオブジェクトをクリーンに削除するコード
Sub CleanupShapeDemo()
Dim doc As Document
Dim activeLayer As Layer
Dim targetShape As Shape
Set doc = ActiveDocument
Set activeLayer = doc.ActivePage.ActiveLayer
‘ 一時的な図形を作成する
Set targetShape = activeLayer.CreateRectangle(130, 100, 40, 40)
targetShape.Fill.UniformColor.RGBAssign 200, 200, 200
‘ 処理のシミュレーション（例えば、ここで何らかの判定や処理を行うとする）
MsgBox “一時的な図形を作成しました。OKを押すと、この図形を消去します。”, vbInformation
‘ — 削除のフェーズ —
‘ オブジェクトが正しく存在しているか確認してから削除する
If Not targetShape Is Nothing Then
targetShape.Delete
‘ 削除した後は、変数を Nothing に戻してメモリ上の参照をきれいにしておく（プロの習慣）
Set targetShape = Nothing
End If
MsgBox “図形を安全に削除しました。”, vbInformation
End Sub
—
4. 初学者がハマりやすい「3つの罠」と回避策
CorelDRAW VBAでレイヤー操作を行う際、初心者が必ずと言っていいほど躓くポイントがあります。ここを知っておくだけで、無駄なエラーに悩まされる時間が劇的に減りますよ。
罠1: 「アクティブレイヤー」が意図しないレイヤーになっている
- 症状: コードを実行したつもりが、ロックされたレイヤーや、別の非表示レイヤーに図形が生成されてしまい、「画面に見えない！」とパニックになる。
- 対策: 大規模なマクロを書くときは、レイヤー名で確実に指定する癖をつけましょう。
Dim targetLayer As Layer
‘ 「デザイン層」という名前のレイヤーを明示的に取得する
Set targetLayer = ActiveDocument.ActivePage.Layers.Find(“デザイン層”)
If Not targetLayer Is Nothing Then
targetLayer.CreateRectangle 0, 0, 10, 10
End If
罠2: 削除したオブジェクトを再度操作しようとしてエラー（Object variable not set）
- 症状: `Shape.Delete` を実行したあとに、うっかりその変数（例: `targetShape.Fill.Color = …`）を触ってしまい、実行時エラー428が起きる。
- 対策: 削除したら即座に `Set targetShape = Nothing` と記述し、不要になった参照を切り離す防衛的プログラミングを徹底しましょう。
罠3: 大量のオブジェクト生成によるメモリ圧迫
- 症状: ループ処理（`For … Next`）の中で何千個も図形を作ると、動作が急激に重くなる、またはフリーズする。
- 対策: ループ内で画面の再描画が発生すると極端に遅くなります。処理の最初に `Optimization = True`（または画面更新の抑制）を挟むのが、プロのエンジニアの常道です。
ActiveDocument.BeginCommandGroup “一括生成”
Optimization = True ‘ 描画をストップして高速化
‘ — ここで大量の CreateShape 処理 —
Optimization = False
ActiveDocument.EndCommandGroup
ActiveWindow.Refresh
—
おわりに
今回は、CorelDRAW VBAにおける「Layer.CreateShape（動的生成）」と「Shape.Delete（破棄）」を通じた、オブジェクトのライフサイクルについて解説しました。
ここをクリアできれば、データの数だけ自動でレイアウトを組み替える名刺自動生成ツールや、規則正しく並んだ美しい幾何学模様を描くプログラムなど、あなたのアイデアを形にするための強力な武器が手に入ります。
「ここをもっとこうしたい」「こういう応用はできる？」といった疑問があれば、いつでも気軽にエンジニア仲間に相談してくださいね。
あなたのCorelDRAW自動化ライフが、ここからさらに加速することを応援しています！バッチリ使いこなしていきましょう！
