プリプレスの悪夢を断つ：CorelDRAW VBAによる「ストローク・アウトライン化」完全自動化術
現場のベテランなら一度は経験があるはずだ。
「極細線が印刷で消えた」「拡大縮小で線幅が崩れ、ロゴのバランスが狂った」。
これらは技術的問題ではなく、設計の怠慢だ。CorelDRAWで入稿データを作る際、ストローク（線）をそのまま放置するのは、地雷原を裸足で歩くようなもの。
今日は、数千のオブジェクトを抱える複雑なファイルでも、一瞬で「安全なパス」へ変換する、実務直結のVBAアーキテクチャを伝授する。
—
1. なぜ「ConvertOutlineToCurve」を直感的に使ってはいけないのか
VBAで `Shape.Outline.ConvertToObject` を呼ぶのは簡単だ。だが、何も考えずにループを回すと、以下の地獄が待っている。
- Undoスタックの肥大化: 1オブジェクトごとにUndoログが生成され、メモリが食い尽くされ、挙動が重くなる。
- グループ構造の破壊: 複雑なグルーピングが解除されたり、階層が崩れる。
- 非効率な再描画: 1回の処理ごとにCorelDRAWが画面を更新しようとする。
真のエンジニアは「トランザクション」を管理する。 処理中は画面描画を停止し、Undoを1つのステップとしてパッケージングする。これがプロダクションコードの最低条件だ。
—
2. プロダクション級：ストローク一括変換エンジン
このコードは、選択中の全オブジェクト（グループ内含む）を再帰的にスキャンし、ストロークをパスに変換する。`Optimization` を活用し、圧倒的な速度差を見せつける設計だ。
‘ CorelDRAW VBA: Batch Outline to Object Converter
‘ 制作現場での「予期せぬ線幅変化」を物理的に排除するアーキテクチャ
Public Sub BatchConvertOutlineToCurve()
Dim doc As Document
Set doc = ActiveDocument
‘ 1. パフォーマンス最適化の要：描画停止とUndoの単一化
Optimization = True
doc.BeginCommandGroup “Safe Outline to Curve Conversion”
On Error GoTo Cleanup
‘ 選択範囲がない場合は全ページを対象にするなどの分岐をここに
If doc.SelectionRange.Count = 0 Then
ProcessShapes doc.ActivePage.Shapes
Else
ProcessShapes doc.SelectionRange
End If
Cleanup:
doc.EndCommandGroup
Optimization = False
ActiveWindow.Refresh
If Err.Number <> 0 Then MsgBox “エラー発生: ” & Err.Description
End Sub
‘ 再帰的にグループを解いていく堅牢な設計
Private Sub ProcessShapes(shapes As shapes)
Dim s As Shape
For Each s In shapes
‘ グループ化されている場合は再帰処理
If s.Type = cdrGroupShape Then
ProcessShapes s.Shapes
Else
‘ 線幅が存在する場合のみ変換（0ptの線は無視して高速化）
If s.Outline.Type <> cdrOutlineNone Then
‘ 重要: ConvertToCurvesではなくConvertOutlineToObjectを使用
‘ これによりストロークが独立したオブジェクトとして生成される
s.Outline.ConvertToObject
End If
End If
Next s
End Sub
—
3. 実務で「失敗しない」ための3つの鉄則
① 「塗り」と「線」の分離を意識せよ
`ConvertOutlineToObject` を実行すると、線が「塗り」を持つ独立した閉じたパスに変換される。もし元のオブジェクトが「塗りなし・線あり」だった場合、変換後は「塗りあり・線なし」のオブジェクトになる。これを後続の工程（カッティングプロッターのカットパス抽出など）でどう扱うか、事前に仕様を決めておくことが重要だ。
② Undoスタックの限界を理解する
ファイルが数GBに達する場合、`BeginCommandGroup` を使ってもVBAのメモリ管理が限界を超えることがある。その場合は、`Application.ProcessMessages` を適切に挟むか、ファイル自体を一旦別名保存してプロセスをリフレッシュするバッチ処理を検討すべきだ。
③ データベース連携のヒント
もしこの処理を「大量のファイルに対して一括で行う」自動化ツールにするなら、`VBA` 単体ではなく、`Python` や `C#` でファイルリストを管理し、CorelDRAWをCOMサーバーとして呼び出す構成を推奨する。VBAはあくまで「ドキュメント操作の末端」として使い、制御ロジックは外に出すのが大規模運用の定石である。
—
最後に：ツールを使いこなすのは「設計思想」だ
コードはコピペで動く。だが、このスクリプトが解決するのは単なる「線幅の変換」ではない。「データ作成者のスキル差を、システムが強制的に埋める」という設計思想だ。
オペレーターの経験値に頼るプリプレスは、もう古い。
「線をアウトライン化するのを忘れた」という言い訳を許さない環境を、今すぐこのコードで構築せよ。
次回の記事では、この変換処理と連動して、印刷用のトンボを自動生成し、PDF/X-4で書き出すまでの「完全無人化ワークフロー」について語ろうと思う。準備はいいか。
