こんにちは！CorelDRAW VBAの深遠な世界へようこそ。
業務自動化エンジニアの先輩として、今日は皆さんに現場で即戦力となる「実務直結のテクニック」を伝授します。
マクロの記録ボタンを押すだけの時代はもう終わりです。CorelDRAWのオブジェクトモデルのライフサイクルを完全に掌握し、重いCDRファイルを軽やかにスリム化する――そんなプロの技術を一緒に身につけていきましょう。ここをクリアすれば、あなたのVBAスキルは確実にワンステージ上がりますよ！
—
なぜ「非表示レイヤーの削除」が実務で最強の武器になるのか？
実務でCorelDRAWを使っていると、こんな課題に直面しませんか？
- 「前任者が作ったデータ、やたらとファイルサイズが重い……」
- 「印刷用に入稿しようとしたら、不要な隠しレイヤーが残っていてエラーが出た」
- 「バリエーション違いの制作名残（ゴミデータ）がレイヤーの奥底に眠っている」
CorelDRAWのファイル（.cdr）は、見えていない（非表示の）レイヤーであっても、そこにオブジェクトが存在する限り内部のメモリや容量を確実に圧迫します。さらに、次工程（RIP処理や他形式への変換）へデータを引き渡す際、これらの「隠しゴミデータ」は予期せぬトラブルの元凶となります。
手作業で一枚一枚レイヤーパレットを開き、非表示のものを選んで削除していく……？ そんな不毛な作業は、今日で終わりです。VBAの力で、文書全体のレイヤーを一瞬でクリーンアップし、ファイルサイズを極限まで軽量化するマクロを作ってみましょう。
—
開発の前に：CorelDRAW VBAのレイヤー構造を理解する
コードを書く前に、CorelDRAWの「ドキュメント ＞ ページ ＞ レイヤー」という階層構造（オブジェクトモデル）を頭に叩き込んでおきましょう。
- ActiveDocument：今開いているアクティブなドキュメント
- Pages：ドキュメント内の全ページのコレクション
- Layers：ページ内（またはマスターレイヤー）にある全レイヤーのコレクション
ここで一つ、実務で絶対に知っておかなければならない「エンジニアの罠（注意点）」があります。
> ⚠️ 危険な罠：ループ処理中のコレクション削除
> レイヤーやシェイプを「上から順にループしながら削除」しようとすると、インデックスがズレてしまい、削除漏れや致命的な実行時エラー（Runtime Error）が発生します。
> これを回避するためには、「下から上へ逆順にループ（Backward Loop）」させるのが鉄則です！
この鉄則を守るだけで、バグのない堅牢なコードが書けるようになります。
—
実装コード：隠しレイヤー一括削除・軽量化マクロ
それでは、実際にCorelDRAWのVBAエディタ（`Alt + F11`）に貼り付けて実行できる、実務仕様の完全版コードを公開します。
Sub CleanUpHiddenLayers()
‘ =====================================================================
‘ テーマ: 非表示レイヤーを一括削除してファイルを軽量化するクリーンアップマクロ
‘ 開発者: チーフアーキテクト直伝
‘ =====================================================================
Dim doc As Document
Dim p As Page
Dim lyr As Layer
Dim i As Long, j As Long
Dim deletedCount As Long
‘ 処理対象ドキュメントの定義
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 実行確認（誤操作防止）
If MsgBox(“現在のドキュメントにある「非表示レイヤー」をすべて削除し、” & vbCrLf & _
“データをクリーンアップしますか？” & vbCrLf & _
“※この操作は元に戻せません。”, vbYesNo + vbExclamation, “一括クリーンアップ確認”) = vbNo Then
Exit Sub
End If
‘ 削除カウンターの初期化
deletedCount = 0
‘ 処理の高速化と画面描画のロック（点滅や無駄な描画を防ぐプロの技）
doc.BeginCommandGroup
EventsEnabled = False
On Error GoTo ErrorHandler
‘ 1. 通常ページ（Pages）のレイヤーを逆順走査
For i = doc.Pages.Count To 1 Step -1
Set p = doc.Pages(i)
‘ レイヤーを後ろから順にチェック
For j = p.Layers.Count To 1 Step -1
Set lyr = p.Layers(j)
‘ 【重要】ガイド線レイヤーやデスクトップなどのシステムレイヤーは除外する
If Not lyr.IsGuideLayer And Not lyr.Master Then
‘ レイヤーが非表示（Visible = False）の場合のみ削除実行
If lyr.Visible = False Then
lyr.Delete
deletedCount = deletedCount + 1
End If
End If
Next j
Next i
‘ 2. マスターページ（全ページ共通レイヤー）のレイヤーを逆順走査
For j = doc.MasterPage.Layers.Count To 1 Step -1
Set lyr = doc.MasterPage.Layers(j)
If Not lyr.IsGuideLayer Then
If lyr.Visible = False Then
lyr.Delete
deletedCount = deletedCount + 1
End If
End If
Next j
ErrorHandler:
‘ 描画ロックの解除とコマンドグループの終了
EventsEnabled = True
doc.EndCommandGroup
If Err.Number <> 0 Then
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Else
‘ 完了メッセージ
MsgBox “クリーンアップが完了しました！” & vbCrLf & _
“削除された非表示レイヤー数: ” & deletedCount & ” 件”, vbInformation, “処理完了”
End If
End Sub
—
コードの注目ポイント（ここがプロの技）
1. `Step -1` による逆順ループ
先ほど解説した通り、コレクションの数え上げを後ろから行うことで、インデックスのズレによるクラッシュを完全に防いでいます。
2. システムレイヤーの保護 (`IsGuideLayer` / `Master`)
CorelDRAWには、デザインデータの本質ではない「ガイド線レイヤー」や「グリッド」が存在します。これらを誤って削除しないよう、条件分岐（`Not lyr.IsGuideLayer`）でしっかりと守っています。
3. 描画の高速化 (`EventsEnabled = False` & `BeginCommandGroup`)
CorelDRAWはレイヤーを削除するたびに画面の再描画を行おうとします。これを一時的に停止させることで、ページ数が多い巨大なファイルであっても、一瞬で処理を終わらせることができます。実務では必須のテクニックです。
—
運用時のアドバイス：安全確実に使うために
- 実行前のバックアップ
どんなに優れた自動化スクリプトであっても、大切なデータを扱う前には必ずファイルを別名で保存（バックアップ）する習慣をつけましょう。
- マクロ付き文書としての保存
このコードを組み込んだCDRファイルは、マクロを保持できる形式（またはGMSファイルとしてCorelDRAW全体に登録）で管理すると、どの案件でも呼び出せて非常に便利です。
—
まとめ
今回は、非表示レイヤーを一括削除してファイルサイズを劇的に軽量化する実務向けVBAコードを解説しました。
「レイヤーの階層構造を意識すること」
「コレクションの削除は逆順で行うこと」
この2つさえクリアできれば、CorelDRAW VBAの基礎はもうバッチリです。日々の面倒な手作業をコードで自動化し、クリエイティブで本質的な業務に集中できる環境を自分の手で作り上げていきましょう。
あなたのCorelDRAWライフが、より快適でスマートなものになることを応援しています！
