【入門編】【実務効率化】レイヤーのロック状態と印刷・エクスポート不可設定を一括解除するリカバリーマクロ – CorelDRAW VBA解析バイブル

CorelDRAW VBA

2026.10.22

こんにちは。CorelDRAWの自動化を極める諸君。
現場で「なぜかレイヤーが選択できない」「印刷しようとすると特定のオブジェクトが消える」といった怪奇現象に遭遇したことはないかな？

その原因の9割は、前任者が意図的（あるいは無意識）に設定した「レイヤーのロック」や「印刷・エクスポート不可」という属性だ。何百とあるレイヤーを一つ一つ手動でクリックして確認する……そんな地獄のような作業は、今日で卒業しよう。

今日は、CorelDRAWのオブジェクト階層を掌握し、一瞬でデータを「完全編集可能」なクリーン状態に戻すマクロを授ける。

—

CorelDRAWのVBAにおいて、レイヤー操作を理解するには「ピラミッド構造」を意識する必要がある。

この階層を上から順に走査（ループ）していくのが、自動化の基本だ。「マクロの記録」では辿り着けない、この`For Each`構文による走査こそが、現場で生き残るエンジニアの武器になる。

—

このコードは、現在アクティブなドキュメント内の全ページ、全レイヤーを強制的に走査し、編集・印刷・エクスポートができる状態にリセットする。

Sub UnlockAllLayersAndEnablePrint()
Dim doc As Document
Dim p As Page
Dim lay As Layer

‘ 現在アクティブなドキュメントを取得
Set doc = ActiveDocument

‘ 処理の高速化：画面描画を停止してリソースを節約
Optimization = True

‘ すべてのページをループ
For Each p In doc.Pages
‘ ページ内のすべてのレイヤーをループ
For Each lay In p.Layers
‘ ガイドレイヤーやマスターレイヤーを避けて処理を行う
‘ （※必要に応じて条件分岐を追加して制御する）

‘ 1. ロックを解除する
lay.Locked = False

‘ 2. 印刷・エクスポート可能にする
lay.Printable = True
lay.Editable = True
lay.Visible = True

‘ 3. レイヤー名に「UNLOCKED」という接頭辞をつけて可視化する（オプション）
‘ lay.Name = “UNLOCKED_” & lay.Name
Next lay
Next p

‘ 処理完了後、描画を再開して画面を更新
Optimization = False
ActiveWindow.Refresh

MsgBox “全レイヤーの保護解除が完了しました！”, vbInformation
End Sub

—

CorelDRAWのVBAには、処理中に画面を更新させない `Optimization` プロパティがある。これを使わずに数千のオブジェクトを操作すると、画面描画の負荷でPCがフリーズしかねない。「処理前はTrue、処理後はFalse」。これはプロの鉄則だ。

「インデックス番号（1, 2, 3…）」で指定すると、レイヤーの削除などで番号がズレてエラーが起きる。`For Each` を使えば、中身がどうあれ確実に全要素を拾える。これが、堅牢な（壊れにくい）プログラムを書くコツだ。

上のコードは「現在のページ」を対象にしているが、CorelDRAWには「マスターページ（全ページ共通レイヤー）」が存在する。もしマスターレイヤーまで制御したい場合は、`doc.MasterPage.Layers` を走査対象に加える必要がある。まずは上記のコードで、個別のページから攻略してみよう。

—

VBAを学ぶことは、単にコードを書くことではない。「どのオブジェクトが、どのプロパティを持っているか」という設計図を脳内に描くことだ。

今回紹介したマクロは、単なる便利ツールではない。複雑な他人のデータに立ち向かうための「強制再起動ボタン」だ。この構造を理解できれば、ガイド線の自動配置や、特定の色のオブジェクトだけを抽出して別レイヤーに飛ばすといった、より高度な自動化も夢ではない。

さあ、エディタを開いて、このコードを打ち込んでみてくれ。
エラーが出たら、それは君が成長している証だ。そのエラーメッセージこそが、CorelDRAWが君に教えてくれている「次の攻略のヒント」なのだから。

君のエンジニアリングライフが、より快適で創造的なものになることを願っている。何か詰まったら、いつでも戻ってきてほしい。