CorelDRAW VBAを掌握せよ：レイヤー走査における「不可視・ロック」完全排除の鉄則
CorelDRAWの自動化において、最も初歩的かつ致命的なミスは「操作対象を制御できていないこと」にある。特にレイヤー走査時、非表示（Visible=False）やロック（Locked=True）状態のオブジェクトを不用意に操作し、予期せぬエラーやデータ破損を招く例を後を絶たない。
真のエンジニアは、単に「動くコード」ではなく、「壊れないコード」を書く。本稿では、CorelDRAWのオブジェクトモデルの深層に触れ、堅牢なレイヤーフィルタリングの極意を伝授する。
—
1. オブジェクトモデルの罠と「走査の作法」
CorelDRAW VBAの`Layer`オブジェクトは、階層構造の要である。しかし、`ActiveDocument.Pages(i).Layers`を漫然とループさせるだけでは不十分だ。
多くのジュニアエンジニアは、以下のコードで時間を浪費する。
‘ アンチパターン
For Each lyr In ActivePage.Layers
lyr.Shapes.All.CreateSelection ‘ ロックされているとここでエラーが飛ぶ
Next lyr
これは怠慢だ。システムは「操作不能な状態」を事前に検知し、処理をバイパスする義務がある。
2. フィルタリングの最適解：Early Exitと属性検証
処理速度とメモリ効率を両立させるには、ループ内での条件分岐を最小化し、「無駄なオブジェクト生成を避ける」ことが鉄則である。以下のコードは、実務で私が常用する「堅牢な走査パターン」だ。
Public Sub ProcessVisibleUnlockedLayers()
Dim doc As Document
Dim p As Page
Dim lyr As Layer
Set doc = ActiveDocument
For Each p In doc.Pages
For Each lyr In p.Layers
‘ 【極意】属性チェックを最優先。ここでガード節を適用する
If Not lyr.Visible Or lyr.Locked Then
‘ 非表示またはロック時は即座にスキップ（計算リソースの節約）
GoTo ContinueLoop
End If
‘ ここには安全な処理のみを記述する
Debug.Print “Processing: ” & lyr.Name
ContinueLoop:
Next lyr
Next p
‘ 明示的な解放：VBAのガベージコレクションを待たない
Set lyr = Nothing
Set p = Nothing
Set doc = Nothing
End Sub
なぜ `GoTo` を使うのか？
「GoTo文は悪」という教条主義は忘れよ。深くネストされたループ構造において、条件を満たさない場合に一段階上のループへ制御を戻すための`GoTo`は、可読性とパフォーマンスのバランスを最適化する。`If`でネストを深めるより、はるかにメンテナンス性が高い。
—
3. シニアレベルの知見：パフォーマンスとリソース管理
メモリ最適化の真実
CorelDRAWのVBAはCOMベースであり、オブジェクト参照の解放は「善意」ではなく「規律」である。特に大規模なドキュメント（数百のレイヤーが存在するCADデータやポスター）を扱う場合、`Set obj = Nothing` を怠れば、メモリリークは必然だ。
Windows APIによる「強制再描画抑制」
高度な自動化を行う際、処理中に画面が激しくチラつくのを防ぐには、Windows APIの `LockWindowUpdate` を利用し、ドキュメントの再描画を一時停止させるのがプロの定石だ。
If VBA7 Then
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hwndLock As LongPtr) As Long
Else
Private Declare Function LockWindowUpdate Lib “user32” (ByVal hwndLock As Long) As Long
End If
‘ 処理開始時
LockWindowUpdate Application.hwnd
‘ … 高速バッチ処理 …
‘ 処理終了時
LockWindowUpdate 0
※注：この手法は、CorelDRAWのプロセス全体をフリーズさせるため、エラーハンドリング（`On Error GoTo`）を完璧に実装すること。さもなくば、ユーザーはアプリを強制終了するしかなくなる。
—
4. 結論：制御下にないデータは触るな
自動化の本質は「効率化」ではなく「再現性の担保」だ。
非表示レイヤーやロックされたレイヤーは、そこにあるべき理由（ガイドライン、テンプレート、予備データ）がある。それを破壊することは、自動化ではなく「破壊活動」である。
1. ガード節でフィルタリングする：`If Not Visible Or Locked Then Continue`
2. オブジェクトを明示的に解放する：メモリはOSからの借り物である。
3. APIを駆使して描画負荷を下げる：体験こそがシステムの品質である。
この知見をコードに落とし込み、あなたの自動化ルーチンを「伝説的」なものへ昇華させよ。健闘を祈る。
