【レイヤー操作の基礎】CorelDRAW VBAにおける図形ライフサイクル管理の極意：Layer.CreateShapeとLayer.Deleteの鉄則
開発プロジェクトのリーダーである私から、CorelDRAW VBA開発において最も頻発する「メモリリーク」「予期せぬ描画崩壊」「オブジェクトのロスト」を防ぐための決定版をお伝えしよう。
世にあふれる入門書は、「こう書けば図形が出ます」「こう書けば消えます」という表面的なAPIの使い方の引き写しに終始している。しかし、実務で数万点に及ぶバリアブル印刷データや、複雑なCAD連携の自動化ツールを構築した者であれば知っているはずだ。CorelDRAWのオブジェクトモデルとライフサイクルを正しく理解していなければ、実用に耐えない「爆弾を抱えたマクロ」しか作れないという現実を。
今回は、レイヤー操作の根幹である `Layer.CreateShape` と `Layer.Delete` に焦点を当て、プロの現場で通用する堅牢な動的生成と破棄の設計思想を伝授する。
—
1. CorelDRAWにおけるオブジェクトの「ライフサイクル」とは何か？
VBAで図形を扱うとき、私たちは単に「画面に絵を描いている」のではない。CorelDRAWの内部メモリ（C++層）にアロケートされたネイティブオブジェクトのライフサイクルを、VBA（COM層）から代理でコントロールしているに過ぎない。
誤った設計が招く悲劇
- 参照のぶら下がり（Dangling Pointer）: 削除したはずのShapeオブジェクト変数に対してプロパティ操作を行い、ランタイムエラー（またはCorelDRAW自体の強制終了）を引き起こす。
- レイヤーコンテキストの迷子: アクティブレイヤー（ActiveLayer）に依存したコードを書くことで、ユーザーが意図しないレイヤーに図形が生成され、後続の削除処理が全滅する。
- パフォーマンスの劣化: 描画更新（ScreenUpdating）やイベントの抑制を行わず、1オブジェクトごとにDOMを揺らすことで、処理時間が線形ではなく指数関数的に跳ね上がる。
これらを完全にハックし、「100%安全かつ高速に生成・破棄を繰り返す構造」をコードに落とし込むアプローチを解説する。
—
2. 動的生成（`Layer.CreateShape`）の鉄則
図形を生成する際、`ActiveLayer.CreateRectangle` などのショートカットメソッドに逃げてはならない。プロの現場では、対象のレイヤーを明示的に指定し、戻り値として返される `Shape` オブジェクトを厳密に変数で受け取る必要がある。
確実な生成ロジックのポイント
1. 親レイヤーの明示: `ActiveDocument.ActivePage.Layers(“レイヤー名”)` のように、アクティブ状態に依存しないオブジェクトパスを構築する。
2. 戻り値の型安全な保持: 生成直後に `Dim shp As Shape` で受け取り、直ちに属性（塗・線・位置）を設定する。
—
3. 確実な破棄（`Layer.Delete` と オブジェクトの解放）
「消す」という行為は、単に画面から見えなくすることではない。CorelDRAWのドキュメント構造体から該当ノードを切り離し、VBA側のメモリ参照を綺麗に断ち切る一連のシーケンスである。
ここで重要なのは、「複数の図形をループしながら削除する際のインデックスズレの回避」だ。前方から削除するとインデックスが狂うため、逆順ループ（`For i = shps.Count To 1 Step -1`）で処理するのが鉄則である。
—
4. 【実用プロダクションコード】堅牢なレイヤー操作テンプレート
以下のコードは、実務の現場でそのままコピペして組み込める、堅牢性を極めたプロダクションコードだ。指定したレイヤー上に動的にグリッド状の矩形群を生成し、不要になった特定の条件の図形をクリーンに一括削除する。
Option Explicit
Public Sub ExecuteDynamicShapeLifecycleDemo()
‘ =========================================================================
‘ 処理名: 図形の動的生成とクリーンアップのライフサイクル管理サンプル
‘ 目的 : ターゲットレイヤーを明確に指定し、安全な生成と確実な破棄を行う
‘ =========================================================================
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “ドキュメントが開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 1. 描画更新とイベントを停止し、圧倒的なパフォーマンス向上と画面チラツキ防止を図る
doc.BeginCommandGroup
EventsEnabled = False
doc.ClearSelection
On Error GoTo ErrorHandler
‘ 2. ターゲットレイヤーの取得（存在しない場合は新規作成）
Dim targetLayer As Layer
Set targetLayer = GetOrCreateLayer(doc.ActivePage, “Automation_Layer”)
‘ 3. 【生成フェーズ】Layer.CreateShape を用いた動的生成
Dim i As Long, j As Long
Dim posX As Double, posY As Double
Dim boxWidth As Double, boxHeight As Double
boxWidth = 10 ‘ ミリメートル
boxHeight = 10
For i = 0 To 4
For j = 0 To 4
posX = i (boxWidth + 5)
posY = j (boxHeight + 5)
‘ 矩形カーブを生成し、レイヤーに配置
Dim shp As Shape
Set shp = targetLayer.CreateRectangle(posX, posY, posX + boxWidth, posY + boxHeight)
‘ 属性の設定（実務ではデータベースやCSVからの値がここに入ります）
shp.Fill.UniformColor.RGBAssign 200, 220, 255
shp.Outline.Color.RGBAssign 0, 50, 150
shp.Outline.Width = 0.5
‘ オブジェクトにメタデータ（CustomData）を付与する高度な設計
shp.Properties(“DataIndex”) = “ID_” & i & “_” & j
‘ ライフサイクル管理のため、ループごとのローカル参照を明示的に解放
Set shp = Nothing
Next j
Next i
MsgBox “5×5の図形群を生成しました。続いて、特定の条件に合致する図形を削除します。”, vbInformation, “生成完了”
‘ 4. 【破棄フェーズ】Layer内の図形を安全に走査して削除
‘ ※注意: 削除時は必ず逆順（Countから1へ）でループを回すこと
Dim shps As Shapes
Set shps = targetLayer.Shapes
Dim count As Long
count = shps.count
For i = count To 1 Step -1
Dim currentShp As Shape
Set currentShp = shps(i)
‘ 例として、特定のX座標より大きいものを削除対象とするロジック
If currentShp.PositionX > 30 Then
‘ 確実にメモリから破棄
currentShp.Delete
End If
Set currentShp = Nothing
Next i
‘ 5. 処理の正常終了
doc.EndCommandGroup
EventsEnabled = True
ActiveDocument.Windows(0.Refreshing = True)
MsgBox “ライフサイクル管理に基づく生成と破棄が正常に完了しました。”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常発生時のクリーンアップ（デッドロック防止）
On Error Resume Next
doc.EndCommandGroup
EventsEnabled = True
ActiveDocument.Windows(0.Refreshing = True)
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ =========================================================================
‘ 補助関数: レイヤーが存在しない場合に安全に取得・作成するロジック
‘ =========================================================================
Private Function GetOrCreateLayer(ByVal targetPage As Page, ByVal layerName As String) As Layer
Dim lyr As Layer
On Error Resume Next
Set lyr = targetPage.Layers(layerName)
On Error GoTo 0
If lyr Is Nothing Then
Set lyr = targetPage.CreateLayer(layerName)
End If
‘ 操作のためにレイヤーを確実にロック解除し、表示状態にする
lyr.Editable = True
lyr.Visible = True
Set GetOrCreateLayer = lyr
End Function
—
5. チーフアーキテクトからの実践的なアドバイス
実務でこのコードを運用するにあたり、以下の2点を胸に刻んでおいてほしい。
1. `EventsEnabled = False` と `BeginCommandGroup` のセット運用
CorelDRAW VBAは、図形を1つ生成・削除するたびに画面の再描画やUndoスタックの構築走査を行おうとする。これを放置すると、数千個の図形を扱うバッチ処理で何十分もかかるようになる。上記のコードのようにトランザクション制御を行うことで、処理速度を数十倍〜数百倍に跳ね上げることが可能だ。
2. オブジェクト変数の「`Set xxx = Nothing`」の徹底
VBAのガベージコレクションは頼りにならない。特にCOMオブジェクトを大量に生成・破棄するループ内では、ローカル変数を明示的に `Nothing` にクリアする癖をつけること。これが、メモリリークゼロの強靭な自動化ツールを作る唯一にして最大の王道である。
理論と構造を理解したあなたなら、もう無秩序なマクロを書くことはないはずだ。現場の生産性を極限まで高めるツールを、その手で組み上げてほしい。
