こんにちは！CorelDRAWの自動化の世界へようこそ。
マクロの記録ボタンを押して操作を再現するだけのステージは、もう卒業しましょう。ここからは、コードの力でキャンバスを自在に支配する「真の自動化エンジニア」への第一歩です。
今回は、CorelDRAW VBAにおける最重要かつ最も頻繁に触れる領域、「図形要素の動的生成と破棄のライフサイクル管理」について徹底解説します。
「コードを書いたはいいけれど、実行するたびに動作が重くなる…」
「不要な図形を消したはずなのに、メモリリークを起こしている気がする…」
そんな悩みを抱えたことはありませんか？
大丈夫。オブジェクトの「誕生」から「消滅」までのライフサイクルを完璧にコントロールする方法を、優しく、そして深く伝授します。ここをクリアすれば、あなたのCorelDRAW VBAのスキルは一気にプロの領域へ到達しますよ。
—
1. CorelDRAWオブジェクトモデルの基本構造
まずは、私たちが操作する世界（オブジェクトモデル）の地図を頭に入れましょう。CorelDRAWのVBA階層は、綺麗にピラミッド構造をしています。
Application (CorelDRAW本体)
┗ Document (開いているファイル)
┗ Page (ページ)
┗ Layer (レイヤー) 🌟今回はここが主役！
┗ Shape (図形オブジェクト)
私たちは普段、Layer（レイヤー）というキャンバス上の「層」に対して指示を出します。「ここに新しい図形を作ってくれ！（`CreateShape`）」「用事が済んだからこの図形は消してくれ！（`Delete`）」と命令するわけですね。
—
2. 誕生：`Layer.CreateShape` による動的生成
まずは図形を生み出す方法から見ていきましょう。
図形を作るには、対象のレイヤーに対して `CreateShape` メソッド（または `CreateRectangle` などの専用メソッド）を使用します。
ここで最も大切な心構えをお伝えします。
「生成されたオブジェクトは、必ず変数に格納して管理せよ」
何も受け取らずに野放しにすると、そのオブジェクトを後から制御できなくなります（ゴミ屋敷の始まりです）。
実践コード：動的に矩形（四角形）を生成する
以下のコードをVBAエディタ（Alt + F11）に貼り付けて実行してみてください。
Sub CreateShapeDemo()
Dim doc As Document
Dim activeLay As Layer
Dim myRect As Shape
‘ 1. アクティブなドキュメントを取得
Set doc = Application.ActiveDocument
‘ ドキュメントが開いていない場合のガード処理
If doc Is Nothing Then
MsgBox “ドキュメントが開かれていません。”, vbCritical
Exit Sub
End If
‘ 2. アクティブページの現在のレイヤーを取得
Set activeLay = doc.ActivePage.ActiveLayer
‘ 3. レイヤー上に矩形（四角形）を動的生成する
‘ 引数: 座標X, 座標Y, 幅, 高さ (単位はドキュメントのデフォルト、通常はミリメートル等)
Set myRect = activeLay.CreateRectangle(50, 50, 100, 60)
‘ 4. 生成したシェイプのプロパティをコードからいじってみる
myRect.Fill.UniformColor.CmykAssign 0, 100, 100, 0 ‘ 真っ赤な色（CMYK）に変更
myRect.Outline.Width = 2 ‘ 枠線の太さを変更
MsgBox “図形を生成し、プロパティを変更しました！”, vbInformation
End Sub
ここがポイント！
`CreateRectangle` の戻り値である `Shape` 型のオブジェクトを `myRect` という変数でしっかりと捕らえています。これにより、生成した直後に色を変えたり、サイズを調整したりといった自由な操作が可能になります。
—
3. 破棄：`Shape.Delete` による安全な消去
生み出すことができれば、当然「消す」ことも必要になります。
役目を終えたオブジェクトや、一時的に作成した不要なガイド用の図形などを放置すると、ドキュメントのファイルサイズが肥大化し、CorelDRAW自体の動作が重くなります。
図形を消去するには、対象の `Shape` オブジェクトに対して `.Delete` メソッドを実行します。
実践コード：作成した図形を安全に消去する
Sub DeleteShapeDemo()
Dim doc As Document
Dim activeLay As Layer
Dim myRect As Shape
Set doc = Application.ActiveDocument
Set activeLay = doc.ActivePage.ActiveLayer
‘ 一時的な図形を生成
Set myRect = activeLay.CreateRectangle(10, 10, 30, 30)
MsgBox “一時的な図形を作成しました。OKを押すと削除します。”, vbInformation
‘ 役目を終えたので破棄する
If Not myRect Is Nothing Then
myRect.Delete
‘ 破棄した後は、必ず変数を解放（Nothingを代入）するのがプロの作法
Set myRect = Nothing
End If
MsgBox “図形を安全に削除しました。”, vbInformation
End Sub
🚨 陥りやすい罠：オブジェクトの参照切れとメモリリーク
VBA初学者が最もやりがちなミスが、「図形を `Delete` したのに、変数の中身をクリアしない」というものです。
`myRect.Delete` を実行しても、変数 `myRect` の中には「消されたはずのオブジェクトのメモリポインタ」が残ってしまいます（これを宙ぶらりんな状態と呼びます）。
必ず `Set myRect = Nothing` をセットで行い、メモリを綺麗に解放する癖をつけましょう。
—
4. 応用：ループ処理におけるライフサイクル管理の極意
実際の業務自動化では、1つだけ作って消す、ということは稀です。何百個もの図形を動的に生成し、条件に合わないものを次々と破棄していくようなシーンがほとんどです。
ここで、メモリ効率を最大化する「ループ処理の鉄則」をお見せしましょう。
実践コード：不要なシェイプをスキャンして一括破棄する
Sub CleanupOrphanShapes()
Dim sr As ShapeRange
Dim sh As Shape
Dim i As Long
‘ アクティブレイヤー内のすべてのシェイプを取得
Set sr = ActivePage.ActiveLayer.Shapes.All
‘ 【重要】大量のオブジェクトを削除する場合、
‘ コレクションを「後ろから前へ（逆順）」ループさせるのが鉄則です！
For i = sr.Count To 1 Step -1
Set sh = sr(i)
‘ 例として、「面積が小さすぎるゴミ図形」を自動判定して削除するロジック
‘ （ここでは幅が10mm未満のものを削除対象とする）
If sh.SizeWidth < 10 Then
sh.Delete
End If
Set sh = Nothing
Next i
MsgBox "不要なシェイプのクリーンアップが完了しました。", vbInformation
End Sub
なぜ「後ろから前へ（逆順）」ループさせるのか？
前から順番に（1番目、2番目…と）削除していくと、図形が消えた瞬間にインデックス番号がズレてしまい、「予期せぬスキップ」や「実行時エラー」を引き起こします。
これはCorelDRAW VBAに限らず、全プログラミング言語共通の「コレクション操作の黄金律」です。必ず `For i = sr.Count To 1 Step -1` を使いましょう。
—
まとめ
今回は、CorelDRAW VBAにおける `Layer.CreateShape` と `Shape.Delete` を軸とした、オブジェクトのライフサイクル管理について解説しました。
1. 生成（Create）: 必ず変数で受け取り、その後のプロパティ操作につなげる。
2. 破棄（Delete）: 不要になったら速やかに削除し、`Set ○○ = Nothing` でメモリを解放する。
3. 巡回（Loop）: 複数のオブジェクトを削除・整理する際は、必ず「逆順（Step -1）」で処理する。
この3つの鉄則を守るだけで、あなたの書くマクロは見違えるほど安定し、動作も軽快になります。「動くだけのコード」から「現場で耐えうる堅牢なコード」へ。
ここをクリアしたあなたなら、もうCorelDRAW VBAの基本はバッチリです！自信を持って、次の自動化チャレンジへ進んでくださいね。応援しています！
