こんにちは！CorelDRAW VBAの世界へようこそ。
今日は、多くのデザイナーが頭を悩ませる「膨大なパスデータに対するブール演算（結合・溶接・交差など）」を、VBAの力で一瞬にして自動化する極意を伝授します。
マクロの記録ボタンを押してポチポチ操作する時代はもう終わりです。ここをクリアすれば、あなたもCorelDRAW VBAの基本を完全にマスターし、業務効率を何倍にも跳ね上げることができますよ。さあ、一緒に扉を開けましょう！
—
なぜ、手作業のブール演算は地獄なのか？
何百、何千という細かいベクター形状が入り交じる複雑なイラストや、切り文字・カッティングプロッター用のデータ作成を想像してみてください。
それらのパーツを一つずつ選択し、「溶接（Weld）」や「トリム（Trim）」のボタンを押し続ける……。途中でCorelDRAWがフリーズしたり、選択ミスでやり直しになったりしたときの絶望感は計り知れません。
しかし、CorelDRAW VBAの `ShapeRange`（シェープレンジ：複数の図形を束ねるオブジェクト）を使いこなせば、この苦行を「一瞬の歓喜」に変えることができます。
—
押さえておくべき基本：`ShapeRange` とブール演算の正体
VBAで複数の図形をまとめて料理するとき、鍵を握るのは `ActiveDocument.SelectionRange` や、個別の図形をコレクションした `ShapeRange` です。
CorelDRAWの代表的なブール演算メソッドには、以下のようなものがあります。
- `Weld`（溶接）: 重なり合う複数の形状を一つに結合します。
- `Intersect`（交差）: 2つ以上の形状が重なっている部分だけを残します。
- `Trim`（トリム）: 前面の形状で背面の形状を切り抜きます。
これらはすべて、「どの図形を基準（ターゲット）にして、どの図形に演算を仕掛けるか」というオブジェクトの親子関係を正しくコードで指示してあげる必要があります。
—
【実践】大量の図形を一括溶接するマクロ
それでは、ドキュメント内にある特定の条件を満たす図形たちを、一網打尽に「溶接」する実用的なコードを見てみましょう。
開発の現場でそのままコピペして使えるよう、丁寧なコメントをつけています。
Sub BatchWeldShapes()
‘ 画面描画を停止して処理速度を爆発的に上げる（超重要テクニック！）
EventsEnabled = False
ActiveDocument.BeginCommandGroup “一括溶接処理”
On Error GoTo ErrorHandler
Dim srTarget As ShapeRange
Set srTarget = New ShapeRange
Dim sh As Shape
Dim targetLayer As Layer
‘ アクティブなページのレイヤーから対象となる図形を収集する
‘ ここでは例として「選択されている図形」を対象とします
If ActiveSelection.Shapes.Count < 2 Then
MsgBox "溶接するには、2つ以上の図形を選択してください。", vbExclamation, "警告"
GoTo CleanUp
End If
Set srTarget = ActiveSelectionRange
' --- ブール演算（溶接）の実行 ---
' ShapeRangeの Weld メソッドを呼び出すだけで、一括して結合されます
Dim shWeldResult As Shape
Set shWeldResult = srTarget.Weld(srTarget.First, True, True)
' 成功メッセージ
MsgBox "一括溶接が完了しました！", vbInformation, "処理成功"
CleanUp:
' 処理終了時は必ず画面描画とコマンドグループを元に戻す
ActiveDocument.EndCommandGroup
EventsEnabled = True
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "エラー"
Resume CleanUp
End Sub
---
ここで差が出る！エンジニアが教える「陥りやすい罠」と回避策
初心者から中級者へステップアップする過程で、誰もが一度はハマる罠があります。ここを知っているかどうかが、プロとアマの分かれ道です。
1. 画面描画のコントロール（`EventsEnabled`）を忘れてフリーズ
大量のパスを処理するとき、CorelDRAWは親切心から「1回図形が変わるごとに画面を再描画」しようとします。これが処理を何十倍も遅くする原因です。
必ず処理の最初に `EventsEnabled = False` を入れ、最後に `True` に戻すお作法を徹底してください。
2. メモリリークとオブジェクトのライフサイクル
ブール演算を実行すると、「演算に使われた元の古い図形」と「新しく生まれた結果の図形」がメモリ上に複雑に絡み合います。
ループ処理の中でこれを雑に扱っていると、メモリが圧迫されてVBAが突然強制終了します。大容量のデータを扱うときは、一度 `ShapeRange` にまとめてから一撃で処理するか、不要になったオブジェクトをこまめに `Delete` する配慮が必要です。
—
まとめ：ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ！
お疲れ様でした！今回は、大量のパスデータに対するブール演算の一括処理について解説しました。
- `ShapeRange` を使って複数の図形をまとめて操作すること
- `Weld` や `Trim` などのメソッドを適切なタイミングで呼び出すこと
- `EventsEnabled = False` で爆速化のお呪いをかけること
この3つさえ押さえておけば、どんなに複雑なベクターグラフィックスの自動化も怖くありません。手作業の地獄から抜け出し、よりクリエイティブで楽しい時間に時間を使いましょう。
あなたのCorelDRAWライフが、さらに快適で素晴らしいものになることを応援しています！
