【CorelDRAW VBA】実務の肥大化を防げ！空レイヤーを自動クリーンアップする堅牢なマクロの設計思想
デザインデータの納品前や、外部からインポートした複雑なCDRファイルの整理に辟易したことはないだろうか。
レイヤーパネルを開くと、そこには「いつの間にか生成された無数の空レイヤー」。オブジェクトが一つも属していないそれらの残骸は、ファイルサイズを肥大化させ、スクリプト処理のパフォーマンスを静かに蝕んでいく。
今回は、CorelDRAW VBAにおいて「ドキュメント内に残された空のレイヤーを自動検出して一網打尽に削除する」ための、実務レベルで耐えうる堅牢なクリーンアップマクロを伝授する。
単にコードを動かすだけではない。CorelDRAWのオブジェクトライフサイクルを理解したプロフェッショナルな設計アプローチを解説しよう。
—
1. なぜ「前から順番に削除」してはいけないのか？（VBAの罠）
レイヤーの削除処理において、初心者が最も陥りやすい致命的なミスがある。それは、レイヤーコレクションを先頭から順方向（`1` から `Count` まで）にループさせ、条件に合致した瞬間に `Delete` メソッドを実行することだ。
【やってはいけないアンチパターン】
Layer 1 (空) -> 削除！
Layer 2 (データ有) -> 削除されたことでインデックスが繰り下がり、元Layer 3がここにスライドイン
Layer 3 (空) -> スキップされてしまう！
コレクションの要素を削除すると、後続のインデックスが前方に詰まるため、必ずループのカウンタと実態がズレてバグ（または実行時エラー）を引き起こす。
解決策：逆順ループ（Backward Loop）の鉄則
コレクションを操作して削除を行う際は、必ず末尾から先頭に向かって（`Count` から `1` まで）デクリメントしながらループさせること。これが、CorelDRAW VBAに限らずすべてのVBA開発における共通の防衛策である。
—
2. パフォーマンスと安全性を両立するプロダクションコード
実務でそのままコピー＆ペーストして使える、最高品質のVBAコードを提供する。
このコードでは、描画のちらつきを防ぐ画面描画のロック、アンドゥ（Undo）のグループ化、そしてマスターレイヤーやガイドレイヤーといった「削除してはいけないシステムレイヤー」の保護ロジックを組み込んでいる。
Sub CleanUpEmptyLayers()
‘ ————————————————————————-
‘ 処理名: ドキュメント内空レイヤー自動クリーンアップマクロ
‘ 概要: オブジェクトが一つも属していないレイヤーを逆順ループで安全に削除する
‘ ————————————————————————-
‘ ドキュメントが開かれているか厳格にチェック
If ActiveDocument Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “エラー”
Exit Sub
End If
Dim doc As Document
Set doc = ActiveDocument
‘ パフォーマンス向上とチラつき防止のための最適化
doc.BeginCommandGroup “空レイヤーのクリーンアップ”
Optimization = True
EventsEnabled = False
ActiveWindow.ScreenRefresh = False
On Error GoTo ErrorHandler
Dim layerCount As Long
Dim i As Long
Dim targetLayer As Layer
Dim deletedCount As Long
deletedCount = 0
‘ アクティブページのレイヤーコレクションを取得
‘ ※ドキュメント全体の全ページを対象にする場合は doc.Pages でループをネストさせてください
Dim pg As Page
Set pg = doc.ActivePage
layerCount = pg.Layers.Count
‘ 【極意】配列ズレを防ぐため、必ず「後ろから前へ」ループを回す
For i = layerCount To 1 Step -1
Set targetLayer = pg.Layers(i)
‘ 削除してはいけない保護レイヤーの判定
‘ 例: ガイド線レイヤー、グリッド、あるいは特定の命名規則を持つレイヤーを除外
If targetLayer.IsMaster Then
‘ マスターレイヤーはスキップ
GoTo ContinueLoop
End If
‘ レイヤーがロックされている、または非表示であっても、
‘ 「オブジェクトが0個」であればクリーンアップ対象とする
‘ ※Shapes.Countが0、かつリンクレイヤー等でないことを確認
If targetLayer.Shapes.Count = 0 Then
‘ さらに安全性を高めるため、デフォルトレイヤー（Layer 1など）を強制保護したい場合はここで弾く
If targetLayer.Name <> “Layer 1” Then ‘ 必要に応じて保護名を調整
targetLayer.Delete
deletedCount = deletedCount + 1
End If
End If
ContinueLoop:
Next i
‘ 正常終了処理
Optimization = False
EventsEnabled = True
ActiveWindow.ScreenRefresh = True
doc.EndCommandGroup
‘ 完了レポート
MsgBox “クリーンアップが完了しました。” & vbCrLf & _
“削除された空レイヤー数: ” & deletedCount & ” 個”, vbInformation, “処理成功”
Exit Sub
ErrorHandler:
‘ 異常終了時のフェイルセーフ
Optimization = False
EventsEnabled = True
ActiveWindow.ScreenRefresh = True
doc.EndCommandGroup
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
End Sub
—
3. コードに込めたプロのアーキテクチャ解説
このコードが「単なるサンプル」ではなく「プロダクションコード」たる所以を解説しよう。
① 描画の最適化 (`Optimization = True`)
CorelDRAWは、VBAからレイヤーやシェイプを操作する際、デフォルトではコードの実行ごとに画面を再描画しようとする。これが処理を劇的に重くする原因だ。`Optimization = True` と `EventsEnabled = False` を組み合わせることで、背後での描画イベントを完全に沈黙させ、ミリ秒単位の高速処理を実現している。
② アンドゥのトランザクション化 (`BeginCommandGroup`)
自動化スクリプトにおいて「Ctrl+Z」で一発復元できることは絶対条件だ。`BeginCommandGroup` と `EndCommandGroup` で囲むことにより、削除された無数のレイヤーを一連の操作（1つのアンドゥ履歴）としてまとめ、ユーザーの作業安全性を担保する。
③ フェイルセーフとエラーハンドリング
万が一ループ内で予期せぬエラーが発生した場合、描画ロックがかかったままVBAが停止すると、CorelDRAWのUIがフリーズしたような状態になる。これを防ぐため、`ErrorHandler` ラベルを設置し、エラー発生時でも確実に環境変数（Optimization等）を元の状態に復旧させる設計にしている。
—
まとめ：自動化でデザインの「土台」を美しく保つ
業務効率化の本質は、単に作業時間を短縮することだけではない。「人為的ミスの排除」と「データの品質担保」にこそある。
今回紹介した空レイヤーのクリーンアップマクロは非常にシンプルだが、逆順ループの思想、描画最適化、エラーハンドリングといった、あらゆるCorelDRAW自動化に応用できる「極意」が詰まっている。
このスクリプトを社内の共通テンプレートやアドインに組み込み、無駄なデータ構造を排除した洗練されたワークフローを構築してほしい。あなたのデザインプロジェクトは、より軽快で堅牢なものへと生まれ変わるはずだ。
