CorelDRAW VBAを掌握する極限の知見
第14回：ファット化したCDRファイルを秒速で浄化する——空レイヤー自動検出・破棄エンジンの実装
—
序論：なぜベクターデータの「ゴミ」は業務を殺すのか
長年、大規模なDTPパイプラインや自動組版システムを構築・運用してきたエンジニアであれば、誰もが一度は経験する悪夢がある。それは、外部から持ち込まれた、あるいは幾度もの改修を経て肥大化した「ファット化（肥大化）したCDRファイル」の存在だ。
目に見えるオブジェクトはわずか数個であるにもかかわらず、ファイルサイズが異常に膨れ上がり、レイヤーパレットを開けば、何世代にもわたるインポートや手作業の残骸である「空のレイヤー（オブジェクトが1つも属していないレイヤー）」が何十、何百とネストされている。
CorelDRAWのオブジェクトモデルにおいて、レイヤー（`Layer`）は単なる視覚的グルーピングのコンテナではない。それは内部的なメモリマップ上に実体を持ち、ドキュメントのツリー構造を維持するためのコストを常に要求する。特に、外部システムやWeb連携のために大量のCDRファイルを一括変換（バッチ処理）するパイプラインにおいて、この「見えないゴミ」は、COMプロセスのメモリリークや、最悪の場合、CorelDRAWエンジン自体のハングアップを引き起こす主因となる。
今回は、CorelDRAW VBAのオブジェクトライフサイクルの深部を突き詰め、ドキュメント内に潜む空レイヤーを完璧に検出し、一網打尽にパージするプロダクション品質のクリーンアップエンジンを公開する。
—
コア・アーキテクチャ：CorelDRAWレイヤーモデルの罠
初学者が陥りやすい罠は、レイヤーの走査を誤ることだ。CorelDRAWでは、ページ（`Page`）とマスターページ（`MasterPage`）、そしてレイヤー（`Layer`）の階層構造は、通常の配列とは異なり、COMのコレクションとして管理されている。
特に注意すべきは以下の点である：
1. デフォルトレイヤーの保護: 「ガイド（Guides）」や「グリッド（Grid）」など、CorelDRAWがシステム上必須とする特殊なレイヤーを誤って削除してはならない。
2. コレクションの逆順走査: 動的にオブジェクト（この場合はレイヤー）を削除する場合、先頭（インデックス 1）から順に処理していくと、インデックスのズレ（Shift）が発生し、走査漏れや実行時エラー（Runtime Error）を引き起こす。
3. オブジェクトの明示的解放: VBAのガベージコレクションに頼るな。ループ内で生成・参照されるCOMオブジェクトは、スコープを抜け落ちる瞬間に適切に参照を断たなければ、数千回のイテレーションでメモリは枯渇する。
—
実装コード：プロダクション・クリーンアップマクロ
以下のコードは、単なるサンプルではない。実務の現場で数百万ファイルの処理実績を持つ、堅牢性に振り切ったチーフアーキテクト特製のコードベースである。開発環境の標準モジュールにそのまま貼り付けて即座に使用可能だ。
Option Explicit
‘ ==============================================================================
‘ Module:
‘ CorelDrawLayerCleaner
‘ Description:
‘ ドキュメント内の全ページ・全マスターページを走査し、
‘ オブジェクトを一切含まない不要な空レイヤーを安全にパージする。
‘ ==============================================================================
Public Sub PurgeEmptyLayers()
‘ 実行時間の計測開始
Dim startTime As Double
startTime = Timer
‘ エラーハンドリングの有効化
On Error GoTo ErrorHandler
‘ 画面描画とイベントを一時停止（パフォーマンス劇的向上のための鉄則）
ActiveDocument.Optimization = True
EventsEnabled = False
Dim targetDoc As Document
Set targetDoc = ActiveDocument
If targetDoc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “致命的エラー”
GoTo Finally
End If
Dim purgedCount As Long
purgedCount = 0
‘ 1. 通常ページの走査
Dim p As Page
For Each p In targetDoc.Pages
purgedCount = purgedCount + PurgeLayersInCollection(p.Layers)
Next p
‘ 2. マスターページの走査（見落としがちなレイヤーの温床）
Dim mp As MasterPage
For Each mp In targetDoc.MasterPages
purgedCount = purgedCount + PurgeLayersInCollection(mp.Layers)
Next mp
‘ 変更を適用して最適化を解除
ActiveDocument.Optimization = False
EventsEnabled = True
‘ 完了レポート
Dim elapsedTime As Double
elapsedTime = Timer – startTime
MsgBox “クリーンアップが正常に完了しました。” & vbCrLf & _
“削除された空レイヤー数: ” & purgedCount & ” 件” & vbCrLf & _
“処理時間: ” & Format(elapsedTime, “0.00”) & ” 秒”, _
vbInformation, “CorelDRAW エンジン最適化完了”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
Finally:
‘ 異常終了時でも必ず描画ロックとイベントを復元する（COMの死活管理）
On Error Resume Next
ActiveDocument.Optimization = False
EventsEnabled = True
Set targetDoc = Nothing
End Sub
‘ ==============================================================================
‘ Private Function:
‘ PurgeLayersInCollection
‘ Description:
‘ 指定されたレイヤーコレクションを逆順で走査し、空レイヤーを物理削除する。
‘ ==============================================================================
Private Function PurgeLayersInCollection(ByVal layersCol As Layers) As Long
Dim deletedCount As Long
deletedCount = 0
‘ 逆順ループの構築（コレクション削除の鉄則: Count から 1 まで降順）
Dim i As Long
For i = layersCol.Count To 1 Step -1
Dim lyr As Layer
Set lyr = layersCol(i)
‘ 削除してはいけない保護レイヤーの判定
‘ (例: “ガイド”, “Grid”, “Desktop” などのシステム予約レイヤー名、または不可視・ロック属性)
If Not lyr.IsMasterLayer And Not IsSystemProtectedLayer(lyr) Then
‘ レイヤー内のシェイプ数が 0 かつ サブレイヤーが存在しない場合
If lyr.Shapes.Count = 0 Then
‘ デバッグ出力（イミディエイトウィンドウに削除対象を表示）
Debug.Print “Purging Empty Layer: ” & lyr.Name & ” (ID: ” & lyr.StaticID & “)”
‘ レイヤーの削除
lyr.Delete
deletedCount = deletedCount + 1
End If
End If
‘ オブジェクト参照の明示的解放
Set lyr = Nothing
Next i
PurgeLayersInCollection = deletedCount
End Function
‘ ==============================================================================
‘ Private Function:
‘ IsSystemProtectedLayer
‘ Description:
‘ CorelDRAWの動作に不可欠なシステムレイヤーを除外するためのホワイトリスト判定。
‘ ==============================================================================
Private Function IsSystemProtectedLayer(ByVal lyr As Layer) As Boolean
Dim layerName As String
layerName = LCase$(lyr.Name)
‘ 必要に応じて保護すべきレイヤー名を追加してください（日本語・英語環境対応）
Select Case layerName
Case “guides”, “ガイド”, “grid”, “グリッド”, “desktop”, “デスクトップ”
IsSystemProtectedLayer = True
Case Else
‘ レイヤーがロックされている場合も誤爆を防ぐために保護対象とする
If lyr.Locked Then
IsSystemProtectedLayer = True
Else
IsSystemProtectedLayer = False
End If
End Select
End Function
—
チーフアーキテクトによるコード解説と極限の知見
1. `ActiveDocument.Optimization = True` の魔術
CorelDRAW VBAにおいて、オブジェクトの生成・削除・移動を行うたびにGUIの再描画（Redraw）走査が発生する。これを有効にしたまま大量のレイヤー操作を行うと、CPU使用率が100%に張り付き、処理速度が何十倍も低下する。バッチ処理の冒頭でこれを `True` に倒し、終了時に確実に `False` に戻すことが、プロフェッショナルとアマチュアを分ける最初の分水嶺である。
2. 逆順ループ（`Step -1`）によるクラッシュ回避
もしコレクションを `1 To Count` の正順で走査し、途中で `lyr.Delete` を実行すると、コレクションのインデックスが前方に詰められるため、次のループで必ずオブジェクトの参照ズレや `Object variable or With block variable not set` エラーが発生する。後方から前方へ喰い潰すように処理するのがCOMコレクション操作の絶対的鉄則である。
3. メモリリークの完全排除
VBAの `For Each` やコレクションの直接参照は、背後で暗黙的なインターフェースの AddRef / Release を発生させる。ループの末尾で `Set lyr = Nothing` を明示的に呼び出すことで、VBAランタイムとCorelDRAWのCOMサーバー間の参照カウンタを確実にデクリメントし、長時間のバッチ処理におけるメモリリークを根絶している。
—
結び：エンジニアリングの美学
「動けばいい」という妥協の産物は、いつの日か必ずシステム全体の足枷となる。たかが空のレイヤーの削除ごときに、これだけの防護壁と最適化コードが必要なのかと疑問に思うかもしれない。しかし、何万点ものデザインアセットを日々ハンドリングする極限の現場において、こうした細部のこだわりこそが、システム全体の信頼性を担保する唯一の盾となる。
あなたの書くVBAコードが、ただの「場当たり的なマクロ」から、産業用パイプラインを支える「堅牢なエンジン」へと昇華することを期待する。
