CorelDRAW VBAを掌握する極限の世界へようこそ。
業務自動化エンジニアのチーフアーキテクトである私から、実務の現場で直面する「カラーミスの絶滅」と「圧倒的なスタイリング自動化」のための実践知を授けよう。
デザインの現場において、クライアントの指定するコーポレートカラー（特色）の適用ミスは、ブランド価値を損なう致命的な人災だ。これを手動のクリックとスポイト作業で担保しようなどというのは、エンジニアの怠慢に他ならない。
今回は、アクティブページ内にあるすべてのシェイプに対し、「一律で線を消去し、指定したCMYK/RGBまたはパレットの特色で塗りつぶす」という、実務で最も需要の高いスタイリング自動化マクロを解説する。
単なるコードのコピペではない。CorelDRAWの内部構造、オブジェクトのライフサイクル、そして「なぜその書き方をしなければバグるのか」というアーキテクトの思考法を叩き込む。
—
1. 初心者が陥る「非効率なコード」と、その破壊
まず、世に溢れる低質なVBAコードを見てほしい。大抵、以下のような記述が見受けられる。
‘ 【悪手】やってはいけない非効率なコード例
Sub BadExample()
Dim s As Shape
For Each s In ActivePage.Shapes
s.Outline.SetNoOutline
s.Fill.UniformColor.CMYKAssign 0, 100, 100, 0 ‘ 赤色にする
Next s
‘ ※これの何が問題か、わかるかね？
このコードには、実務環境において以下の致命的な欠陥がある。
1. グループ化されたシェイプの無視: `ActivePage.Shapes` は、グループ化された内部のシェイプ（子要素）にアクセスできない。表面上の親グループだけが処理され、中のシェイプが取り残される。
2. コンテナやレイヤー構造への無配慮: CorelDRAWは複雑なレイヤー構造を持つ。単なるループでは、ロックされたレイヤーや非表示レイヤーまで巻き込んでエラーを吐く。
3. エラーハンドリングの欠如: 塗りつぶしを持たないオブジェクト（例えば、寸法線やガイドライン、ビットマップなど）に対して無理やり `Fill` プロパティを操作すると、容赦なく「実行時エラー」でマクロがクラッシュする。
プロのエンジニアが書くべきコードは、これらすべての例外と構造的罠を優雅に回避するものでなければならない。
—
2. 堅牢性を極めたプロダクションコード
それでは、実務の現場でそのまま稼働できる、極限まで洗練されたVBAコードを提示しよう。VBAエディタ（`Alt + F11`）を開き、標準モジュールに貼り付けてほしい。
Option Explicit
‘ ==============================================================================
‘ 業務自動化マクロ: アクティブページ内全シェイプの一括スタイリング
‘ 概要: すべてのベクターシェイプの線を消去し、指定のコーポレートカラーで塗りつぶす
‘ ==============================================================================
Sub ApplyCorporateColorToActivePage()
‘ 1. フォーマンス最適化の基本：画面描画とイベントを完全停止する
‘ これを怠るシェイプごとの再描画が発生し、処理速度が10分の1以下に落ちる
EventsEnabled = False
ActiveDocument.BeginCommandGroup “コーポレートカラー一括適用”
On Error GoTo ErrorHandler
Dim targetColor As New Color
‘ 2. 指定カラーの定義（例としてPANTONEなどの特色、または厳密なCMYKを指定）
‘ ここでは確実に再現性のあるCMYK（C:0, M:100, Y:100, K:0 の赤系特色を想定）で定義
targetColor.Type = cscCMYK
targetColor.CMYKAssign 0, 100, 100, 0
‘ ※パレットから指定する場合は targetColor.CopyAssign ActiveDocument.Palette.FindColor(“特色名”) などを使用する
‘ 3. ページ内の全シェイプ（グループ内含む）を再帰的に処理するプロシージャを呼出
Dim processedCount As Long
processedCount = 0
ProcessShapesRecursive ActivePage.Shapes, targetColor, processedCount
‘ 4. 正常終了処理
ActiveDocument.EndCommandGroup
EventsEnabled = True
MsgBox “処理が完了しました。” & vbCrLf & “対象シェイプ数: ” & processedCount & ” 件”, vbInformation, “スタイリング自動化”
Exit Sub
ErrorHandler:
‘ 異常終了時のフェイルセーフ
ActiveDocument.AbortCommandGroup
EventsEnabled = True
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
‘ ==============================================================================
‘ 再帰的シェイプ処理エンジン（グループ化されたオブジェクトを完全に網羅する）
‘ ==============================================================================
Private Sub ProcessShapesRecursive(ByVal shapesCol As Shapes, ByVal col As Color, ByRef count As Long)
Dim sh As Shape
For Each sh in shapesCol
‘ ロックされているオブジェクトや非表示オブジェクトはスキップ
If Not sh.Locked And sh.Visible Then
‘ グループシェイプの場合は、中身を再帰的に叩きに行く
If sh.Type = cdrGroupShape Then
ProcessShapesRecursive sh.Shapes, col, count
‘ パスや長安形、円などのベクターシェイプであるかを判定
ElseIf sh.Type = cdrCurveShape Or sh.Type = cdrRectangleShape _
Or sh.Type = cdrEllipseShape Or sh.Type = cdrPolygonShape _
Or sh.Type = cdrTextShape Then ‘ テキストも対象とする場合
On Error Resume Next ‘ 個別シェイプのプロパティ不一致によるクラッシュを防ぐ
‘ 線の消去
If sh.Outline.Type <> cdrNoOutline Then
sh.Outline.SetNoOutline
End If
‘ 塗りつぶしの適用（単色塗り可能なオブジェクトのみ）
If sh.Fill.Type <> cdrNoFill Then
sh.Fill.ApplyUniformFill col
count = count + 1
End If
On Error GoTo 0 ‘ エラー監視を復元
End If
End If
Next sh
End Sub
—
3. コードのアーキテクチャ解説（なぜこの設計なのか）
このコードには、CorelDRAW VBAを扱う上で絶対に外せない3つの教義が組み込まれている。
① `EventsEnabled = False` による圧倒的パフォーマンス
CorelDRAWは、VBAからシェイプのプロパティを変更するたびに、画面の再描画（UIの更新）とイベントの監視を行おうとする。数百・数千のシェイプを扱うドキュメントにおいて、これをONにしたままループを回すと、PCがフリーズしたかのような重さに陥る。処理の最初に無効化し、終了時に必ず復元する。これがプロの流儀だ。
② `BeginCommandGroup` によるトランザクション管理
「やっぱり今の処理をなかったことにしたい（Ctrl + Z）」という時、このコマンドグループ化がないと、シェイプごとにバラバラの履歴が生成され、Undo（元に戻す）を何十回も押さなければならなくなる。この1行で、「一連の処理を1回のUndoで完璧にロールバックできる」安全なトランザクションが担保される。
③ グループ構造を突破する「再帰処理（Recursion）」
CorelDRAWのグループは「親の中に子が巣食う」ツリー構造をしている。`For Each sh In ActivePage.Shapes` だけでは表層しか舐められない。
`sh.Type = cdrGroupShape` を検知した瞬間に、自身の関数をもう一度呼び出して内部の `sh.Shapes` を掘り下げる。この「再帰的アプローチ」をマスターすれば、どんなに複雑にネストされたレイアウトであっても、一網打尽にコントロール下へ置くことができる。
—
4. 実務・データベース連携への拡張性
今回はハードコードしたCMYK値を適用したが、実務の現場ではこれを外部データと連携させることが多い。
例えば、社内のERPやExcel（CSV）から「本日のキャンペーンカラーコード」を読み込み、自動で `targetColor` に代入する仕組みへと拡張するのは容易だ。
- CSV/INIファイルからの読み込み: `FileSystemObject` を使い、設定ファイルからHEX値やCMYK値を動的に取得する。
- ドキュメントプロパティへの保存: `ActiveDocument.Properties` にカラー情報を埋め込み、テンプレートごとに自動で配色ルールを切り替える。
ここまで設計を突き詰めれば、ヒューマンエラーの余地は完全に排除される。
—
総括
デザインツールを「手動で操作する時代」は終わった。
CorelDRAW VBAの本質を理解し、オブジェクトのライフサイクルと例外を完全に掌握した者だけが、単なる「オペレーター」から「自動化エンジニア」へとステップアップできる。
今回のコードをベースに、あなたの現場のワークフローを極限まで加速させてほしい。妥協なき自動化の追求こそが、真のクリエイティビティを生み出す時間を創出するのだから。
