コーポレートカラーの厳密な統制！指定された特定色（スポットカラー）以外の使用を禁止し、違反箇所を赤枠でハイライトする監査マクロ
グラフィックデザインやパッケージ印刷の現場において、「コーポレートカラーの厳密な遵守」はブランドのアイデンティティを左右する絶対的な鉄則です。しかし、数千ものオブジェクトがひしめくCorelDRAWのドキュメントから、ガイドラインに違反した色を手作業で目視チェックするのは、非効率極まりない上にヒューマンエラーを誘発する温床でしかありません。
「RGBの黒（R:0 G:0 B:0）と、リッチブラック（C:40 M:40 Y:30 K:100）が混在している」
「PANTONEの特色で指定すべき場所に、酷似したCMYKのプロセスカラーが使われている」
こうしたミスは、印刷工程に入ってから数百万規模の刷り直し（ロス）という致命的なトラブルに発展します。
今回は、CorelDRAWの内部オブジェクトモデルを深く理解し、「許可された特定色（スポットカラー/プロセスカラー）以外の使用を完全にシャットアウトし、違反箇所を別レイヤーに赤枠で自動ハイライトする」極めて堅牢な監査マクロの設計思想と実装コードを解説します。
—
1. なぜあなたのコードは遅く、そして落ちるのか？（設計の極意）
初心者が書いたVBAコードが実用に耐えない最大の理由は、「CorelDRAWのドキュメント構造に対する理解不足」と「パフォーマンス最適化の欠如」にあります。プロのツールを開発するにあたり、以下の3つのトラップを確実に回避しなければなりません。
トラップ①：浅いループによる「ネストされたオブジェクト」の取りこぼし
`ActivePage.Shapes` を単純に `For Each` で回すだけのコードは、実務では何の役にも立ちません。なぜなら、複雑なデザインデータの多くは「グループ（Group）」化されており、さらにその内部に「パワークリップ（PowerClip：マスクコンテナ）」が入れ子（ネスト）構造で配置されているからです。
これらをすべて網羅するには、再帰アルゴリズム（Recursive Call）を用いて、オブジェクトツリーの末端まで潜り込む設計が不可欠です。
トラップ②：`Color.IsSameColor` メソッドの限界と「厳密な色比較」の罠
CorelDRAW VBAに用意されている `Color.IsSameColor` は、一見便利ですが「カラーモデルの自動変換」を伴うため、厳密な監査においてはバグの引き金になります。
例えば、CMYKの `C:100 M:0 Y:0 K:0` と、RGBの `R:0 G:150 B:214` は、画面上やカラープロファイルの設定によっては「同じような色」と判定されることがありますが、印刷機にとっては完全に別物です。
監査エンジンは、カラータイプ（CMYK / RGB / Spot等）を識別した上で、各チャンネルの数値（0〜255、あるいは0〜100）をダイレクトに比較しなければなりません。
トラップ③：描画更新（Redraw）による著しいパフォーマンス低下
オブジェクトを走査するたびにCorelDRAWの画面が再描画されると、処理速度は指数関数的に低下します。1,000個のオブジェクトを処理するのに数分かかるようでは、誰もそのツールを使いません。
`Application.Optimization = True` を適切に配置し、描画をメモリ上で完結させることで、処理速度を10倍〜50倍へと引き上げる必要があります。
—
2. アーキテクチャの設計図
本システムは、保守性と拡張性を担保するために以下のコンポーネントに分離して設計します。
[マスターパレット定義] (許可された色の配列、または外部ファイル)
│
▼
[監査エンジン (Audit Engine)] ─ (画面更新の一時停止 & エラーハンドリング)
│
├─► [再帰走査 (Recursive Scanner)] ──► グループ / パワークリップを分解走査
│ │
│ ▼
└─► [カラー判定 (Color Validator)] ────► 塗り(Fill)と輪郭(Outline)の厳密比較
│
▼ (違反検知)
[ハイライト生成 (Marker)]
└─ 独立した”Audit_Violations”レイヤーへ
赤枠矩形を生成 (非破壊設計)
非破壊設計の追求
違反箇所を見つけたからといって、元のオブジェクトの塗り潰しを直接赤色に変更するような暴挙に出てはいけません。元のデザインを破壊してしまっては、修正作業が困難になります。
プロの設計では、「”Audit_Violations”（監査違反）という専用レイヤーを自動生成し、そこに違反オブジェクトを囲む赤い矩形（バウンディングボックス）を描画する」アプローチを採ります。これにより、不要になればレイヤーごと一括削除するだけで、元のデザインに戻すことができます。
—
3. 極限まで洗練されたプロダクションコード
以下に、そのまま実務に投入できる堅牢なVBAソースコードを示します。エラーハンドリング、描画最適化、再帰走査、そして非破壊ハイライト処理をすべて盛り込んでいます。
Option Explicit
‘ —————————————————————————–
‘ 構造体定義：許可されるカラー（マスターパレット）
‘ —————————————————————————–
Private Type AllowedColor
ColorType As cdrColorType
C As Long
M As Long
Y As Long
K As Long
R As Long
G As Long
B As Long
SpotName As String
End Type
‘ グローバル設定
Private MasterPalette() As AllowedColor
Private ViolationLayer As Layer
Private ViolationCount As Long
‘ =============================================================================
‘ メインエントリーポイント
‘ =============================================================================
Public Sub AuditDocumentColors()
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “開いているドキュメントがありません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 1. 描画の最適化（高速化フラグON）
On Error GoTo ErrorHandler
ActiveWindow.ActiveView.ToScreenSpace ‘ 座標系の整合性を担保
Application.Optimization = True
doc.BeginCommandGroup “Corporate Color Audit”
‘ 2. マスターパレットの初期化（実務ではここを外部ファイル連携に拡張可能）
InitializeMasterPalette
‘ 3. 違反マーキング用レイヤーの準備（既存があれば削除して新規作成）
PrepareViolationLayer doc
‘ 4. 監査カウンタの初期化
ViolationCount = 0
‘ 5. 全ページの走査（アクティブページのみ走査する場合は ActivePage を指定）
Dim pg As Page
For Each pg In doc.Pages
pg.Activate
ScanShapes pg.Shapes
Next pg
‘ 6. 結果表示とクリーンアップ
doc.EndCommandGroup
Application.Optimization = False
ActiveWindow.Refresh
If ViolationCount > 0 Then
MsgBox “監査完了: ” & ViolationCount & ” 箇所のカラー規約違反を検出しました。” & vbCrLf & _
“『” & ViolationLayer.Name & “』レイヤーに赤枠でマークしています。”, vbExclamation, “監査警告”
Else
‘ 違反がなければ空のレイヤーを削除
ViolationLayer.Delete
MsgBox “監査完了: すべてのオブジェクトがコーポレートカラーに準拠しています。”, vbInformation, “監査合格”
End If
Exit Sub
ErrorHandler:
‘ 万が一エラーが発生しても、必ず最適化フラグを戻さないとCorelDRAWがフリーズしたように見える
Application.Optimization = False
If Not doc Is Nothing Then doc.EndCommandGroup
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “ランタイムエラー”
End Sub
‘ =============================================================================
‘ マスターパレットの定義（ガイドライン色の登録）
‘ =============================================================================
Private Sub InitializeMasterPalette()
ReDim MasterPalette(2) ‘ 例として3色を定義
‘ 特色1: PANTONE Reflex Blue C
With MasterPalette(0)
.ColorType = cdrColorSpot
.SpotName = “PANTONE Reflex Blue C”
End With
‘ プロセスカラー1: コーポレート・レッド (C:0 M:100 Y:90 K:0)
With MasterPalette(1)
.ColorType = cdrColorCMYK
.C = 0: .M = 100: .Y = 90: .K = 0
End With
‘ プロセスカラー2: コーポレート・グレー (C:0 M:0 Y:0 K:60)
With MasterPalette(2)
.ColorType = cdrColorCMYK
.C = 0: .M = 0: .Y = 0: .K = 60
End With
End Sub
‘ =============================================================================
‘ 違反マーキングレイヤーのセットアップ
‘ =============================================================================
Private Sub PrepareViolationLayer(ByRef doc As Document)
Dim ly As Layer
For Each ly In doc.ActivePage.Layers
If ly.Name = “Audit_Violations” Then
ly.Delete ‘ 前回のマークをリセット
Exit For
End If
Next ly
‘ 新規作成し、印刷対象外にする（誤って印刷されるのを防ぐ）
Set ViolationLayer = doc.ActivePage.CreateLayer(“Audit_Violations”)
ViolationLayer.Printable = False
ViolationLayer.Color.RGBAssign 255, 0, 0 ‘ レイヤーカラーを赤に
End Sub
‘ =============================================================================
‘ 再帰的シェイプ走査エンジン
‘ =============================================================================
Private Sub ScanShapes(ByRef shps As Shapes)
Dim shp As Shape
For Each shp In shps
‘ 1. ロックされているオブジェクトはスキップするか、一時解除するか（ここではスキップ）
If Not shp.Locked Then
‘ 2. オブジェクトタイプに応じた分岐
Select Case shp.Type
Case cdrGroupShape
‘ グループの場合は内部を再帰走査
ScanShapes shp.Shapes
Case cdrNoShape, cdrSelectionShape, cdrGuidelineShape
‘ 監査対象外のメタオブジェクト
Case Else
‘ 通常のオブジェクトに対するカラー検査
AuditSingleShape shp
End Select
‘ 3. パワークリップ（マスク）の内部を走査
If Not shp.PowerClip Is Nothing Then
ScanShapes shp.PowerClip.Shapes
End If
End If
Next shp
End Sub
‘ =============================================================================
‘ 単一オブジェクトのカラー監査
‘ =============================================================================
Private Sub AuditSingleShape(ByRef shp As Shape)
Dim isFillViolated As Boolean
Dim isOutlineViolated As Boolean
‘ 塗り(Fill)のチェック (塗りつぶしタイプが単一色の場合のみ)
If shp.Fill.Type = cdrUniformFill Then
If Not IsColorAllowed(shp.Fill.UniformColor) Then
isFillViolated = True
End If
End If
‘ 輪郭(Outline)のチェック (輪郭線が存在する場合のみ)
If shp.Outline.Type = cdrOutline Then
If Not IsColorAllowed(shp.Outline.Color) Then
isOutlineViolated = True
End If
End If
‘ どちらかで違反があればハイライトを生成
If isFillViolated Or isOutlineViolated Then
MarkViolation shp
End If
End Sub
‘ =============================================================================
‘ カラー判定ロジック（厳密な値比較）
‘ =============================================================================
Private Function IsColorAllowed(ByRef col As Color) As Boolean
‘ 「色なし」は規約違反としない
If col.IsNone Then
IsColorAllowed = True
Exit Function
End If
Dim i As Long
For i = LBound(MasterPalette) To UBound(MasterPalette)
Dim ref As AllowedColor
ref = MasterPalette(i)
‘ 1. カラータイプの比較
If col.Type = ref.ColorType Then
Select Case col.Type
Case cdrColorSpot
‘ 特色の場合は名前で厳密一致を判定（大文字小文字を区別しない）
If StrComp(col.SpotName, ref.SpotName, vbTextCompare) = 0 Then
IsColorAllowed = True
Exit Function
End If
Case cdrColorCMYK
‘ CMYKは各チャンネルの値を整数比較
If col.CMYKC = ref.C And _
col.CMYKM = ref.M And _
col.CMYKY = ref.Y And _
col.CMYKK = ref.K Then
IsColorAllowed = True
Exit Function
End If
Case cdrColorRGB
‘ RGBの比較
If col.RGBRed = ref.R And _
col.RGBGreen = ref.G And _
col.RGBBlue = ref.B Then
IsColorAllowed = True
Exit Function
End If
End Select
End If
Next i
‘ すべてのマスターカラーに一致しなかった場合
IsColorAllowed = False
End Function
‘ =============================================================================
‘ 違反オブジェクトのハイライト（非破壊マーキング）
‘ =============================================================================
Private Sub MarkViolation(ByRef targetShp As Shape)
Dim x As Double, y As Double, w As Double, h As Double
Dim markerRect As Shape
‘ 違反オブジェクトのバウンディングボックス（位置とサイズ）を取得
targetShp.GetBoundingBox x, y, w, h
‘ 監査レイヤーをアクティブにして、赤枠を描画
ViolationLayer.Activate
Set markerRect = ActivePage.ActiveLayer.CreateRectangle2(x, y, w, h)
‘ マーキング矩形のプロパティ設定
markerRect.Fill.ApplyNoFill
markerRect.Outline.SetProperties Width:=0.05, _
Color:=CreateRGBColor(255, 0, 0) ‘ 極細の赤線
‘ どのオブジェクトが違反したか追跡しやすくするため、オブジェクト名を設定
markerRect.Name = “Violation_Marker_for_” & targetShp.StaticID
ViolationCount = ViolationCount + 1
End Sub
—
4. コードの徹底解説：プロの設計思想を読み解く
このマクロには、VBAによるデスクトップアプリ制御のベストプラクティスが詰め込まれています。重要な設計意図を解説します。
① `StaticID` による非同期追跡の布石
マーキング処理 `MarkViolation` の中で、`markerRect.Name = “Violation_Marker_for_” & targetShp.StaticID` という記述をしています。
CorelDRAWのすべてのオブジェクトには、ドキュメント内で不変のユニークIDである `StaticID` が割り当てられています。これを出力しておくことで、将来的に「違反リスト」をCSVやログウィンドウに出力した際、どのオブジェクトが違反しているかをIDで一発検索・追跡（Trace）できるようになります。
② `BeginCommandGroup` による「一発Undo」
もし、このマクロを実行して50箇所に赤枠が生成されたとします。この一括処理を元に戻したい（Undo）とき、この記述がないと、ユーザーは「Ctrl + Z」を50回連打しなければなりません。
`doc.BeginCommandGroup` と `doc.EndCommandGroup` で処理全体をトランザクション化することで、「Ctrl + Z」を1回押すだけで監査前の状態に完全に戻すことができます。
③ なぜ `CreateRectangle2` なのか？
CorelDRAW VBAには `CreateRectangle` と `CreateRectangle2` が存在します。
前者は `(Left, Top, Right, Bottom)` という4座標を指定するのに対し、後者は `(Left, Top, Width, Height)` を指定します。`Shape.GetBoundingBox` から得られる戻り値は「位置と幅・高さ」であるため、`CreateRectangle2` を使用する方が座標変換の計算ロスを減らし、コードを簡潔に保てます。
—
5. 実務運用の注意点とさらなる拡張
実務でこのスクリプトを運用するにあたり、以下のステップを踏むことでさらに信頼性の高いシステムへと進化させることができます。
1. カラープロファイル（Color Management）の壁
CorelDRAW内でカラー変換（RGBからCMYKなど）が意図せず行われないよう、ドキュメントのカラー管理設定は事前に統一（固定）しておく必要があります。可能であれば、マクロの冒頭で `ActiveDocument.ColorSettings` を検査し、想定外のカラープロファイルが適用されている場合は警告を出す処理を追加すると万全です。
2. データベース（SQL Server / CSV）との連携
上記のコードでは `InitializeMasterPalette` 内に許可色をハードコーディングしていますが、これは企業のブランドガイドラインが更新されるたびにVBAコードを書き換える必要があるため、運用上スマートではありません。
実務でスケールさせるには、社内サーバー上の共有フォルダに配置したCSVファイルや、社内データベース（SQL Server等）から許可色リストを動的に読み込む（ADODBレコードセット等の活用）アーキテクチャにアップグレードすべきです。
‘ 外部CSVからパレットを読み込むイメージ
Private Sub LoadPaletteFromCSV(filePath As String)
‘ ファイル入出力処理を記述し、MasterPalette配列を動的に拡張（ReDim Preserve）する
End Sub
3. 特殊なオブジェクト（テキスト、グラデーション）の取り扱い
提供したコードは「単一色（Uniform Fill）」のみを対象にしていますが、実務では「グラデーション（Fountain Fill）」や「パターン塗り」も存在します。
これらを監査対象に加える場合は、`shp.Fill.Type` が `cdrFountainFill` のときに、グラデーションの各分岐点（ColorBlend）の色をループで検証するロジックを追加します。
—
まとめ：自動化（VBA）がもたらす品質保証
デザインデータのチェックを「職人の熟練の目」に依存しているうちは、いつか必ず重大な事故が起きます。本マクロのような静的解析（Static Analysis）ツールを導入し、「機械的にルールを強制する仕組み」を構築することこそが、真の業務効率化であり、品質保証（QA）の極みです。
このコードをベースに、自社のブランドガイドラインに合わせたカスタマイズを施し、確実でストレスフリーなデータ検収体制を確立してください。
