CorelDRAW VBAを掌握せよ：ストロークを「面」へ変える、プロのプリプレス自動化術
こんにちは。CorelDRAWの深淵を覗き込み、VBAで自動化の魔法を紡ぐ皆さん。
「拡大したら線の太さが変わってロゴのバランスが崩れた」「印刷データに回したら線が消えていた」。そんな現場の悲鳴を一度は聞いたことがあるはずです。
デザインの整合性を守るための「線のオブジェクト化（アウトライン化）」。これを手作業で何百ものファイルに行うのは、エンジニアの仕事ではありません。今日は、CorelDRAW VBAを使って、「線の太さの呪縛」からデータを解放する、堅牢な自動化スクリプトの書き方を伝授しましょう。
—
1. なぜ「ConvertOutlineToCurve」なのか？
CorelDRAWで線（Outline）を面（Curve）に変換するコマンドは、手動なら「オブジェクト」メニューから行いますよね。VBAでは、これを `ConvertToCurves` メソッドという強力な武器で行います。
しかし、単に命令を送るだけではプロの仕事とは言えません。「グループ化されたオブジェクト」「ロックされたレイヤー」「非表示のオブジェクト」など、現場のデータは常に混沌としています。これらを「いかに安全に、かつ高速に処理するか」が、真の自動化エンジニアの腕の見せ所です。
—
2. 現場でそのまま使える「ストローク変換」コード
まずは、選択したオブジェクトの線をアウトライン化する、シンプルかつ強力なコードを見ていきましょう。
Sub ConvertSelectionToCurves()
‘ エラーハンドリング：予期せぬ停止を防ぐ
On Error GoTo ErrHandler
‘ 処理を高速化するための描画更新停止
Optimization = True
Dim s As Shape
Dim sr As ShapeRange
‘ 現在選択しているオブジェクトを取得
Set sr = ActiveSelectionRange
If sr.Count = 0 Then
MsgBox “対象となるオブジェクトを選択してください。”, vbExclamation
GoTo Cleanup
End If
‘ 選択範囲内の全オブジェクトをループ
For Each s In sr
‘ 線を持っているかチェック（Outline.Type が cdrOutline なものだけ）
If s.Outline.Type <> cdrNoOutline Then
‘ 魔法のコマンド：線をカーブ（面）に変換
s.ConvertToCurves
End If
Next s
MsgBox “変換が完了しました！”, vbInformation
Cleanup:
‘ 描画更新を再開し、メモリを解放
Optimization = False
ActiveWindow.Refresh
Exit Sub
ErrHandler:
MsgBox “エラーが発生しました: ” & Err.Description
Resume Cleanup
End Sub
—
3. コードの「本質」を解説
このコードには、初心者がマクロの記録から脱却するための「3つの極意」が詰まっています。
① `Optimization = True` の重み
CorelDRAWのVBAで最もパフォーマンスを左右するのが描画更新です。これを行わないと、1オブジェクト変換するたびに画面が再描画され、処理時間が数倍に跳ね上がります。プロは必ず `True` で止め、処理後に `False` で再開させます。
② `ShapeRange` の活用
`ActiveSelection` ではなく `ActiveSelectionRange` を使うのが定石です。選択しているものが単一か複数かにかかわらず、常にコレクションとして扱えるため、コードの堅牢性が飛躍的に向上します。
③ `If s.Outline.Type cdrNoOutline` という防波堤
すべてのオブジェクトに無闇に変換命令を送ってはいけません。線を持たないオブジェクトに対して命令を出すと、無駄な負荷がかかります。「線があるときだけ動く」という条件分岐こそが、バグを減らす最短距離です。
—
4. 陥りやすい罠：ここをクリアすれば「一人前」
開発現場でよくある失敗事例を共有します。
- グループ化されたオブジェクト:
上記のコードは選択範囲の「親」しか見ていません。もしグループの中に線が隠れている場合は、`s.Ungroup` を使うか、再帰処理（関数の中で自分自身を呼び出すテクニック）を学ぶ必要があります。まずは今のコードで「バラバラのオブジェクト」を処理することから始めてください。
- テキストオブジェクトの扱い:
テキストはアウトライン化されると文字情報が消え、単なる「図形」になります。誤ってロゴのフォント情報まで失わないよう、条件に `If s.Type <> cdrTextShape Then` を加えるなどの工夫を検討しましょう。
—
最後に：自動化の先にあるもの
このスクリプトをマスターすれば、あなたはもう「手作業で線を太くし忘れて印刷ミスをする」という悪夢から卒業です。
CorelDRAW VBAは、決して古臭い言語ではありません。CorelDRAWの深いAPIを操作する権利は、コードを書く人だけに与えられた特権です。まずはこのコードをコピーして、適当な図形で実験してみてください。
動いた瞬間の感動、それこそがエンジニアの原動力です。もし詰まったら、いつでも戻ってきてください。次は「全ページ・全レイヤーの線を一括変換する」という、より高みを目指す旅へ案内しましょう。
さあ、あなたのPCの中で、デザインの自動化を始めましょう！
