CorelDRAW VBAを掌握せよ：特定色オブジェクトを瞬時に抽出する「スマートピッカー」の極意
多くのエンジニアがCorelDRAWの自動化に挑み、そして「オブジェクトの再帰的走査によるパフォーマンスの低下」という壁にぶつかって撤退していく。
ドキュメント内に数万のノードを持つ複雑なパスが混在する環境下において、単なる`For Each`ループは自殺行為だ。本稿では、指定したCMYK/RGB値を持つオブジェクトを「非破壊的」かつ「超高速」に抽出・グループ化する、実務に耐えうるアーキテクチャを提示する。
—
1. 探索アルゴリズムの選定：再帰の罠を回避する
CorelDRAWのドキュメント構造は階層的だ。`Layer`の中に`Group`があり、その中にさらに`Group`がある。これを愚直に深さ優先探索（DFS）すると、スタックオーバーフローやメモリの断片化を招く。
我々が採用すべきは、「イテレータによるフラットな走査と、属性比較の先行フィルタリング」だ。
実装の要諦：プロパティアクセスの最小化
オブジェクトのプロパティ（特に`.Fill.UniformColor`）へのアクセスは、COMインターフェースを介した高コストな処理である。比較演算を行う前に、最低限のフィルタリングを行うことが、システム全体のパフォーマンスを左右する。
‘ スマートピッカーのコア・エンジン
Public Sub SelectObjectsByColor(targetC As Double, targetM As Double, targetY As Double, targetK As Double, Optional tolerance As Double = 0.01)
Dim doc As Document: Set doc = ActiveDocument
Dim sr As ShapeRange: Set sr = New ShapeRange
‘ 最適化：描画更新を一時停止して処理速度を向上させる
Optimization = True
On Error GoTo Cleanup
‘ 再帰関数を呼び出し、条件に合致するShapeをShapeRangeに積む
FindShapesRecursive doc.ActivePage.Shapes, sr, targetC, targetM, targetY, targetK, tolerance
If sr.Count > 0 Then
sr.CreateSelection
‘ ここでグループ化を実行
sr.Group
Else
MsgBox “対象となる色を持つオブジェクトは見つかりませんでした。”, vbInformation
End If
Cleanup:
Optimization = False
ActiveWindow.Refresh
End Sub
Private Sub FindShapesRecursive(shapes As Shapes, ByRef sr As ShapeRange, c As Double, m As Double, y As Double, k As Double, tol As Double)
Dim shp As Shape
For Each shp In shapes
‘ グループの場合は再帰呼び出し
If shp.Type = cdrGroupShape Then
FindShapesRecursive shp.Shapes, sr, c, m, y, k, tol
Else
‘ FillTypeが単色(Uniform)であるかを確認してから色比較を行う
If shp.Fill.Type = cdrUniformFill Then
If IsColorMatch(shp.Fill.UniformColor, c, m, y, k, tol) Then
sr.Add shp
End If
End If
End If
Next shp
End Sub
—
2. メモリ管理とレガシー環境への配慮
VBAはガベージコレクションが脆弱だ。特に`ShapeRange`のようなコレクションオブジェクトは、処理が終わるたびに適切にメモリを解放しなければ、大規模な自動化ジョブにおいて`Out of Memory`を引き起こす。
- 明示的Nothingの代入: ループ終了後やスコープ離脱時には必ず`Set = Nothing`を行うこと。
- イベントハンドラの抑制: 大量オブジェクト操作時は、`Application.EventsEnabled = False`を一時的に設定し、CorelDRAWのUI描画イベントを殺すのが定石である。
—
3. システム間連携：Windows APIの活用
さらに一歩進んだ自動化を行うなら、CorelDRAWのVBAを超えて、Windows APIを活用して「プロセスの優先度」を制御すべきだ。
大規模なドキュメントのバッチ処理を行う際、CorelDRAWのCPU占有率を一時的に引き上げることで、処理時間を劇的に短縮できる。
If Win64 Then
Private Declare PtrSafe Function GetCurrentProcess Lib “kernel32” () As LongPtr
Private Declare PtrSafe Function SetPriorityClass Lib “kernel32” (ByVal hProcess As LongPtr, ByVal dwPriorityClass As Long) As Long
End If
Private Const HIGH_PRIORITY_CLASS = &H80
‘ 処理開始時に呼び出し
SetPriorityClass GetCurrentProcess(), HIGH_PRIORITY_CLASS
—
4. チーフアーキテクトからの助言
最後に、プロフェッショナルとして伝えたいことがある。
「コードは動けば良い」というのはアマチュアの思考だ。CorelDRAWのVBAは、ドキュメントの複雑性に比例して不安定化する。
1. バリデーションを怠るな: 色比較の際、`Color.Type`をチェックせずいきなり`Color.CMYKCyan`にアクセスすれば、RGBモードやパレットカラー設定時に例外が発生する。
2. ログを残せ: どのオブジェクトが選択され、どれがスキップされたのか。ファイルログを生成する仕組みを組み込んでおくこと。それが将来のデバッグにおいて君を救う。
このスマートピッカーは、単なるツールではない。君のワークフローにおける「非効率な作業を駆逐するための武器」だ。洗練されたコードは、それ自体がドキュメントであり、設計思想そのものである。
さあ、実装に移れ。CorelDRAWという巨大なキャンバスを、君のロジックで支配するのだ。
