【CorelDRAW VBA】隠しレイヤー一括削除でCDRを極限まで軽量化するクリーンアップ自動化スクリプト
開発現場でこんなストレスを感じたことはないか？
- 「外部から入ってきたCDRデータのファイルサイズが異常に重い……」
- 「不要な非表示レイヤーや過去のバリエーションの残骸が何層も残っている……」
- 「手動で1ページずつレイヤーパレットを開いて削除していく作業に、どれだけ時間を奪われているんだ……」
幾度となく案件をこなしてきたエンジニアならわかるはずだ。CorelDRAWのファイルが肥大化する最大の原因の一つは、「使われていない非表示レイヤー（ゴミデータ）」の蓄積にある。これらを放置したまま次工程（印刷入稿やWeb展開）へ引き渡せば、RIP処理の遅延や予期せぬデータミスの温床となる。
今回は、CorelDRAW VBAのオブジェクトモデルの深部をハックし、ドキュメント全体からすべての非表示レイヤーを安全かつ一瞬で消去し、ファイルサイズを劇的にスリム化するプロダクションコードを授与しよう。
—
1. なぜ素朴なループ処理ではバグるのか？（設計の核心）
初学者がやりがちな失敗は、アクティブページのレイヤーを上から順に舐めていき、`Visible = False` ならその場で `Delete` するというコードだ。
‘ 【悪手】絶対にやってはいけない書き方
Dim lyr As Layer
For Each lyr In ActivePage.Layers
If Not lyr.Visible Then lyr.Delete ‘ ← 致命的なインデックスズレやエラーが発生する！
‘ Next
なぜこれが崩壊するのか？
CorelDRAWのコレクション操作において、要素を削除しながらコレクションをループ（For Each）させると、ポインタの整合性が崩れ、メモリリーク、予期せぬスキップ、あるいはランタイムエラー（オブジェクトがありません）を引き起こす。
特にマルチページ環境（`ActiveDocument.Pages`）を走査する場合、ページを跨いだレイヤー構造（マスターレイヤー含む）のライフサイクルを完全に理解していないと、マスターページ上のレイヤーまで誤って吹き飛ばす大惨事になりかねない。
堅牢な設計アプローチ
1. 逆順ループ（Decrement Loop）の採用: コレクションの末尾から先頭に向かって処理を行うことで、インデックスのズレを完全にハックする。
2. 削除禁止レイヤーの保護: グリッド、ガイド、あるいはCorelDRAWの仕様上削除できないデフォルトレイヤー（「レイヤー 1」や「ガイド」など）を誤爆しないためのガード条件を設ける。
3. マスターページの分離処理: 通常ページとマスターページ（全ページ共通レイヤー）のスコープを明確に分ける。
—
2. プロダクションコード：非表示レイヤー一括クリーンアップ
以下のコードは、エラーハンドリング、画面描画のロック（パフォーマンス爆速化）、および安全装置を完備した実務仕様のVBAプロシージャである。
Option Explicit
”’
”’
Public Sub PurgeHiddenLayers()
‘ 予期せぬエラーによるフリーズを防ぐため、必ずエラーハンドラーを配置する
On Error GoTo ErrorHandler
‘ 1. パフォーマンス最適化：画面描画とイベントを完全停止
ActiveDocument.BeginCommandGroup
EventsEnabled = False
Optimization = True
Dim p As Page
Dim lIndex As Long
Dim deletedCount As Long
deletedCount = 0
‘ 2. 通常ページの走査（逆順ループで安全に削除）
For Each p In ActiveDocument.Pages
‘ レイヤーコレクションの末尾から先頭へ向かってループ
For lIndex = p.Layers.Count To 1 Step -1
Dim targetLayer As Layer
Set targetLayer = p.Layers(lIndex)
‘ 削除条件の判定：
‘ ① 非表示であること
‘ ② 削除可能なレイヤーであること（ガイドやデスクトップ、保護レイヤーを除外）
If targetLayer.Visible = False Then
If IsDeletableLayer(targetLayer) Then
targetLayer.Delete
deletedCount = deletedCount + 1
End If
End If
Next lIndex
Next p
‘ 3. マスターページ（全ページ共通レイヤー）の走査
Dim mp As Page
For Each mp In ActiveDocument.MasterPage.Pages
For lIndex = mp.Layers.Count To 1 Step -1
Set targetLayer = mp.Layers(lIndex)
If targetLayer.Visible = False Then
If IsDeletableLayer(targetLayer) Then
targetLayer.Delete
deletedCount = deletedCount + 1
End If
End If
Next lIndex
Next mp
CleanUp:
‘ 4. 環境の復元
Optimization = False
EventsEnabled = True
ActiveDocument.EndCommandGroup
‘ 完了通知
MsgBox “クリーンアップが完了しました。” & vbCrLf & _
“削除された非表示レイヤー数: ” & deletedCount & “件”, _
vbInformation, “CorelDRAW 自動最適化ツール”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End Sub
”’
”’
Private Function IsDeletableLayer(lyr As Layer) As Function
Dim layerName As String
layerName = LCase(lyr.Name)
‘ デフォルトで保護すべきレイヤー名や属性をここで弾く
‘ 例: “grid”, “guides”, “desktop” などは絶対に削除してはならない
If layerName = “grid” Or layerName = “guides” Or layerName = “desktop” Then
IsDeletableLayer = False
Exit Function
End If
‘ アクティブレイヤー（現在作業中のレイヤー）自体も削除対象から除外する場合のガード
If lyr.IsActive Then
IsDeletableLayer = False
Exit Function
End If
‘ すべてのチェックを通過した場合のみ削除を許可
IsDeletableLayer = True
End Function
—
3. このコードが現場のプロに選ばれる理由（エンジニアリング解説）
① `Optimization = True` と `EventsEnabled = False` による爆速化
CorelDRAW VBAで数ページ〜数十ページあるドキュメントを操作するとき、画面がレイアウトの再描画（Redraw）やUIイベントの監視を行うと、実行速度が何倍にも低下する。処理の最初にこれらを無効化し、処理終了時に必ず復元（`Optimization = False`）させることで、一瞬でクリーンアップを完了させる。これを怠るコードは素人の書いたおもちゃに過ぎない。
② `IsDeletableLayer` 関数による「誤爆」の完全防止
CorelDRAWには、ドキュメントの基盤となるシステムレイヤー（ガイド線やグリッドなど）が存在する。これらを名前や属性でフィルタリングせずにすべて削除すると、ドキュメントの構造が破損し、ファイルが開けなくなる致命的なバグに直結する。実務ツールにおいて「消してはいけないものを絶対に消さない」設計思想は鉄則である。
—
4. さらなる高みへ：データベースや外部バッチ連携への拡張
このVBAマクロを単体のマクロとして手動実行させるだけでは、真の自動化エンジニアとは言えない。
例えば、社内のファイルサーバーにある数千のCDRファイルを夜間バッチや外部のVB.NET製管理ツールからサイレント実行（UIを表示させずにバックグラウンド処理）させたい場合、CorelDRAWのCOMインターフェースを外部から叩く設計に拡張できる。
// C# (VB.NET) からCorelDRAWを起動し、マクロをサイレント実行する概念コード
CorelDRAW.Application app = new CorelDRAW.Application();
app.Visible = false; // 画面を表示させずにバックグラウンドで処理
CorelDRAW.Document doc = app.OpenDocument(@”C:\Data\TargetFile.cdr”);
// VBAのマクロを外部から呼び出し
app.RunMacro(“GlobalMacros”, “PurgeHiddenLayers”);
doc.Save();
doc.Close();
app.Quit();
このように、VBAを単なる「手動ツールの代替」ではなく、「エンタープライズなデータパイプラインの一部」として昇華させることこそが、業務自動化エンジニアの醍醐味である。
今すぐこのコードをCorelDRAWのVBAエディタ（`Alt + F11`）に実装し、重くて動かないレガシーデータたちを軽やかに浄化してほしい。
