【入門編】【中級者向け】大量のベクターイラストレーションのストローク（線）を一括してアウトライン（オブジェクト）に変換するマクロ – CorelDRAW VBA解析バイブル

【CorelDRAW VBA】入稿前の最終兵器！大量の線幅をアウトライン化する極限マクロ

CorelDRAW VBAの世界へようこそ！

皆さん、DTPや印刷業界でデザインをされている方なら、一度は経験したことがあるのではないでしょうか？「入稿データ、線の太さが変わっちゃったんだけど…」「拡大縮小したら、線が意図しない太さになった！」といった悲劇。

今回は、そんなデザイナーの頭痛の種を根本から解消する、CorelDRAW VBAの強力なマクロをご紹介します。ドキュメント内のすべてのストローク（線）を一括でアウトライン（オブジェクト）に変換し、拡大縮小時も完璧なデザイン形状を保つための「極限の知見」を、優しく、そして深く解説していきますね。

このマクロをマスターすれば、CorelDRAW VBAの基本的なオブジェクト操作、コレクションの巡回、そしてパフォーマンスを意識したコードの書き方がバッチリ身につきます。さあ、一緒にCorelDRAW VBAの扉を開きましょう！

—

なぜ「線をアウトライン化」するのか？ – デザイン品質の要諦

まず、なぜ線のアウトライン化がそこまで重要なのか、その本質からお話ししましょう。

CorelDRAWで描かれた「線」には、大きく分けて2つの状態があります。

1. ストローク（線）: `Shape`オブジェクトの`Outline`プロパティで定義される「線の太さ」を持ったパス。
2. アウトライン（オブジェクト）: 線が持っていた太さの情報が、そのまま「塗り」を持った図形（パスの集合体）に変換された状態。

この違いが、入稿データに大きな影響を与えるんです。

ストロークの挙動と入稿時のリスク

通常、CorelDRAWで描かれる線は「ストローク」です。このストロークは、拡大縮小時に以下のような挙動を示します。

「オブジェクトに合わせて拡大縮小」がオンの場合: 線幅もオブジェクトの拡大率に合わせて変化します。
「オブジェクトに合わせて拡大縮小」がオフの場合: 線幅は常に同じ太さを保ちます。つまり、オブジェクトを拡大しても線が細く見え、縮小しても線が太く見えてしまうことがあります。

特に困るのが、異なる環境での表示や印刷です。入稿先のDTP環境やプリンタードライバーによっては、線の解釈が異なり、意図しない線幅で出力されてしまうリスクが潜んでいます。せっかく緻密にデザインしたイラストレーションも、線幅が変わってしまっては台無しですよね。

そこで登場するのが「線をアウトライン化する」という処理です。これにより、線はもはや「線の太さ」という情報を持つパスではなく、太さ自体が図形の一部として固定されます。こうすることで、どの環境で拡大縮小しても、線の見た目が一切変わることなく、デザイン通りの品質が保証されるのです。

CorelDRAW VBAの基礎の基礎 – オブジェクトモデルとの対話

CorelDRAW VBAを扱う上で、最も大切なのが「オブジェクトモデル」の理解です。CorelDRAWのすべての要素は「オブジェクト」として存在し、それらは階層構造を成しています。私たちがマクロでやりたいことは、このオブジェクトたちに指示を出すことなんです。

イメージとしては、こんな感じです。

Application (CorelDRAWアプリケーション全体)
└─ ActiveDocument (現在開いているドキュメント)
├─ Pages (ドキュメント内の全ページ)
│ └─ Page (個々のページ)
│ └─ Shapes (そのページ内の全シェイプ)
│ └─ Shape (個々の図形、テキスト、線など)
│ └─ Outline (線の情報)
└─ …その他のコレクションやプロパティ

今回のマクロでは、主に以下のオブジェクトと対話します。

`Application`: CorelDRAWアプリケーションそのもの。
`ActiveDocument`: 現在アクティブなドキュメント。
`Pages`: ドキュメント内のページを集めた「コレクション」。
`Page`: 個々のページ。
`Shapes`: ページ内のすべての図形（シェイプ）を集めた「コレクション」。
`Shape`: 図形や線、テキストなどの個々のオブジェクト。これが今回の主役です。
`Outline`: `Shape`オブジェクトが「線」である場合に持っている、線に関する情報（太さ、色、スタイルなど）を扱うオブジェクト。

これらのオブジェクトを`For Each`ループで巡回し、`If`文で条件を判定しながら、目的の処理 (`ConvertToObject`) を実行していきます。

【実践コード】線をアウトライン化するマクロの構築

さあ、いよいよ実践です。まずは、マクロの全体像をご覧ください。

‘——————————————————————————-
‘ CorelDRAW VBA: 大量のストローク（線）を一括アウトライン化するマクロ
‘ 目的: 拡大縮小時の線幅変動を防ぐため、ドキュメント内のすべての線をアウトラインオブジェクトに変換
‘ 対象: CorelDRAW X7以降 (Outline.ConvertToObject メソッドの仕様に基づく)
‘ 難易度: 中級者向け
‘——————————————————————————-
Sub OutlineAllStrokes()

‘ 処理開始時のパフォーマンス最適化
‘ 画面更新を停止し、処理速度を向上させます。
‘ CorelDRAWの描画処理はVBA実行中に大きなオーバーヘッドとなるため、必ず設定します。
Application.ScreenUpdating = False
‘ CorelDRAWの「元に戻す」情報の記録を一時的に停止し、パフォーマンスを向上させます。
‘ 大量のオブジェクトを扱う場合に特に有効です。
Application.Optimization = True

‘ 変数宣言
‘ CorelDRAWオブジェクトは特定の型で宣言することで、コードの可読性と実行速度が向上します。
Dim doc As Document ‘ 現在アクティブなドキュメント
Dim pag As Page ‘ 各ページを格納する変数
Dim shp As Shape ‘ 各シェイプを格納する変数
Dim outlineShape As Shape ‘ アウトライン化された線が格納される新しいシェイプ

‘ 現在アクティブなドキュメントを取得
‘ これがVBAからCorelDRAWの操作を始める起点となります。
Set doc = ActiveDocument

‘ ユーザーへの処理開始メッセージ
‘ 処理に時間がかかる場合があるため、ユーザーに状況を知らせることは重要です。
‘ VBAのメッセージボックスは、デバッグ用途にも使えます。
MsgBox “ドキュメント内のすべてのストロークをアウトライン化します。”, vbInformation, “処理開始”

‘ 大量処理を行う際は、Undo（元に戻す）操作を一つのグループにまとめることが推奨されます。
‘ これにより、万が一問題が発生した場合でも一括で元に戻すことが可能になります。
‘ また、CorelDRAWの内部処理の効率化にも繋がります。
doc.BeginCommandGroup “すべての線をアウトライン化”

‘ ドキュメント内のすべてのページを巡回します
For Each pag In doc.Pages
‘ 各ページ内のすべてのシェイプを巡回します
‘ For Eachループはコレクション内のすべての要素を順に処理するVBAの強力な構文です。
For Each shp In pag.Shapes
‘ シェイプが線（ストローク）であるか、そしてその線が実際に線幅を持つ通常の線であるかを確認します。
‘ cdrLineShape: シェイプのタイプが線であるかを判定します。
‘ cdrOutlineTypeLine: 線の種類が、太さを持つ通常の線（ヘアラインなどではない）であるかを判定します。
‘ これがないと、塗りだけのオブジェクトやテキストなど、線を持たないものまでOutlineプロパティを参照しようとしてエラーになる可能性があります。
If shp.Type = cdrLineShape And shp.Outline.Type = cdrOutlineTypeLine Then
‘ 線の太さが0（ヘアライン）でないことを確認します。
‘ 0幅の線をアウトライン化しても意味がないため、無駄な処理を省きます。
If shp.Outline.Width > 0 Then
‘ ここが今回のマクロの核心です。
‘ Outline.ConvertToObject メソッドを呼び出すことで、線がアウトライン化されます。
‘ このメソッドは、元の線オブジェクトはそのままに、新しいアウトライン化されたシェイプを生成し、それを返します。
‘ そのため、新しいシェイプを変数に格納しておく必要があります。
Set outlineShape = shp.Outline.ConvertToObject

‘ 【重要】元の線オブジェクトを削除するかどうかは、プロジェクトの要件によります。
‘ 入稿前処理では通常、元の線は不要なので削除することが多いです。
‘ 必要であれば、この行のコメントアウトを外してください。
‘ shp.Delete
End If
End If
‘ 変数を解放し、メモリ使用量を最適化します。
‘ 大量のオブジェクトをループ内で扱う場合、参照が残り続けるとメモリリークやパフォーマンス低下の原因になります。
Set shp = Nothing
Next shp
Set pag = Nothing ‘ ページオブジェクトも解放
Next pag

‘ Undoグループを終了します。
doc.EndCommandGroup

‘ 処理終了後のパフォーマンス設定を元に戻します。
Application.Optimization = False
Application.ScreenUpdating = True

‘ ユーザーへの処理完了メッセージ
MsgBox “すべてのストロークのアウトライン化が完了しました！”, vbInformation, “処理完了”

‘ ドキュメントとアプリケーションオブジェクトも解放
Set doc = Nothing

End Sub

マクロの準備と実行方法

1. CorelDRAWを開きます。
2. `Alt + F11`キーを押して、VBAエディタ（Microsoft Visual Basic for Applications）を開きます。
3. プロジェクトエクスプローラーで、現在開いているドキュメントの「VBAProject (ファイル名)」の下にある「Modules」を右クリックし、「挿入」→「標準モジュール」を選択します。
4. 開いたモジュールウィンドウに上記のコードをコピー＆ペーストします。
5. VBAエディタのツールバーから「実行」ボタン（▶アイコン）をクリックするか、`F5`キーを押してマクロを実行します。

—

コード解説：一つ一つの命令に魂を込める

それでは、上記のコードをステップバイステップで、その裏側にあるCorelDRAW VBAの「魂」を解説していきましょう。

`Application.ScreenUpdating = False` と `Application.Optimization = True`

マクロの冒頭で、いきなりCorelDRAWのパフォーマンス設定をいじっていますね。これらは、大量のオブジェクトを処理する際に必須とも言える設定です。

`Application.ScreenUpdating = False`: CorelDRAWの画面描画を一時的に停止します。CorelDRAWはオブジェクトが変更されるたびに画面を再描画しようとしますが、これがVBAの処理速度を著しく低下させます。この設定で、マクロ実行中は画面が更新されなくなり、処理が劇的に速くなります。処理の最後に`True`に戻すのを忘れないでください。
`Application.Optimization = True`: CorelDRAWの内部的な最適化機能（主にUndo情報の記録）を一時的に停止します。これも大量のオブジェクト操作で発生するオーバーヘッドを削減し、処理速度を向上させます。`False`に戻すのを忘れずに。

変数宣言 (`Dim`) の重要性

Dim doc As Document
Dim pag As Page
Dim shp As Shape
Dim outlineShape As Shape

VBAでは変数を`Dim`キーワードで宣言します。特にCorelDRAWオブジェクトを扱う場合、`As Document`や`As Shape`のように明示的に型を指定することが極めて重要です。

可読性: コードを読んだ人が、その変数が何を表しているのか一目で理解できます。
オートコンプリート: VBAエディタが、その型のオブジェクトが持つプロパティやメソッドを候補として表示してくれるようになります。これは開発効率を大きく高めます。
パフォーマンス: VBAは型が指定されていない変数（`Variant`型として扱われる）を処理する際に、型の特定に余分な処理時間を要します。明示的な型指定は、このオーバーヘッドをなくし、コードの実行速度を向上させます。

`Set doc = ActiveDocument`

現在開いているCorelDRAWドキュメントを`doc`変数にセットしています。`Set`キーワードは、オブジェクト変数を代入する際に必ず使用します。

`doc.BeginCommandGroup “すべての線をアウトライン化”` / `doc.EndCommandGroup`

これはUndoグループを設定する命令です。マクロ内で多くの変更を加える場合、通常はそれぞれの操作がCorelDRAWの「元に戻す」履歴に個別に記録されます。しかし、この`BeginCommandGroup`と`EndCommandGroup`で囲むことで、マクロ内のすべての変更が単一の「元に戻す」操作としてまとめられます。

これにより、ユーザーがマクロ実行後に「やっぱり元に戻したい」と思ったときに、一発でマクロ実行前の状態に戻すことができ、ユーザーエクスペリエンスが格段に向上します。また、CorelDRAWの内部処理の効率化にも寄与します。

`For Each pag In doc.Pages` と `For Each shp In pag.Shapes`

`For Each`ループは、コレクション内のすべての要素を順番に処理するための、VBAで最もよく使われる強力な構文の一つです。

`doc.Pages`: ドキュメント内のすべてのページを集めたコレクションです。
`pag.Shapes`: 各ページ(`pag`)内のすべての図形（シェイプ）を集めたコレクションです。

この二重ループによって、ドキュメントの隅々まで、すべてのシェイプを漏らさずチェックすることができます。

`If shp.Type = cdrLineShape And shp.Outline.Type = cdrOutlineTypeLine Then`

ここが、今回のマクロの肝中の肝です！CorelDRAWには様々な種類のシェイプがあります。テキスト、図形、ビットマップ、グループ、そして線など。私たちは「線」だけを対象にしたいので、この`If`文で厳密にフィルタリングします。

`shp.Type = cdrLineShape`: これは、現在処理している`shp`オブジェクトが「線（パス）」であるかを判定します。`cdrLineShape`はCorelDRAWが定義している定数で、「線」タイプを意味します。
`shp.Outline.Type = cdrOutlineTypeLine`: これがもう一つ重要なポイントです。`Outline`プロパティは線に関する情報を持つオブジェクトですが、線を持たない（塗りだけの）シェイプや、テキストにも`Outline`プロパティは存在します。しかし、それらの`Outline.Type`は`cdrOutlineTypeNone`（線なし）や`cdrOutlineTypeHairline`（ヘアライン）など、線の太さを持たないタイプである場合があります。

`cdrOutlineTypeLine`は、通常の太さを持つ線であることを示します。これにより、例えばテキストのアウトラインや、塗りだけのオブジェクトに適用されているデフォルトのヘアラインなどを誤って処理してしまうことを防ぎます。

`If shp.Outline.Width > 0 Then`

この条件も地味ながら重要です。線の太さが`0`、つまりヘアラインの場合は、アウトライン化してもほとんど意味がありません。このような無駄な処理を省くことで、マクロの実行効率を少しでも高めます。

`Set outlineShape = shp.Outline.ConvertToObject`

これが、今回の主役となるメソッドです！

`shp.Outline.ConvertToObject`: 現在の`Shape`オブジェクトの`Outline`プロパティが持つ線を、新しい「アウトラインオブジェクト」（塗りを持った図形）に変換します。
重要なポイント: このメソッドは、元の線オブジェクトを削除せず、新しいアウトラインオブジェクトを生成して返します。そのため、`Set outlineShape = …`のように、生成された新しいシェイプを受け取る変数を用意する必要があります。

もし、元の線が不要であれば、この行の直後に`shp.Delete`を追加して、元の線オブジェクトを削除することができます。（コード内ではコメントアウトされています）

`Set shp = Nothing` / `Set pag = Nothing` / `Set doc = Nothing`

これもまた、極限の知見とも言える重要なテクニックです。特に大規模なドキュメントや、大量のオブジェクトを処理する際に、その真価を発揮します。

`Set obj = Nothing`は、オブジェクト変数に割り当てられていたオブジェクトへの参照を解除し、メモリを解放する指示です。

VBAでは、オブジェクト変数がスコープを抜ける（Subプロシージャが終了するなど）と、自動的にメモリが解放されます。
しかし、`For Each`ループのように、大量のオブジェクトを繰り返し変数にセットする場合、ループ内で明示的に`Nothing`をセットしないと、古いオブジェクトへの参照が残り続け、メモリの使用量が増大したり、最悪の場合メモリリークを引き起こしたりする可能性があります。
これにより、マクロの実行中のメモリ消費を抑え、特に長時間の処理や巨大なファイルでの安定性を向上させることができます。

よくある落とし穴とデバッグのヒント

CorelDRAW VBAに限らず、プログラミングにはつきものの「エラー」や「意図しない挙動」。そんな時に役立つデバッグのヒントをいくつかご紹介します。

1. 「何も起こらない」とき:

条件分岐の誤り: `If`文の条件が厳しすぎたり、逆に緩すぎたりしていませんか？例えば、`shp.Type`や`shp.Outline.Type`の値を`Debug.Print shp.Type`, `Debug.Print shp.Outline.Type`のように出力して、実際のオブジェクトのタイプを確認してみましょう。
オブジェクトの型を見誤っている: グループ化されたオブジェクトやPowerClip内のオブジェクトは、直接アクセスできない場合があります。これらはさらに深く潜ってアクセスする必要があります（応用編）。

2. 「特定の線が変換されない」とき:

グループ化: 線がグループの一部になっている場合、グループ内の個々のシェイプにアクセスするには、`shp.Shapes`コレクションをさらに`For Each`で巡回する必要があります。
PowerClip内: PowerClipオブジェクトの中にあるシェイプは、直接アクセスが困難です。一旦PowerClipを解除するか、`PowerClip.Open`メソッドで編集モードに入る必要があります。
ヘアライン: 前述の通り、`Width > 0`の条件でヘアラインは除外されます。意図的にヘアラインもアウトライン化したい場合は、この条件を削除してください。

3. デバッグの基本:

`Debug.Print`: 重要な変数の値や、ループの現在地などをイミディエイトウィンドウに表示させます。`Debug.Print “現在ページ: ” & pag.Name & “, シェイプタイプ: ” & shp.Type`のように使うと、処理の状況が把握しやすくなります。
ステップ実行 (F8): VBAエディタで`F8`キーを押すと、コードを一行ずつ実行できます。変数の値の変化や、`If`文の分岐がどのように処理されているかを確認するのに非常に強力です。
ブレークポイント: コードの特定の行をクリックすると、赤い丸が表示され、そこにブレークポイントが設定されます。マクロはその行で一時停止し、そこからステップ実行したり、変数の値をウォッチしたりできます。

このマクロをさらに強力にする応用アイデア

今回のマクロは、CorelDRAW VBAの基本的ながら本質的な操作を網羅しています。ここから、あなたのニーズに合わせてさらに進化させてみましょう。

特定のレイヤーのみ処理する: `pag.Layers`コレクションを巡回し、`If lay.Name = “処理したいレイヤー名” Then`のような条件を追加して、そのレイヤー内の`Shapes`のみを処理するようにします。
特定の色の線のみ処理する: `shp.Outline.Color.CMYK.C` や `.M`, `.Y`, `.K` などで色情報を取得し、条件分岐を追加します。
アウトライン化後に元の線を削除する: コード内のコメントアウトを外して`shp.Delete`を実行します。
処理前後の状態をログに残す: `Debug.Print`を使って、どのシェイプがアウトライン化されたか、何個のシェイプが処理されたかなどをイミディエイトウィンドウに出力したり、テキストファイルに書き出したりすることで、監査証跡として残すことができます。

まとめと次のステップ

お疲れ様でした！今回は、CorelDRAW VBAを使って、大量のストロークを一括でアウトライン化するマクロを構築し、その裏側にあるCorelDRAWのオブジェクトモデル、パフォーマンス最適化の極意、そしてデバッグのヒントまで深く掘り下げてきました。

このマクロを使いこなせば、入稿前の線幅問題に悩まされることはもうありません。時間と手間を大幅に削減し、デザイナーとしての品質を盤石なものにできるでしょう。

CorelDRAW VBAは、一度その基本をマスターしてしまえば、あなたの想像力をはるかに超える効率化と自動化を可能にする強力なツールです。今回の記事で学んだオブジェクトの巡回、条件分岐、そしてパフォーマンスへの配慮は、他のあらゆるCorelDRAW VBAマクロ開発の基礎となります。

ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ！

ぜひ、この記事を参考に、自分だけのオリジナルマクロを開発し、CorelDRAW VBAの達人への道を歩み始めてください。あなたの創造性と技術が融合する瞬間を、心から応援しています！