こんにちは！CorelDRAWの自動化の世界へようこそ。
チーフアーキテクトの私です。
「マクロの記録」ボタンを押して図形を描いてみたものの、編集しようとしたらコードがごちゃごちゃしていて頭が痛くなった……そんな経験はありませんか？あるいは、他人が作ったCDRファイルを受け取ったら、中身が「空っぽのレイヤー」だらけで、レイヤーパレットがゴミ屋敷状態になっていた、なんてこともよくある話です。
実は、こうした「使っていない空のレイヤー」を放置すると、ファイルの動作が重くなるだけでなく、後続の自動化処理やデータ書き出しの際に予期せぬバグを引き起こす原因になります。
今回は、プログラミング初学者の方でも安心して一歩を踏み出せるよう、CorelDRAW VBAを使って「ドキュメント内に残された空のレイヤーを自動検出し、一網打尽に削除するクリーンアップマクロ」の作り方を、基礎から徹底的に解説していきます。
ここをクリアすれば、CorelDRAW VBAの基本構造はバッチリですよ。さあ、一緒にコードの腕を磨いていきましょう！
—
1. なぜ「空のレイヤー」が生まれるのか？
CorelDRAWでデザイン作業をしていると、オブジェクトを移動させたり、グループ化を解除したり、不要になったパーツを削除したりする過程で、中身が空っぽになったレイヤーやガイド層が知らず知らずのうちに増えていきます。
人間であれば、レイヤーパレットを目視して「あ、これ空っぽだな」とゴミ箱にポイっと捨てられますが、ページ数が何十ページもあるドキュメントや、外部から大量にインポートしたCAD図面などの場合、これを手作業ですべてチェックするのは不可能に近い苦行です。
だからこそ、「コンピュータに瞬時に判定させ、掃除させる」。これが業務自動化の醍醐味なのです。
—
2. コアの考え方：CorelDRAW VBAの構造を知る
VBA（Visual Basic for Applications）のコードを書く前に、CorelDRAWがドキュメント構造をどう管理しているか、その「地図」を頭に入れましょう。
CorelDRAWの世界は、次のような階層構造になっています。
ActiveDocument (アクティブなドキュメント)
┗ Pages (ページたちの集まり)
┗ ActivePage (操作中のページ)
┗ Layers (レイヤーたちの集まり)
┗ Layer (個々のレイヤー)
┗ Shapes (そのレイヤーに属する図形たちの集まり)
今回のミッションの核心は、「各レイヤーを上から順に見ていき、そのレイヤーが持っている図形（Shapes）の数が『0』だったら削除する」というシンプルな判定ロジックです。
—
3. 実装コード：空レイヤーを自動クリーンアップするマクロ
それでは、開発現場でそのままコピペして使える実用的なマクロコードを公開します。
CorelDRAWの「Alt + F11」キーを押してVBAエディタ（VBAウィンドウ）を開き、標準モジュールに以下のコードを貼り付けてください。
Sub CleanUpEmptyLayers()
‘ 画面描画を一時停止して、処理速度を爆発的に上げるおまじない
EventsEnabled = False
ActiveDocument.BeginCommandGroup “空レイヤーの削除”
On Error GoTo ErrorHandler ‘ エラーハンドリングの準備
Dim sh As Layer
Dim deletedCount As Integer
deletedCount = 0
‘ アクティブページのレイヤーを「後ろから」ループする
‘ ※注意：コレクションを削除する場合は、後ろから前に向かってループするのがVBAの鉄則です！
Dim i As Long
For i = ActivePage.Layers.Count To 1 Step -1
Set sh = ActivePage.Layers(i)
‘ 【重要】「ガイド層」「マスターレイヤー」「グリッド層」など、
‘ システム的に重要な特殊レイヤーは削除対象外から除外する安全策を入れます
If sh.IsSpecial = False Then
‘ レイヤー内のオブジェクト数が 0 かどうかを判定
If sh.Shapes.Count = 0 Then
‘ 中身が空っぽなら削除！
sh.Delete
deletedCount = deletedCount + 1
End If
End If
Next i
‘ 処理終了の巻き戻しと画面描画の再開
ActiveDocument.EndCommandGroup
EventsEnabled = True
‘ 完了メッセージを表示
MsgBox “クリーンアップが完了しました。” & vbCrLf & _
“削除された空のレイヤー数: ” & deletedCount & ” 個”, _
vbInformation, “レイヤー大掃除”
Exit Sub
ErrorHandler:
‘ 万が一エラーが起きた場合の安全装置
EventsEnabled = True
ActiveDocument.AbortCommandGroup
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “予期せぬエラー”
End Sub
—
4. プロのエンジニアが教える「3つのこだわりポイント」
上記のコードには、単に動くだけではなく、現場のプロが必ず組み込む「3つの知見」が隠されています。ここを理解すると一気にレベルアップできます。
① コレクションは「後ろから前へ（Step -1）」ループせよ
プログラミング初学者が最もやりがちな罠が、`For i = 1 To Layers.Count` と上から順に数えながら、見つけたその場で `sh.Delete` で消してしまうミスです。
これをやると、レイヤーが削除された瞬間に全体のインデックス番号がズレてしまい、ループがバグるかエラーになります。
「リストから何かを削除するときは、必ず後ろの番号から逆順に処理する（Step -1）」。これはVBAにおける絶対の鉄則です。
② 特殊レイヤー（`IsSpecial`）を保護せよ
CorelDRAWには、通常のデザイン用レイヤー以外に、「ガイド」や「グリッド」、すべてのページに共通する「マスターレイヤー」といったシステム上の特殊レイヤーが存在します。
これらはオブジェクトがゼロであっても絶対に削除してはいけません（削除するとドキュメント自体が壊れるリスクがあります）。そのため、`sh.IsSpecial = False` という条件を入れて、触ってはいけない聖域を守るガードを固めています。
③ 処理の高速化とUndo（元に戻す）のまとめ
`EventsEnabled = False` と `ActiveDocument.BeginCommandGroup` を使うことで、目に見えない裏側で一瞬にして処理を完了させ、さらに処理全体を「1つの操作」としてCorelDRAWの履歴に登録します。これにより、万が一「やっぱり消しすぎた！」という場合でも、Ctrl + Z（元に戻す）で一発で直前の状態に復元できるようになります。
—
5. まとめと次のステップ
今回は、CorelDRAW VBAを使った「空のレイヤーの自動検出と削除」という、実務に直結するクリーンアップ手法を解説しました。
- オブジェクトの数（`Shapes.Count`）を数えて判定する
- 削除時は後ろからループを回す（`Step -1`）
- 特殊レイヤーはうっかり消さないように除外する
この3つさえ押さえておけば、レイヤー操作に関する自動化はもう怖くありません。
ここをクリアしたあなたなら、次は「全ページの空レイヤーを一括で掃除するマクロ」や「特定の名前が含まれるレイヤーを自動整理するスクリプト」へと応用していくことができるはずです。
デザインの現場から「無駄な手作業」をなくし、クリエイティブな時間をもっと増やしていきましょう。それでは、次回の極限知見でお会いしましょう！
