CorelDRAW VBAを掌握する極限の知見
【実務直結】納品前夜の絶望を防げ！非表示レイヤー＆ロックシェイプを一網打尽にする「ドキュメント浄化ツール」の設計
開発プロジェクトのリーダーである私から、現場のエンジニア諸君に問いたい。
「クライアントへの納品データ入稿直前、印刷会社から『不要なオブジェクトや隠しパスが残っています』と差し戻された」……そんな悪夢のような経験はないだろうか？
手動でレイヤーパネルを開き、何十ページもあるドキュメントの全ページ、全レイヤーをしらみつぶしに確認していく。ロックされた過去の残骸、うっかり非表示にしたまま忘れていたガイド用のシェイプ、ボツになったデザインのパーツ。これらを人の手でクリーニングするのは、莫大な時間の無駄であり、ヒューマンエラーの温床でしかない。
CorelDRAW VBAのアーキテクチャを正しく理解していれば、この手の退屈な作業は数行の堅牢なコードで一瞬にして自動化できる。
今回は、ドキュメントの構造をディープにスキャンし、ゴミを一網打尽にする「プロダクション品質のドキュメント浄化ツール」の設計思想と実装を伝授する。
—
なぜ素朴なVBAコードは実務で破綻するのか？
まず、アマチュアが書く「動くだけの危険なコード」の典型例を見てほしい。
‘ 【アンチパターン】絶対に真似してはいけない危険なコード
Sub BadCleanUp()
Dim s As Shape
For Each s In ActivePage.Shapes
If s.Locked = True Then s.Delete
Next s
End Sub
一見、ロックされたシェイプを消しているように見えるが、実務の現場ではこれでは使い物にならない。なぜか？
1. アクティブページしか見ていない: マルチページ（複数ページ）のドキュメントに対応していない。
2. レイヤーの概念を無視している: CorelDRAWのオブジェクトは「レイヤー（Layer）」に属している。レイヤー自体が非表示、あるいはロックされている場合のハンドリングが抜けている。
3. コレクション走査中の削除バグ: コレクション（Shapes等）をループしながら要素を削除すると、インデックスがずれて確実に一部のオブジェクトの判定がスキップされるというVBAの致命的な罠を踏む。
プロのエンジニアであれば、CorelDRAWのオブジェクトモデル（`Document` -> `Page` -> `Layer` -> `Shape`）の階層構造を正確に把握し、さらに「後ろから前へ数える（逆順ループ）」という鉄則を守らなければならない。
—
堅牢なドキュメント浄化エンジンの設計方針
今回構築するツールでは、以下の要件を完璧に満たすプロダクションコードを作成する。
1. 全ページ・全レイヤーの網羅的スキャン:
`ActiveDocument.Pages` と 各ページの `Layers` を完全走査する。
2. 安全な逆順ループ（Backward Loop）の徹底:
削除対象が存在する場合、インデックスのズレを防ぐために必ず末尾から先頭に向かってループを回す。
3. 可逆性とログ出力:
何を削除したのかをイミディエイトウィンドウに詳細に出力し、後から検証できるようにする。
—
【実務仕様】ドキュメント自動浄化マクロ・完全版コード
以下のコードをCorelDRAWのVBAエディタ（Alt + F11）に貼り付け、そのまま実行してほしい。実務のプレッシャーに耐えうる、極めて堅牢な設計に仕上げている。
‘ ==============================================================================
‘ CorelDRAW Production-Grade Document Cleaner
‘ Author: Lead Automation Engineer
‘ Description: ドキュメント内の「非表示レイヤーの削除」「ロックシェイプの解除・削除」
‘ および「非表示シェイプのパージ」を一括実行する堅牢なツール
‘ ==============================================================================
Sub PurgeHiddenAndLockedElements()
‘ 1. エラーハンドリングの基本方針：予期せぬ中断を防ぐ
On Error GoTo ErrorHandler
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 処理確認ダイアログ
Dim confirm As VbMsgBoxResult
confirm = MsgBox(“この操作は、現在のドキュメント内の「非表示レイヤー」「ロックされたシェイプ」「非表示シェイプ」を検出して削除します。” & vbCrLf & “実行しますか？”, vbYesNo + vbQuestion, “ドキュメント浄化ツール”)
If confirm = vbNo Then Exit Sub
Dim p As Page
Dim lyr As Layer
Dim shp As Shape
Dim deletedShapesCount As Long
Dim unlockedShapesCount As Long
Dim deletedLayersCount As Long
deletedShapesCount = 0
unlockedShapesCount = 0
deletedLayersCount = 0
‘ 処理速度向上のための画面描画停止（非常に重要）
doc.BeginCommandGroup
EventsEnabled = False
Debug.Print “=== ドキュメント浄化処理を開始: ” & doc.Name & ” ===”
‘ 2. ページごとのループ
For Each p In doc.Pages
‘ 3. レイヤーごとのループ（逆順で安全に処理）
Dim i As Long
For i = p.Layers.Count To 1 Step -1
Set lyr = p.Layers(i)
‘ ガイドレイヤーやマスターレイヤー（Grid/Guides等）は保護する
If Not lyr.IsMaster And lyr.Name <> “Guides” And lyr.Name <> “Grid” Then
‘ 【ケースA】非表示レイヤー自体の削除、または中身のパージ
If Not lyr.Visible Then
Debug.Print ” [非発見・レイヤー] ページ: ” & p.Index & ” / レイヤー名: ” & lyr.Name
‘ レイヤーごと強制削除する場合（必要に応じてコメント解除）
‘ lyr.Delete
‘ deletedLayersCount = deletedLayersCount + 1
End If
‘ 【ケースB】レイヤー内のシェイプ走査（必ず逆順ループ）
Dim j As Long
For j = lyr.Shapes.Count To 1 Step -1
Set shp = lyr.Shapes(j)
‘ ロックされているシェイプの処理
If shp.Locked Then
shp.Locked = False ‘ 一度ロックを解除して削除可能にする
unlockedShapesCount = unlockedShapesCount + 1
Debug.Print ” -> ロック解除: ページ ” & p.Index & ” / シェイプID: ” & shp.StaticID
End If
option
‘ 非表示シェイプの削除（必要に応じたポリシー適用）
If Not shp.Visible Then
Debug.Print ” -> 非表示シェイプ削除: ページ ” & p.Index & ” / シェイプID: ” & shp.StaticID
shp.Delete
deletedShapesCount = deletedShapesCount + 1
End If
Next j
End If
Next i
Next p
‘ 処理の終了処理
EventsEnabled = True
doc.EndCommandGroup
‘ 完了レポート
Debug.Print “=== 浄化処理完了 ===”
Debug.Print ” – ロック解除されたシェイプ数: ” & unlockedShapesCount
Debug.Print ” – 削除された非表示シェイプ数: ” & deletedShapesCount
MsgBox “ドキュメントの浄化が完了しました！” & vbCrLf & _
“・ロック解除: ” & unlockedShapesCount & “件” & vbCrLf & _
“・非表示シェイプ削除: ” & deletedShapesCount & “件”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常終了時のフォールバック
EventsEnabled = True
If Not doc Is Nothing Then doc.EndCommandGroup
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
End Sub
—
チーフアーキテクトが教える、コードの極意と実務適用のポイント
1. `BeginCommandGroup` と `EventsEnabled = False` の組み合わせ
CorelDRAW VBAにおいて、大量のシェイプを走査・削除する処理をGUIを描画しながら行わせると、極端に処理が遅くなる（最悪の場合フリーズする）。`EventsEnabled = False` とコマンドグループ化を行うことで、内部処理を爆速化させつつ、Ctrl+Zの「1回の取り消し（Undo）」で一連の削除を元に戻せるトランザクション安全性を担保している。
2. システムレイヤーの保護
CorelDRAWにはデフォルトで `Guides` や `Grid` といった特殊なレイヤーが存在する。これらを誤って削除・変更するとドキュメントのグリッド設定が破壊されるため、コード内で明示的に除外（`lyr.Name <> “Guides”` 等）するガードclauseを入れるのがプロの作法だ。
3. データベースや外部連携への拡張性
今回はローカルのドキュメント最適化に絞ったが、実務ではこれを拡張し、社内の進捗管理データベース（SQL ServerやWebAPI）と連携させ、「浄化処理を通したログ（何個のゴミが消されたか）」をJSON形式で飛ばすようなパイプラインに組み込むことも容易である。
—
結びに代えて
手作業によるチェックは、人間の疲労によって必ずすり抜けが発生する。
「機械にできることは機械にやらせる」。これが業務自動化エンジニアとしての絶対的な哲学だ。
今回提供したコードをあなたの開発環境に組み込み、明日の納品前夜の残業をゼロにしてほしい。コードは君の忠実な部下だ。正しく設計さえすれば、決して期待を裏切らない。
