【CorelDRAW VBA極致】ストロークのアウトライン化：プリプレス自動化の「地雷」を回避する真の作法
CorelDRAWの自動化において、ストローク（輪郭線）をオブジェクト（塗り）に変換する操作は、一見単純な `ConvertToCurves` メソッドの呼び出しに見える。しかし、大量のベクターデータ、あるいは複雑なグループ構造が絡み合う実戦現場において、安易な実装はメモリリークや「予期せぬオフセット」という致命的なバグを招く。
今回は、シニアエンジニアとして、この操作を極限まで安定させるためのアーキテクチャを提示する。
—
1. なぜ「単純なループ」が破綻するのか
多くの開発者が陥る罠は、`ActivePage.Shapes.All` を単純にループさせ、個別に `ConvertToCurves` を適用することだ。
しかし、CorelDRAWのドキュメントオブジェクトモデル（DOM）は、オブジェクトが変換されるたびに親コンテナの構造やインデックスを動的に再計算する。この状態でイテレーションを行うと、スタックの破壊や、最悪の場合CorelDRAW本体のクラッシュを誘発する。
極限の知見：
- 深さ優先探索（DFS）の徹底: グループ階層を再帰的にトラバースし、リーフノードから確実に変換せよ。
- 明示的なメモリ解放: `Set` オブジェクトをループ内で生成する場合、必ず `Nothing` での破棄を明示する。VBAのガベージコレクションを待つ余裕など、業務自動化の現場には存在しない。
—
2. 実装コード：堅牢性を担保するアウトライン変換エンジン
以下は、選択されたオブジェクトに対して、再帰的にストロークを変換し、かつ変換後のオブジェクトの属性を厳密に管理する実装の核である。
‘ @brief 選択された全オブジェクトのストロークを再帰的にアウトライン化する
‘ @param shp 処理対象のシェイプ
Public Sub ConvertStrokeRecursively(ByVal shp As Shape)
Dim subShp As Shape
‘ グループ化されている場合は再帰的に潜る
If shp.Type = cdrGroupShape Then
For Each subShp In shp.Shapes
ConvertStrokeRecursively subShp
Next subShp
Else
‘ ストロークがある場合のみ変換を試みる
If shp.Outline.Type <> cdrNoOutline Then
‘ パフォーマンス最適化のため、必要最小限の変換を実行
‘ ConvertToCurves はオブジェクトの参照を返すため、捕捉してリークを防ぐ
Dim convertedShp As Shape
Set convertedShp = shp.ConvertToCurves
‘ 参照の明示的解放
Set convertedShp = Nothing
End If
End If
End Sub
—
3. Windows APIによる「フリーズ防止」の技術
数万個のノードを持つベクターデータを処理する際、CorelDRAWのUIスレッドは完全にロックされる。システム管理者として、この状態を放置するのは悪手だ。`DoEvents` だけで満足してはならない。
Windows APIの `Sleep` を適切に挟み、メッセージキューを強制的にフラッシュさせることで、OSレベルでの「応答なし」を回避する。
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
‘ ループ内に配置し、プロセッサに呼吸をさせる
‘ 100オブジェクトごとにUIスレッドを解放する設計が、大規模バッチの定石
If counter Mod 100 = 0 Then
DoEvents
Sleep 10
End If
—
4. プリプレス運用のための「品質管理」の極意
この自動化を実運用に乗せる際、以下の3点を必ず要件として組み込むこと。
1. 非破壊バックアップの自動生成:
変換前に `Document.SaveAs` で別名保存を行うか、または一時的にレイヤーを複製して作業領域を隔離せよ。元データへの不可逆操作は、システム管理者の最大の敵である。
2. グループ階層の破壊防止:
`ConvertToCurves` は時にグループを解体する挙動を示す。処理後に元のグループ構造を復元、あるいは維持するための「構造保持ロジック」を実装し、レイアウト崩れを防ぐこと。
3. 線幅の下限チェック:
極端に細い線（例：0.001mm）をアウトライン化すると、計算誤差で消失することがある。変換前に `Outline.Width` をチェックし、閾値以下の場合は警告ログを出力するハンドラを設けるのが「プロの仕事」だ。
—
結論：技術の真髄は「制御」にある
CorelDRAW VBAは、一見すればレガシーなスクリプト言語に見える。しかし、その裏側にあるのは、C++ベースの強力なレンダリングエンジンだ。我々エンジニアがやるべきは、このエンジンの挙動を先回りして制御し、メモリの消費と処理の整合性を手綱でコントロールすることに他ならない。
ツールはただ動けばいいのではない。数年後、別のエンジニアがコードを読んだときに「ああ、ここはメモリリークを防ぐためにこう書いたのか」と納得させる、そんな「意志のあるコード」を書くことこそが、伝説への唯一の道である。
