こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたけれど、中身がよくわからない……」という段階を卒業し、いよいよ自分の手でデザインを自在にコントロールしたいと思っているあなたへ。
今回は、CorelDRAW VBAの基本と本質をギュッと凝縮した、実用的なカラーピッカーマクロの作り方を解説します。
テーマは「デザイン内から特定のCMYK値を持つオブジェクトだけを自動選択するマクロ」です。
これが作れるようになると、ドキュメント全体から「特定のブランドカラー」を一瞬で探し出し、一括置換やサイズ変更の準備を整えるといった高度な自動化の第一歩を踏み出せます。
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。さあ、一緒に扉を開けていきましょう！
—
なぜ「色の選択」でVBAの基本がすべて身につくのか？
CorelDRAWでデザインを自動化するとき、私たちが最も頻繁に行う作業は何でしょうか？
それは「オブジェクトを探して、触る（操作する）」ということです。
人間が目視で「あ、この青色はC=100 M=80なんだな」と探して一つずつクリックしていく作業は、ページ数が何十ページもあるカタログや、数千個のパーツがある複雑なイラストレーションでは苦行でしかありません。
VBAを使うと、コンピュータの圧倒的な処理速度で一瞬にして全オブジェクトをスキャンし、条件に合うものだけを「選択状態（Selected）」にすることができます。このプロセスには、CorelDRAW VBAを使いこなすための3つの重要概念がすべて詰まっています。
1. アクティブドキュメントの概念（今、どのキャンバスを操作しているか）
2. 再帰的な走査（あるいは全探索）の概念（グループ化されたオブジェクトも含めてどう探すか）
3. プロパティの判定と操作（オブジェクトの色をどうやって読み取り、どう選択するか）
これらを順番に紐解いていきましょう。
—
実装コード：指定したCMYKカラーを選択するマクロ
まずは、開発環境（VBAエディタ：`Alt + F11`）を開き、標準モジュールに以下のコードを貼り付けてみてください。
Sub SelectSpecificCMYKShapes()
‘ ==========================================
‘ 【テーマ】指定したCMYK値を持つオブジェクトの自動選択
‘ ==========================================
Dim srTarget As ShapeRange
Set srTarget = New ShapeRange
‘ 探したい対象のCMYK値を定義（例：シアン100、マゼンタ0、イエロー0、ブラック0）
Dim targetC As Long, targetM As Long, targetY As Long, targetK As Long
targetC = 100
targetM = 0
targetY = 0
targetK = 0
‘ ドキュメントが開かれているかチェック
If ActiveDocument Is Nothing Then
MsgBox “アクティブなドキュメントがありません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 画面のチラつきを防ぎ、処理速度を爆発的に上げるための呪文
ActiveDocument.Optimization = True
EventsEnabled = False
On Error GoTo ErrorHandler ‘ エラー時のフック
‘ ドキュメント内の全シェイプを走査する（レイヤーやグループ内も考慮）
Dim sh As Shape
For Each sh In ActiveDocument.ActivePage.Shapes
‘ シェイプが塗りつぶしを持っているか、かつ種類が何かを判定
If sh.Fill.Type = cdrUniformFill Then
‘ 塗りつぶしのカラーモデルがCMYKかどうかを確認
If sh.Fill.Color.Type = cdrColorCMYK Then
‘ 許容誤差なしで厳密にCMYK値を比較
If sh.Fill.Color.CMYKCyan = targetC And _
sh.Fill.Color.CMYKMagenta = targetM Then ‘ ※簡略化のためCとMを代表チェック
‘ 条件に一致したシェイプをコレクションに追加
srTarget.Add sh
End If
End If
End If
Next sh
‘ 見つかったシェイプを一括して選択状態にする
If srTarget.Count > 0 Then
srTarget.CreateSelection
MsgBox srTarget.Count & ” 個のオブジェクトを選択しました！”, vbInformation, “完了”
Else
MsgBox “指定された色のオブジェクトは見つかりませんでした。”, vbExclamation, “結果”
End If
ErrorHandler:
‘ 処理最適化のフラグを必ず元に戻す（これ重要！）
ActiveDocument.Optimization = False
EventsEnabled = True
If Err.Number <> 0 Then
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
—
コードの核心を読み解く：プロの着眼点
初心者のうちは、「動けばいいや」と思いがちですが、チーフアーキテクトとして、このコードの“美しいデザイン”についていくつかのポイントを解説しておきます。
1. `Optimization = True` というプロフェッショナルの作法
CorelDRAWは非常にリッチなグラフィックエンジンを持っているため、VBAからオブジェクトを1つずつ触るたびに「画面の再描画（プレビューの更新）」を行おうとします。これが処理を劇的に遅くする原因です。
処理の最初に `ActiveDocument.Optimization = True` を宣言し、最後に `False` に戻す。この一手間で、大規模データでの実行速度が何倍も変わります。プログラミングにおける基本にして極意です。
2. `ShapeRange` を使ったスマートな選択
「見つかるたびに画面上で選択状態を変える」というコードを書く初心者が多いのですが、これは御法度です。描画負荷が高くなります。
代わりに、`ShapeRange` という「一時的な入れ物（配列のようなもの）」を準備し、条件に合うものをどんどん放り込んでいきます。最後に `srTarget.CreateSelection` とやることで、一撃でスマートに全選択できます。オブジェクトのライフサイクルを意識した美しい書き方です。
3. オブジェクトの構造チェック (`Fill.Type`)
CorelDRAWの中には、テキスト、線（Outline）、ビットマップ、グループなど、さまざまなオブジェクトが存在します。
今回は「単色で塗りつぶされたシェイプ」に絞るために、`sh.Fill.Type = cdrUniformFill` で絞り込んでから色をチェックしています。このガードを忘れると、「色を持たないオブジェクト」を判定しようとした瞬間にVBAがエラーで強制終了してしまいます。
—
陥りやすい罠とエラー回避のコツ
現場でこのマクロを使い始めると、いくつかの「壁」にぶつかります。先回りして解決策をお伝えしましょう。
トラブル1：「グループ化された図形」が選択されない？
上記のコードはシンプルにするため、アクティブページの直下にあるシェイプを走査しています。もしオブジェクトが「グループ（Group）」の内部に隠れている場合、このままでは見つかりません。
本格的な業務ツールにする場合は、再帰関数（自分自身を呼び出す関数）を使ってグループの深層まで潜っていくロジックが必要になります。まずは「グループ化を解除した状態」でテストすることをお勧めします。
トラブル2：CMYKの微妙な数値のズレ
デザイナーが作成したデータでは、同じ「黒」に見えても `C=0, M=0, Y=0, K=100` のものと、リッチブラックの `C=40, M=30, Y=30, K=100` が混在していることがあります。
もし「完全一致」でヒットしない場合は、条件式に許容範囲（例: 誤差±5以内など）を設けるか、デバッグ用にあらかじめ `Debug.Print sh.Fill.Color.CMYKCyan` などをイミディエイトウインドウに出力して、実際の値を確認する癖をつけましょう。
—
おわりに
お疲れ様でした！
今回作成したカラーピッカーマクロは、単なる便利ツールではありません。「CorelDRAWのドキュメント構造をプログラムで理解し、自在に操る」ための基礎がすべて詰まった宝箱のようなコードです。
ここをクリアできれば、次は「選択したオブジェクトの色を別のCMYKに一括置換するマクロ」や、「特定の色の面積を計算するマクロ」など、あなたの業務を劇的に効率化するオリジナルツールの開発へステップアップできます。
デザインとコードの融合を楽しみながら、ぜひ日々のワークフローをハックしていってください。それでは、次回の高度な自動化の世界でお会いしましょう！
