CorelDRAW VBAの深淵：数千のパスを支配する「角丸一括処理」の極意
CorelDRAWの標準機能である「フィレット／スカラップ／面取り」ドッカーは、手作業には適しているが、数千のアイコンや複雑なUIコンポーネントを扱うプロフェッショナルの現場では、あまりにも脆弱だ。UIの解像度変更に伴う一括調整や、クライアントの気まぐれな「半径変更」に追従できるのは、VBAで構築された自動化パイプラインだけである。
本稿では、単なるオブジェクト操作の域を超え、メモリ管理とプロセッサの挙動までを考慮した「角丸一括適用」の極限実装を解説する。
—
1. なぜ「標準機能」では限界があるのか
CorelDRAWのオブジェクトモデルにおける `Effect` オブジェクトは、適用するたびにメモリを消費し、Undoスタックを肥大化させる。数千のオブジェクトに対して闇雲にループを回せば、VBAのホストプロセスは容易にスタックオーバーフローやメモリリークを引き起こす。
我々が目指すべきは、「最小限のDOM操作」と「トランザクションの適切な制御」である。
—
2. 実装の心臓部：最適化されたフィレット処理
以下のコードは、選択されたすべてのパスオブジェクトに対し、指定半径でフィレットを適用する実装だ。重要なのは、`Optimization` 属性を切り替え、描画更新を抑制することである。
‘ 伝説的アーキテクトによる角丸一括適用ルーチン
Public Sub BatchApplyFillet(ByVal radius As Double)
Dim sr As ShapeRange
Dim s As Shape
‘ 1. 描画更新の無効化：パフォーマンス向上に不可欠
Optimization = True
ActiveDocument.BeginCommandGroup “Batch Fillet Process”
Set sr = ActiveSelectionRange
‘ 2. エラーハンドリングとメモリ保護
On Error GoTo Cleanup
For Each s In sr
‘ カーブオブジェクトのみを対象に選別
If s.Type = cdrCurveShape Then
‘ フィレット操作はノード単位ではなく、Effect層で管理する
‘ コンテキストに応じてFitFilletを使う
s.ApplyFillet radius, cdrFillet, cdrUnitsInches ‘ 必要に応じて単位系を調整
End If
Next s
Cleanup:
ActiveDocument.EndCommandGroup
Optimization = False
ActiveWindow.Refresh
‘ 3. オブジェクトの明示的解放（VBAのGCは信用するな）
Set sr = Nothing
Set s = Nothing
End Sub
技術的な極意：
- Optimization = True: これを忘れると、1オブジェクトごとに画面が再描画され、処理時間は指数関数的に増大する。
- CommandGroup: これをラップすることで、数千の操作を「一つのUndo単位」にまとめ、作業履歴の爆発を防ぐ。
- 型定義の徹底: `Variant` はメモリの無駄。常に `Shape`, `ShapeRange` を明示的に型指定し、ポインタの参照効率を最大化する。
—
3. レガシー環境とWindows APIによる拡張
もし、標準の `ApplyFillet` メソッドが特定の複雑なパス形状で失敗する（トポロジーエラーを起こす）場合は、Windows APIの `SendMessage` を使用してドッカーの挙動を直接叩くという荒技もある。
しかし、シニアエンジニアとして推奨するのは、「パスの頂点情報を直接計算し、`Curve` オブジェクトの `Nodes` コレクションを直接操作する」アプローチだ。
‘ ノードを直接操作する極限手法（概略）
‘ 頂点間のベクトルを計算し、円弧を挿入することでフィレットを自作する
‘ これにより、CorelDRAWのバグを回避し、完全な制御が可能になる
—
4. プロフェッショナルへの提言：運用の自動化
このマクロを実務に組み込む際は、以下のパイプラインを構築せよ。
1. 設定ファイルの分離: 半径値はVBAコード内にハードコードせず、外部のINIファイルやJSONから読み込ませる。これにより、デザインシステムの変更にビルドなしで対応できる。
2. ログ記録: 処理に失敗したオブジェクトを特定するため、失敗した `s.StaticID` をテキストログに出力する仕組みを必ず実装すること。
3. システム連携: PythonやNode.js等で作成したアセット管理システムと連携し、CLIからVBAを叩く「ヘッドレスCorelDRAW」環境を構築する。
結びに代えて
自動化とは、単にコードを書くことではない。「人間がやらなくてもいい作業」を物理的に消去し、クリエイティブの本質に時間を使わせるための崇高なエンジニアリングである。
CorelDRAW VBAはレガシーと言われることもあるが、その内部にあるDOMは驚くほど強力だ。オブジェクトのライフサイクルを理解し、メモリを支配する者だけが、この巨大なグラフィックエンジンを意のままに操ることができる。
諸君、コードを書け。そして、手作業という名の泥沼から自らを解放せよ。
