CorelDRAW VBAを掌握せよ：特定色オブジェクトを「一瞬で」捕捉するスマートピッカーの極意
現場のデザイナーが手作業で「この色と同じオブジェクトをすべて選択」するのに何分費やしているか知っているか？ 1分としても、それが1日10回繰り返されれば、年間で数日分の人生をドブに捨てているのと同じだ。
CorelDRAW VBAにおいて、「色による選択」は最も基本的なようでいて、最も深い沼にハマりやすい機能だ。今日は、初心者レベルを脱し、プロの設計者として恥ずかしくない「堅牢で高速なスマートピッカー」の構築法を伝授する。
1. なぜ「力技のループ」が地獄を見るのか
初心者が陥る罠は、`ActivePage.Shapes.All` を回して、一つずつ条件判定をしていくスタイルだ。
これではオブジェクト数が増えるたびに処理時間は線形（あるいは指数関数的）に増大し、複雑なグループ構造やレイヤーが混在したファイルで平気でフリーズする。
プロの鉄則：
- イテレーションの最小化: 不要なオブジェクトを再帰的に巡回しない。
- プロパティアクセスの削減: `Shape.Fill.UniformColor` へのアクセスはコストが高い。最小限の判定でフィルタリングする。
- 選択状態の最適化: `ActiveSelection` は表示負荷が高い。一括操作を行う直前まで選択状態を変更せず、メモリ上の参照（Shapeオブジェクト）を操作せよ。
2. 堅牢なスマートピッカーの設計
特定の色（CMYKなど）を持つオブジェクトを抽出する際、最も注意すべきは「塗り（Fill）」と「輪郭（Outline）」の判定だ。また、グループ化されたオブジェクトがネストしている場合、単純なループでは漏れが生じる。
以下のコードは、実務でそのまま使える、堅牢性を重視したテンプレートだ。
実践：高精度特定色抽出スクリプト
Option Explicit
‘ メインプロシージャ
Public Sub SelectObjectsByColor()
Dim doc As Document
Dim shp As Shape
Dim targetColor As Color
Dim sr As ShapeRange
Set doc = ActiveDocument
Set sr = CreateShapeRange ‘ 抽出用バッファ
‘ 判定したい色の定義（ここではC=100, M=0, Y=0, K=0のシアンを例示）
Set targetColor = CreateCMYKColor(100, 0, 0, 0)
‘ 最適化：描画更新を止めることで処理速度を劇的に向上
Application.Optimization = True
‘ 再帰的に全シェイプをスキャン（ActivePageではなく全レイヤーを対象にする場合）
ProcessLayer doc.ActivePage.Layers, targetColor, sr
‘ 抽出したシェイプを選択状態にする
If sr.Count > 0 Then
sr.CreateSelection
MsgBox sr.Count & ” 個のオブジェクトをグループ化しました。”
‘ 必要に応じてグループ化
‘ sr.Group
Else
MsgBox “対象の色を持つオブジェクトは見つかりませんでした。”
End If
Application.Optimization = False
doc.ActiveWindow.Refresh
End Sub
‘ 再帰的にレイヤーとグループを巡回する関数
Private Sub ProcessLayer(layers As Layers, target As Color, sr As ShapeRange)
Dim lyr As Layer
Dim shp As Shape
For Each lyr In layers
For Each shp In lyr.Shapes
CheckShape shp, target, sr
Next shp
Next lyr
End Sub
‘ 個別判定ロジック
Private Sub CheckShape(shp As Shape, target As Color, sr As ShapeRange)
‘ グループの場合は中身を再帰的にチェック
If shp.Type = cdrGroupShape Then
Dim subShp As Shape
For Each subShp In shp.Shapes
CheckShape subShp, target, sr
Next subShp
Else
‘ 塗りつぶしが単色かつ色が一致するか判定
If shp.Fill.Type = cdrUniformFill Then
If shp.Fill.UniformColor.IsSame(target) Then
sr.Add shp
End If
End If
End If
End Sub
3. プロの現場で生き残るための「注意点」
1. `IsSame` メソッドの信頼性
`Color.IsSame` は非常に強力だが、RGBとCMYKが混在する環境では予期せぬ挙動をすることがある。比較する前に、`Color.ConvertToCMYK` 等でカラースペースを統一する実装を加えておくと、バグの発生率をゼロに近づけられる。
2. `Application.Optimization = True` の魔法
これを忘れるエンジニアは二流だ。VBAは実行中に画面を再描画しようとするため、数千のオブジェクトを触るだけで数秒〜数十秒のロスが生じる。この一行があるだけで、処理速度は10倍以上変わる。
3. ファイル連携とデータベース
もしこのツールを「プリセット管理」として拡張するなら、CMYK値をテキスト（JSONやCSV）で外部保存させろ。ハードコードは修正のたびにコンパイルを要し、保守性を著しく低下させる。`FileSystemObject` を使い、設定ファイルを読み込む設計にすれば、デザインチームの誰でもカラー定義を更新できる最強のツールへと進化する。
最後に：ツールを作るということは「設計」することだ
今回紹介したコードは、あくまで「入り口」だ。
本当に優秀なエンジニアは、これに「エラーハンドリング（予期せぬNullオブジェクト対策）」や「ログ出力」を加え、自分以外の人間が使っても絶対に落ちないシステムに昇華させる。
コードを書くのはPCだが、そのコードが救うのは「現場のデザイナーの無駄な時間」だ。常にその意識を持ち、洗練されたコードを書き続けてほしい。質問があればいつでも来い。君の自動化ライフが劇的に向上することを期待している。
