こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して出てきたコードをそのまま貼り付けて、「なんだか動いたり動かなかったりする……」と悩んだ経験はありませんか？
今回は、複雑なデザイン案件を華麗にさばくための「カスタムレイヤーの動的生成とプレフィックス（接頭辞）による自動分類」というテーマを解説します。
ここをクリアすれば、単なる「操作の自動化」から脱却し、「デザインの構造化」をコードでコントロールする本物のエンジニアへの階段を登ることができますよ。
優しく、そして本質的な部分までしっかりと紐解いていきますので、ぜひついてきてくださいね！
—
なぜ「レイヤーの自動分類」が必要なのか？
例えば、100店舗分のチラシや、複雑なパッケージデザインを想像してください。
「トンボ」「デザイン（アートワーク）」「箔押し用の版」「カットライン」……これらが1つのレイヤーにごちゃ混ぜになっていたらどうでしょう？ 印刷所に入稿した瞬間、大惨事になりますよね。
人間の手でレイヤーを何個も作り、オブジェクトを一つずつドラッグ＆ドロップして仕分けるのは、ミスを生む温床です。
これをVBAで一瞬にして解決するのが、今回のテーマです。「ルール（命名規則）さえ決めれば、CorelDRAWが勝手に整理整頓してくれる仕組み」を作りましょう。
—
CorelDRAWオブジェクトモデルの核心
コードを書く前に、CorelDRAWがドキュメントをどう捉えているか、その「地図」を頭に入 otras れておきましょう。
Application (CorelDRAW自体)
┗ ActiveDocument (今開いているファイル)
┗ Pages (ページたちの集まり)
┗ ActivePage (今見ているページ)
┗ Layers (レイヤーたちの集まり)
┗ Shape (図形や文字などのオブジェクト)
レイヤーを操作するということは、この `ActivePage.Layers` というコレクション（集まり）に対して、「新しいのを作ってくれ！」「名前をこう変えてくれ！」と命令することに他なりません。
—
実装編：プレフィックスでレイヤーを自動生成・振り分けする
今回は、オブジェクトの名前（Shape.Name）の先頭にあるプレフィックス（接頭辞）を読み取り、対応するカスタムレイヤーへ自動的に移動させる実用的なマクロを作成しました。
以下のコードを、CorelDRAWのVBAエディタ（`Alt + F11`）の標準モジュールに貼り付けてみてください。
Sub AutoSortElementsByPrefix()
‘ =====================================================================
‘ 概要: 選択した図形の名前のプレフィックスを判定し、専用レイヤーへ自動移動する
‘ プレフィックスのルール:
‘ “CUT_” -> カットライン用レイヤーへ
‘ “FOIL_” -> 箔押し用レイヤーへ
‘ その他 -> 通常のデザインレイヤーへ
‘ =====================================================================
‘ 画面描画をロックして処理速度を爆発的に上げる（プロの常識！）
ActiveDocument.Optimization = True
ActiveDocument.BeginCommandGroup “レイヤー自動分類”
On Error GoTo ErrorHandler
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
‘ 何も選択されていない場合は優しく警告して終了
If sr.Count = 0 Then
MsgBox “分類したい図形を選択してから実行してください。”, vbExclamation, “案内”
GoTo CleanUp
End If
Dim sh As Shape
Dim targetLayerName As String
Dim targetLayer As Layer
‘ 選択されたすべての図形をひとつずつスキャン
For Each sh in sr
‘ 1. プレフィックス（接頭辞）による分類先の決定
If UCase(Left(sh.Name, 4)) = “CUT_” Then
targetLayerName = “LYR_CutLine”
ElseIf UCase(Left(sh.Name, 5)) = “FOIL_” Then
targetLayerName = “LYR_FoilStamp”
Else
targetLayerName = “LYR_Artwork”
End If
‘ 2. 指定したレイヤーが存在するか確認し、なければ動的に新規作成する
Set targetLayer = GetOrCreateLayer(targetLayerName)
‘ 3. オブジェクトを該当レイヤーに移動
‘ ※CorelDRAWでは MoveToLayer メソッドを使います
sh.MoveToLayer targetLayer
Next sh
CleanUp:
‘ 処理の終了処理（必ず元に戻す）
ActiveDocument.EndCommandGroup
ActiveDocument.Optimization = False
ActiveWindow.Refresh
MsgBox “要素の自動分類が完了しました！”, vbInformation, “完了”
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End Sub
‘ =====================================================================
‘ 補助関数: 指定名のレイヤーが存在すれば取得し、なければ新規作成する
‘ =====================================================================
Function GetOrCreateLayer(layerName As String) As Layer
Dim lyr As Layer
Dim found As Boolean
found = False
‘ 現在のページのレイヤーを総当たりでチェック
For Each lyr In ActivePage.Layers
If lyr.Name = layerName Then
Set GetOrCreateLayer = lyr
found = True
Exit For
End If
Next lyr
‘ みつからなければ新しく作る
If Not found Then
Set GetOrCreateLayer = ActivePage.CreateLayer(layerName)
End If
End Function
—
コードの注目ポイント（ここが分かれば初心者卒業！）
1. 画面描画のロック (`Optimization = True`)
大量のオブジェクトを処理する際、CorelDRAWは一回一回画面を再描画しようとするため、ものすごく動作が遅くなります。処理の最初に `Optimization = True` を入れ、最後に `False` に戻す。これだけでプロ並みの高速化が手に入ります。
2. 動的なレイヤー生成 (`GetOrCreateLayer` 関数)
「もしレイヤーがなかったら作る、あればそれを使う」という処理は、実務の自動化では頻出のパターンです。関数（Function）として切り分けておくことで、コードがすっきりと読みやすくなります。
3. `MoveToLayer` によるオブジェクトの移籍
CorelDRAW VBAにおいて、あるレイヤーにある図形を別のレイヤーに移動させるのは非常にシンプルです。`図形オブジェクト.MoveToLayer 目的のレイヤー` これだけで、オブジェクトの所属が綺麗に書き換わります。
—
陥りやすい罠とエラー回避のコツ
トラブル1: 「レイヤーが見つかりません」または「オブジェクトが移動しません」
- 原因: レイヤーが「ロック」されている、または「非表示」になっている可能性があります。
- 対策: `MoveToLayer` を実行する前に、対象のレイヤーの `lyr.Locked = False` や `lyr.Visible = True` を明示的にコードに組み込んでおくと、頑健なマクロになります。
トラブル2: プレフィックスの判定漏れ
- 原因: ユーザーが「cut_line」や「Cut_box」のように、大文字小文字を混ぜて名前をつけてしまった場合、単純な比較だと判定から漏れます。
- 対策: サンプルコードでも使っている `UCase()` 関数を使い、あらかじめ文字列をすべて大文字に変換して比較するのが、実務で使えるエンジニアの知恵です。
—
おわりに
いかがでしたでしょうか？
カスタムレイヤーの動的生成と自動分類の仕組みが手に入れば、どれほど複雑なデザインデータであっても、一瞬で整然としたプロフェッショナルな構造に仕立て上げることができます。
「ボタンひとつで、デザインの裏側まで美しく整う」。そんな快感を、ぜひあなたの開発環境でも味わってみてください。
ここをクリアしたあなたなら、もうCorelDRAW VBAの基本はバッチリです！次のステップへ進みましょう。
