【CorelDRAW VBA道場】レイヤー整理の「手作業」を撲滅せよ。オブジェクト自動移動の極意
現場で何百ものオブジェクトが散乱したファイルを見て、絶望したことはないか？
「レイヤーを整理して」という指示に対し、マウスでドラッグ＆ドロップを繰り返すのは、エンジニアの仕事ではない。それは「作業」であり「自動化」ではない。
CorelDRAW VBAは、APIの深淵を覗けば、ドキュメントの構造を意のままに操れる強力な兵器だ。今回は、選択したオブジェクトを指定したレイヤーへ一瞬で移動させる、実務レベルの「レイヤー整理エンジン」を伝授する。
—
1. なぜ「手動移動」は悪なのか？
手作業には「ヒューマンエラー」と「非効率」という二つのコストが伴う。
特に、複雑なベクターデータにおいてレイヤー構造が崩れると、後のデータ修正やカッティングプロッタ、印刷工程で致命的なバグを誘発する。
今回紹介するコードは、単に動くだけではない。「存在しないレイヤーを指定された場合にどう挙動させるか」という例外処理まで考慮した、プロダクション（実務）仕様だ。
—
2. 堅牢な自動レイヤー移動コード
以下のコードは、選択中のオブジェクトを、指定した名称のレイヤーへ強制的に叩き込むスクリプトだ。
‘ ———————————————————
‘ 機能: 選択中のオブジェクトを指定レイヤーへ移動させる
‘ アーキテクチャ: 存在確認・作成・移動の3段階フェーズ
‘ ———————————————————
Public Sub MoveSelectionToLayer()
Dim doc As Document
Dim shp As Shape
Dim targetLayerName As String
Dim targetLayer As Layer
‘ プロダクション環境では定数や外部設定ファイルから読み込むこと
targetLayerName = “Output_Layer”
Set doc = ActiveDocument
‘ 1. 安全確認: 選択オブジェクトが存在するか
If doc.Selection.Count = 0 Then
MsgBox “対象オブジェクトを選択してください。”, vbExclamation
Exit Sub
End If
‘ 2. レイヤーの存在確認と生成
‘ ActivePage.LayersはDocumentではなくPageに所属することに注意
On Error Resume Next
Set targetLayer = doc.ActivePage.Layers(targetLayerName)
On Error GoTo 0
If targetLayer Is Nothing Then
‘ レイヤーが存在しない場合は新規作成
Set targetLayer = doc.ActivePage.CreateLayer(targetLayerName)
End If
‘ 3. パフォーマンスと整合性を守る移動処理
‘ Undoの単位を適切に管理するため、開始と終了を明示する
doc.BeginCommandGroup “Move to Layer: ” & targetLayerName
For Each shp In doc.Selection
‘ MoveToLayerは非常に高速。ただしロックされたレイヤーへの移動には注意が必要
If Not shp.Layer.Locked Then
shp.MoveToLayer targetLayer
End If
Next shp
doc.EndCommandGroup
MsgBox “移動完了: ” & doc.Selection.Count & ” 個のオブジェクトを ‘” & targetLayerName & “‘ に移動しました。”, vbInformation
End Sub
—
3. コードの解説と「プロの視点」
① `On Error Resume Next` の正しい使い方
レイヤー検索時にエラーが出るのは、プログラムのバグではなく「仕様」だ。ここでエラーを握りつぶし、`targetLayer` が `Nothing` かどうかで「生成が必要か」を判断させる。これが、if文のネストを深くせず、可読性を保つコツだ。
② `BeginCommandGroup` の重要性
これを書かないツールは「素人」の仕事だ。この命令を挟むことで、ユーザーは「Ctrl+Z」を一回押すだけで、移動操作を取り消せるようになる。UX（ユーザー体験）を考慮した設計こそが、現場で愛されるツールを作る。
③ オブジェクト指向の理解
CorelDRAWのオブジェクトモデルにおいて、`Shape` は `Layer` に所属し、`Layer` は `Page` に所属する。`ActiveDocument` からいきなりレイヤーを触ろうとすると、マルチページ構成のファイルで事故が起きる。必ず `ActivePage` を経由する癖をつけよ。
—
4. さらなる自動化へのステップ
この基本コードをマスターした後は、次のような拡張を検討すべきだ。
- データベース連携: ExcelやCSVから「オブジェクト名とレイヤー名の紐付けリスト」を読み込み、一括で仕分けを行うマクロに進化させる。
- 属性フィルタリング: 特定の色や線幅を持つオブジェクトだけを抽出し、自動レイヤー移動させる（`Shape.Outline.Color` や `Shape.Fill` のプロパティを使用）。
- プリフライトチェック: 保存前に、指定レイヤー以外にオブジェクトが残っていないか自動チェックする機能を実装する。
最後に：エンジニアとしての矜持
自動化とは、単にコードを書くことではない。「その作業を繰り返す必要性を、システムとして無効化すること」だ。
レイヤー整理の手間をゼロにできたなら、次は「そもそもレイヤーを手動で作らせない仕組み」を考えろ。VBAは、あなたのアイデア次第でただのスクリプトから、設計思想そのものへと昇華する。
健闘を祈る。何かあればまた質問してこい。
