CorelDRAW VBAを掌握する極限の知見
【実務直結】散らかったベクター属性を秒速で初期化する「クリーンアップ・エンジン」の設計
業務でCorelDRAWを扱っていると、外部からインポートしたデータや、幾度もの修正を経てカオス状態と化したデザインデータに直面することがある。
「線の太さがバラバラ」「不要なカラーパレットの塗りが残っている」「アウトライン化の過程で属性が複雑に絡み合っている」――。
これらをデザイナーが手作業で1つずつ「塗りなし・線なし（あるいはデフォルト）」に戻していく作業は、まさに時間の無駄であり、ヒューマンエラーの温床だ。
今回は、CorelDRAW VBAのオブジェクトモデルの挙動、特に「プロパティ代入の正しい作法」と「パフォーマンスを最大化するイテレーション（反復処理）」に焦点を当て、選択した複数のベクターオブジェクトの塗りと線を一括で初期化する、実務投入レベルのクリーンアップ・スクリプトを授けよう。
—
1. なぜ「適当なプロパティ操作」は現場で破綻するのか？
初心者がやりがちなコードとして、次のような書き方がある。
‘ 【アンチパターン】やってはいけない愚行
Dim s As Shape
For Each s In ActiveSelection.Shapes
s.Fill.ApplyNoFill
s.Outline.SetNoOutline
Next s
一見、これで動くように見える。しかし、CorelDRAW VBAのアーキテクチャを理解しているエンジニアなら、このコードを見ただけで冷や汗をかくはずだ。理由は主に3つある。
1. グループ化・複合パスへの耐性の欠如
`ActiveSelection.Shapes` は、トップレベルのシェイプしか取得しない。もし選択範囲の中に「グループ化されたオブジェクト」や「ブレンド」「コンパウンドパス」が含まれていた場合、内側のシェイプの属性が取り残される。
2. エラーハンドリングの欠如
ビットマップ画像やテキストフレームなど、「塗りや線を持たない特殊なオブジェクト」に対して `ApplyNoFill` や `Outline.SetNoOutline` を強制実行すると、実行時エラー（ランタイムエラー）でマクロがクラッシュする。
3. 画面描画のチラつきによるパフォーマンス低下
ループのたびにCorelDRAWの画面レンダリングが走ると、数百のオブジェクトを処理するだけで数秒の無駄な待ち時間が発生する。
プロの現場で求められるのは、「どんなゴミデータが選択されていおうとも、静かに、高速に、確実に対象を初期化する堅牢性」である。
—
2. 堅牢なクリーンアップ・エンジンの設計思想
今回のツールを構築するにあたり、以下の3つの鉄則をアーキテクチャに組み込む。
- 再帰的走査（Recursive Processing）：単一シェイプだけでなく、グループ（`cdrGroupShape`）の内部構造まで潜り込んで属性を剥ぎ取る。
- オブジェクトタイプの事前判定（Type Guard）：処理不可能なオブジェクト（ガイドラインやレイヤー情報など）を安全にスルーする。
- 画面描画の完全ロック（Optimization）：`Optimization = True` を宣言し、処理速度を限界まで引き上げる。
—
3. 【コピペ即実戦】プロダクション・VBAコード
以下のコードをCorelDRAWのVBAエディタ（Alt + F11）の標準モジュールに貼り付けて実行してほしい。実務でそのまま使える完成形のコードだ。
Option Explicit
‘ ==============================================================================
‘ 処理名: 選択ベクターオブジェクト属性一括クリア・エンジン
‘ 概要 : 選択中のオブジェクト（グループ内含む）の塗りと線をデフォルトに初期化
‘ 開発 : チーフアーキテクト
‘ ==============================================================================
Sub ClearAllVectorStyles()
‘ 1. 事前チェック：オブジェクトが選択されているか
If ActiveSelection.Shapes.Count = 0 Then
MsgBox “初期化するオブジェクトが選択されていません。”, vbExclamation, “クリーンアップ・エラー”
Exit Sub
End If
‘ 2. パフォーマンス最適化の開始（画面描画とイベントを停止）
EventsEnabled = False
ActiveDocument.BeginCommandGroup “属性一括クリア”
On Error GoTo ErrorHandler
Dim processedCount As Long
processedCount = 0
‘ 3. メイン処理のキック（選択範囲を再帰的に走査）
ProcessShapesRecursive ActiveSelection.Shapes, processedCount
‘ 4. 終了処理
ActiveDocument.EndCommandGroup
EventsEnabled = True
ActiveWindow.Refresh
‘ 完了通知
MsgBox “クリーンアップが完了しました。” & vbCrLf & _
“処理オブジェクト数: ” & processedCount & ” 件”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常終了時の安全弁
EventsEnabled = True
ActiveDocument.EndCommandGroup
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ ==============================================================================
‘ 関数名: ProcessShapesRecursive
‘ 概要 : シェイプコレクションを再帰的に巡回し、塗りと線を初期化する
‘ ==============================================================================
Private Sub ProcessShapesRecursive(ByVal shapesCol As Shapes, ByRef count As Long)
Dim sh As Shape
Dim i As Long
‘ コレクションを逆順でループ（削除や構造変化に強い安全なイテレーション）
For i = shapesCol.Count To 1 Step -1
Set sh = shapesCol(i)
‘ オブジェクトの種類に応じた分岐
Select Case sh.Type
Case cdrGroupShape
‘ グループ化されている場合は、内部のシェイプ群を再帰呼び出し
ProcessShapesRecursive sh.Shapes, count
Case cdrCurveShape, cdrEllipseShape, cdrRectangleShape, cdrPolygonShape
‘ ベクター系基本図形の場合：属性を初期化
Call ResetShapeAttributes(sh)
count = count + 1
Case Else
‘ その他のオブジェクト（テキストやアートistic等）で
‘ 属性変更が安全なものがあればここでハンドリング
‘ 今回は安全のため、ベクターカーブと基本図形に限定
On Error Resume Next
Call ResetShapeAttributes(sh)
If Err.Number = 0 Then count = count + 1
On Error GoTo 0
End Select
Next i
End Sub
‘ ==============================================================================
‘ サブルーチン名: ResetShapeAttributes
‘ 概要 : 個別のシェイプに対して「塗りなし・デフォルト線」を適用
‘ ==============================================================================
Private Sub ResetShapeAttributes(ByVal sh As Shape)
‘ 塗りを「なし（No Fill）」に設定
If Not sh.Fill Is Nothing Then
sh.Fill.ApplyNoFill
End If
‘ 線を「デフォルト（極細またはなし）」に設定
‘ ここでは実務に合わせて「線なし (SetNoOutline)」または「細線」を選択
If Not sh.Outline Is Nothing Then
sh.Outline.SetNoOutline
‘ ※もし「黒の極細線」に戻したい場合は以下のように記述します
‘ sh.Outline.Width = 0.003 ‘ インチ単位等
‘ sh.Outline.Color.RGBAXColor.Assign 0, 0, 0, 100
End If
End Sub
—
4. コードのキモ：プロが解説する実装のポイント
① コレクションの「逆順ループ」 (`Step -1`)
オブジェクトの削除や構造変更を伴う処理、あるいはネストしたグループを扱う際、順方向（`1 To Count`）でループを回すとインデックスのズレによるバグを引き起こしやすい。コレクションの操作は常に「末尾から先頭へ（`Count To 1 Step -1`）」回すのがプロの鉄則である。
② `EventsEnabled = False` による劇的な速度改善
数百、数千のオブジェクトを一括処理する際、CorelDRAWはデフォルトで「1つ処理するごとに画面を再描画」しようとする。これが重いデータの処理時にフリーズしたような挙動になる原因だ。
スクリプトの冒頭で描画イベントを止め、最後に一括で `ActiveWindow.Refresh` を呼ぶことで、処理速度を体感で10倍以上に跳ね上げることができる。
③ トランザクション管理 (`BeginCommandGroup`)
万が一の誤作動や、処理途中でキャンセルしたくなった場合、`ActiveDocument.BeginCommandGroup` と `EndCommandGroup` で挟んでおけば、Ctrl + Z（元に戻す）の1回でマクロ実行前の状態に完全ロールバックできる。実務ツールにおいて、この「逃げ道」を用意しないのは設計失格と言っていい。
—
おわりに：業務自動化のネクストステージへ
今回紹介したクリーンアップ・エンジンは、単なる「スタイリングの初期化」にとどまらない。これをベースにして、例えば「特定のレイヤーにある全オブジェクトの色を強制的にK100%に置き換える」「特定の条件を満たさないパスを自動削除する」といった派生ツールへと拡張していくことができる。
散らかったデータとの格闘に費やしていた毎日の数分を、クリエイティブな思考の時間へと換えてほしい。CorelDRAW VBAを掌握した者だけが辿り着ける快適な自動化の世界へ、あなたを歓迎する。
