レイヤーの「可視性」を制御するな。エクスポート属性を「統治」せよ。
Web配信用データ作成を劇的に高速化する、プロフェッショナルなレイヤー制御術
デザイン制作の現場において、印刷用の「マスターデータ」と、Web書き出し用の「軽量データ」を同一ファイル内で管理するのは、もはやスタンダードだ。しかし、多くの自動化エンジニアが陥る罠がある。それは、「レイヤーの表示/非表示（Visible）」と「エクスポート属性（Exportable）」を混同することだ。
画面上で見えていなくても、エクスポート属性が `True` であれば、書き出しエンジンはそのレイヤーを処理対象として拾い上げてしまう。これが、Web用データに不要なオーバープリントや高解像度オブジェクトが混入し、ファイルサイズを肥大化させる元凶だ。
本記事では、単なるループ処理の書き方ではなく、実務で耐えうる「堅牢なレイヤー制御システム」の設計思想を伝授する。
1. 設計思想：名前による「規約（Convention）」の強制
プロの現場において、レイヤー名を「レイヤー1」「レイヤー2」のまま放置することは、設計における死を意味する。自動化ツールを構築する場合、レイヤー名に特定のプレフィックス（接頭辞）を持たせる運用ルールを徹底させるべきだ。
例えば、以下のような命名規則を定義する。
- `WEB_` : Web書き出し時に含めるレイヤー
- `PRT_` : 印刷用にのみ保持するレイヤー
- `TMP_` : 作業用（エクスポート対象外）
この規約さえあれば、VBA側は「どのレイヤーを操作すべきか」を迷うことなく、高速かつ正確に判定できる。ハードコーディング（特定の名前を直接書くこと）は避け、常にパターンマッチングを利用するのが定石だ。
2. パフォーマンスと堅牢性のための「三原則」
大量のページ、数百のレイヤーを扱う際、愚直なループ処理はCorelDRAWの挙動を重くし、最悪の場合、アプリケーションをフリーズさせる。以下の3点をコードに組み込むことは、エンジニアとしての最低限の責務である。
① Optimization（最適化）の制御
描画更新を一時停止させる。これを行わないと、レイヤーの状態が変わるたびにCorelDRAWが画面を再描画しようとし、処理時間が指数関数的に増大する。
② CommandGroup（アンドゥ履歴の集約）
一括処理を行った後、ユーザーが `Ctrl+Z` を一回押しただけで、全ての変更が元に戻るように設計する。これを怠ると、ユーザーは数百回の「元に戻す」操作を強いられることになる。
③ Error Handling（例外処理）
レイヤーがロックされている、あるいはページが保護されているといった予期せぬエラーに対し、プログラムがクラッシュして停止することを防ぐ。
3. プロダクション・コード例
以下に、指定したプレフィックスを持つレイヤーの `Exportable` プロパティを一括制御する、実戦投入可能なコードを示す。
Option Explicit
''' <summary>
''' 指定したプレフィックスを持つレイヤーのエクスポート属性を一括制御する
''' </summary>
''' <param name="targetPrefix">対象とするレイヤーの接頭辞 (例: "WEB_")</param>
''' <param name="isExportable">エクスポートを許可するかどうか</param>
Public Sub BatchSetLayerExportableStatus(ByVal targetPrefix As String, ByVal isExportable As Boolean)
Dim doc As Document
Set doc = ActiveDocument
' ドキュメントが開かれていない場合は即時終了
If doc Is Nothing Then Exit Sub
' エラーハンドリングの開始
On Error GoTo ErrorHandler
' --- [最適化開始] ---
' 描画更新を停止し、処理速度を極限まで高める
Optimization = True
EventsEnabled = False ' イベント発生を抑制し、予期せぬトリガーを防ぐ
' ユーザーの「元に戻す(Undo)」操作を一つの塊にまとめる
doc.BeginCommandGroup "Batch Set Exportable: " & targetPrefix
Dim pg As Page
Dim lyr As Layer
Dim matchCount As Long
matchCount = 0
' 全ページを走査
For Each pg In doc.Pages
' 各ページ内の全レイヤーを走査
For Each lyr In pg.Layers
' Like演算子を用いたパターンマッチング
' プレフィックスが一致するかを判定
If lyr.Name Like targetPrefix & "*" Then
' レイヤーがロックされている場合はスキップ（エラー回避）
If Not lyr.Locked Then
lyr.Exportable = isExportable
matchCount = matchCount + 1
End If
End If
Next lyr
Next pg
' 完了報告
MsgBox "処理が完了しました。" & vbCrLf & _
"対象レイヤー数: " & matchCount, vbInformation, "完了"
CleanUp:
' --- [最適化終了] ---
' 状態を必ず元に戻す（ここを忘れるとCorelDRAWが不安定になる）
doc.EndCommandGroup
EventsEnabled = True
Optimization = False
Exit Sub
ErrorHandler:
MsgBox "致命的なエラーが発生しました。" & vbCrLf & _
"Error No: " & Err.Number & vbCrLf & _
"Description: " & Err.Description, vbCritical, "エラー"
Resume CleanUp
End Sub
''' <summary>
''' Web書き出し用レイヤーのみをエクスポート可能にする実行用プロシージャ
''' </summary>
Public Sub PrepareForWebExport()
' "WEB_" で始まるレイヤーをエクスポート対象にする
Call BatchSetLayerExportableStatus("WEB_", True)
' "PRT_" で始まるレイヤーはエクスポート対象から外す
Call BatchSetLayerExportableStatus("PRT_", False)
End Sub4. アーキテクトの視点：なぜこのコードは「強い」のか
このコードを単なる「動くコード」として片付けてはいけない。その背後にある設計意図を理解せよ。
1. `Like targetPrefix & “*”` の採用:
`If lyr.Name = “WEB_Layer1″` のような完全一致ではなく、ワイルドカードを用いることで、運用ルールに基づいた柔軟なスキャンを可能にしている。
2. `If Not lyr.Locked Then` のガード句:
実務では、誤操作防止のためにロックされたレイヤーが存在することが多々ある。プロパティ変更を試みてエラーで止まるのではなく、静かにスキップする。これが「止まらないツール」の条件だ。
3. `EventsEnabled = False` の重要性:
CorelDRAWのオブジェクトの状態が変わると、内部的に多くのイベントが発生する。大規模なドキュメントでは、このイベントの連鎖がパフォーマンスを著しく低下させる。これを抑制することは、プロフェッショナルな自動化において必須のテクニックだ。
4. `CleanUp` ラベルへの集約:
エラーが発生しても、正常に終了しても、必ず `Optimization = False` を通るように設計している。これを怠ると、ツールを実行した後にCorelDRAWの画面が更新されないという、ユーザーにとって致命的な不具合を引き起こす。
結論
自動化の目的は、作業を「速くする」ことだけではない。「人間が介在する余地（ミス）を排除する」ことにある。
レイヤーの表示状態に頼るのではなく、エクスポート属性という「データの出口」を直接制御する。この設計思想を持つことで、君が作るツールは、単なる便利ツールから、信頼される業務基盤へと昇華するだろう。
