【実務効率化】パッケージデザインの「スジ」と「カット」を自動分離！レイヤー制御の極意
こんにちは。現場の自動化を支えるエンジニアの皆さん。
日々、複雑なパッケージデザインの展開図と向き合っていると、ふと思うことはありませんか？
「この『スジ入れ（折り目）』の線を、いちいち手作業で専用レイヤーに移動させるのは、もう限界だ……」と。
パッケージデザインの世界では、「カット線（抜型）」と「スジ線（折り目）」を明確に分けることが、印刷・製版工程での致命的なミスを防ぐ絶対条件です。これを手作業で行うのは、単に時間がかかるだけでなく、ヒューマンエラーの温床でもあります。
今日は、マクロの記録から一歩踏み出し、「オブジェクトの属性を判別して、動的にレイヤーを振り分ける」という、実務レベルの自動化に挑戦してみましょう。ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。
1. 「マクロの記録」から「プログラミング」への脱却
多くの人が最初に通る道が「マクロの記録」です。しかし、記録されたコードは「私がこのボタンを押した」という操作の履歴に過ぎません。
今回の目的である「色を見て、レイヤーを分ける」には、履歴ではなく「論理（ロジック）」が必要です。
- 記録されたコード： 「オブジェクトAをレイヤーBへ移動せよ」
- 私たちが書くべきコード： 「もし、オブジェクトの色がマゼンタなら、カット用レイヤーへ移動せよ。そうでなければ、スジ用レイヤーへ移動せよ」
この「もし（If）」という条件分岐こそが、自動化の魂です。
2. 攻略の鍵：CorelDRAWのオブジェクト階層
コードを書く前に、CorelDRAWがデータをどう持っているかを理解しましょう。これを「オブジェクトモデル」と呼びます。
[Document]（ファイル全体）
┗ [Page]（ページ）
┗ [Layer]（レイヤー：ここが今回の主役！）
┗ [Shape]（図形・線：色や太さの情報を持っている）
今回のプログラムは、ページ内のすべての Shape を一つずつ調べ、その Outline（輪郭） の色をチェックし、適切な Layer へ `MoveToLayer` メソッドで放り込む、という流れになります。
3. 実装：スジ・カット自動分離マクロ
それでは、実際に使えるコードを見てみましょう。
このコードは、「マゼンタ(M100)ならカット線」「シアン(C100)ならスジ線」と判定する仕様です。
Option Explicit
''' <summary>
''' パッケージの展開図から、色に基づいてスジ線とカット線をレイヤー分離する
''' </summary>
Sub SeparatePackageLines()
Dim doc As Document
Dim pg As Page
Dim s As Shape
Dim cutLayer As Layer
Dim creaseLayer As Layer
Dim shapeCount As Long
' 高速化のための定石：画面更新を止める
Optimization = True
Set doc = ActiveDocument
Set pg = ActivePage
' 1. 必要なレイヤーが存在するか確認し、なければ作成する
' これが「プロの仕事」：環境に依存しない堅牢なコード
On Error Resume Next
Set cutLayer = doc.Layers("CUT_LINE")
If cutLayer Is Nothing Then
Set cutLayer = doc.Layers.Create("CUT_LINE")
End If
Set creaseLayer = doc.Layers("CREASE_LINE")
If creaseLayer Is Nothing Then
Set creaseLayer = doc.Layers.Create("CREASE_LINE")
End If
On Error GoTo 0
' 2. ページ内のすべてのシェイプをループ処理
' ShapeRangeを使うことで、効率的にオブジェクトを扱える
shapeCount = 0
For Each s In pg.Shapes.All
' 線（Outline）を持っているオブジェクトか判定
If s.Type <> cdrGroupShape Then ' グループ化されているものは一旦スキップ（基本）
If s.Outline.Type <> cdrNoOutline Then
' 3. 色の判定ロジック
' ここではCMYKカラーを想定しています
Dim c As Double, m As Double, y As Double, k As Double
s.Outline.Color.CMYKAssign c, m, y, k
' マゼンタ(M=100)ならカット線レイヤーへ
If m >= 99 Then
s.MoveToLayer cutLayer
shapeCount = shapeCount + 1
' シアン(C=100)ならスジ線レイヤーへ
ElseIf c >= 99 Then
s.MoveToLayer creaseLayer
shapeCount = shapeCount + 1
End If
End If
End If
Next s
' 処理が終わったら画面を更新して完了を通知
Optimization = False
ActiveWindow.Refresh
MsgBox shapeCount & " 個のオブジェクトを仕分けました！", vbInformation, "完了"
End Sub4. コードの深層解説：ここがポイント！
① `Optimization = True` の魔法
プロのコードには必ずと言っていいほどこれが入っています。
CorelDRAWは、オブジェクトを移動させるたびに画面を再描画しようとします。100個の線を動かすとき、100回画面を描き直すと非常に重くなります。`Optimization = True` は「今、裏で作業中だから画面は見なくていいよ」と指示する命令です。これだけで処理速度は劇的に変わります。
② `On Error Resume Next` の賢い使い方
レイヤーを作成する際、すでに同じ名前のレイヤーがあるとエラーになって止まってしまいます。
「もしエラーが起きても、一旦無視して次へ進んでね」と指示することで、レイヤーの有無を確認しながらスマートに作成を進めることができます。
③ 色の判定（`CMYKAssign`）
`s.Outline.Color.CMYKAssign c, m, y, k`
ここでは、オブジェクトの色の成分を `c, m, y, k` という変数に代入しています。
「色がマゼンタかどうか」を判定する際、コンピュータは「完全に100」ではなく「99.999…」のように微小な誤差を持つことがあります。そのため、`If m = 100` ではなく `If m >= 99` と少し幅を持たせるのが、現場でエラーを出さないコツです。
5. 陥りやすいエラーと対策
Q. マクロを実行しても何も起きない！
原因: オブジェクトが「グループ化」されていませんか？
上記のコードでは、複雑さを避けるために `If s.Type <> cdrGroupShape` と、グループ化されたオブジェクトをスキップするようにしています。グループの中身まで判定したい場合は、再帰処理（Recursive Call）という少し高度なテクニックが必要になります。まずは「グループ化を解いてから実行する」という運用ルールを作るのも、立派な自動化戦略です。
Q. 意図しない線まで移動してしまう！
原因: 色の判定基準が緩すぎる可能性があります。
もしデザイン内で「薄いシアン」も使っている場合、それもスジ線として判定されてしまいます。その場合は、`c >= 99` の数値を調整するか、色だけでなく「線の太さ（`s.Outline.Width`）」も条件に加えることで、精度を極限まで高めることができます。
最後に
いかがでしたか？
「線を分ける」という単純な作業も、こうしてロジックを組み立ててみると、非常に理にかなった、美しいプログラムに変わります。
マクロの記録で「できた！」となるのは素晴らしい第一歩です。しかし、その一歩の先に、今回のような「条件によって動きを変える」というプログラミングの本質があります。
このコードをベースに、自分の業務に合わせた色や条件を付け加えてみてください。それが、あなただけの最強の武器になります。
応援していますよ。さあ、次はどんな自動化に挑戦しますか？
