こんにちは！CorelDRAWの自動化の世界へようこそ。
マクロの記録ボタンを押して形をポチポチ動かすだけの作業は、もう卒業しませんか？
今回は、中上級者へのステップアップとして、デザイン現場で最も頭を悩ませる「パスのブール演算（結合・交差・抜き合わせ）」をVBAで完全にコントロールする方法を解説します。
「複数の複雑な図形を綺麗にくり抜きたいのに、手作業だとズレてしまう……」
そんなストレスをVBAの一撃で解消し、ヒューマンエラーを完全にゼロにする極意を授けましょう。ここをクリアすれば、あなたのCorelDRAW VBAスキルは間違いなくプロの領域に達します。さあ、一緒に本質を深掘りしていきましょう！
—
1. なぜ「ブール演算」をVBAで自動化するのか？
CorelDRAWの画面上で「溶接（Weld）」や「トリム（Trim）」、「交差（Intersect）」を行うのは簡単です。しかし、これが何百個、何千個という単位になったり、形状の条件によって処理を分岐させたりする必要がある場合、手作業では到底太刀打ちできません。
しかし、CorelDRAWのオブジェクトモデルには、強力なパス演算メソッドが備わっています。これらをVBAから正しく呼び出すことで、人間の手では数時間かかる複雑な形状合成を、コンマ数秒で正確に実行できるようになります。
特に今回焦点を当てるのは、単なる2つの図形演算にとどまらず、複数のオブジェクト群から高度なパスを生成するテクニックです。
—
2. 覚えておくべき基本オブジェクトと「罠」
CorelDRAW VBAでパス演算を扱う際、絶対に知っておかなければならないオブジェクトのライフサイクルと仕様があります。
- `ShapeRange` オブジェクトの理解
複数のシェイプをまとめて操作する場合、`ShapeRange`という「一時的な束（コレクション）」を使います。
- マクロの記録が役に立たない理由
実は、画面上の「結合」や「トリム」操作をマクロ記録しても、生成されるコードは現在の選択状態（`ActiveSelection`）に強く依存した脆いものになります。実務で使えるコードを書くには、「オブジェクトを明示的に指定し、メモリ上で処理する」という設計思想が不可欠です。
—
3. 実践！高度なパス演算を自動実行するVBAコード
それでは、実務でそのまま使えるサンプルコードを公開します。
このコードでは、重なり合った複数の図形に対して「交差（Intersect）」や「結合（Weld）」などの演算を行い、新しいシェイプを生成する一連の流れを記述しています。
Sub AdvancedBooleanOperations()
‘ 画面のちらつきを抑え、処理速度を爆発的に上げるおまじない
Optimization = True
EventsEnabled = False
On Error GoTo ErrorHandler
Dim doc As Document
Set doc = ActiveDocument
doc.BeginCommandGroup “高度なパス演算処理”
Dim shp1 As Shape, shp2 As Shape, resultShp As Shape
Dim sr As New ShapeRange
‘ 1. テスト用の図形を2つ作成（長寿なコードにするためコード内で生成）
Set shp1 = doc.ActiveLayer.CreateRectangle(10, 10, 50, 50)
Set shp2 = doc.ActiveLayer.CreateEllipse(30, 30, 70, 70)
‘ 2. ShapeRangeにオブジェクトを追加
sr.Add shp1
sr.Add shp2
‘ —————————————————-
‘ 3. ブール演算の実行（例：交差部分の抽出）
‘ —————————————————-
‘ Intersect メソッドは、重なり合った共通部分を新しいシェイプとして作成します
‘ 引数: [元を残すか(Source1)], [元2を残すか(Source2)]
Set resultShp = shp1.Intersect(shp2, True, True)
If Not resultShp Is Nothing Then
‘ 生成された結果シェイプの色を赤に変更し、少し移動させる
resultShp.Fill.UniformColor.CmykAssign 0, 100, 100, 0
resultShp.SetPosition 80, 50
MsgBox “ブール演算が正常に完了しました！”, vbInformation
Else
MsgBox “交差する領域が見つかりませんでした。”, vbExclamation
End If
CleanUp:
‘ 処理終了の処理
doc.EndCommandGroup
Optimization = False
EventsEnabled = True
ActiveDocument.Windows(1).Refresh
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
コードの解説とエンジニアの知見
1. `Optimization = True` の重要性
CorelDRAW VBAで大量のオブジェクトを扱う際、画面を描画し直すコストは莫大です。処理の最初にこれを `True` にし、最後に `False` に戻すことで、実行速度を何倍にも跳ね上げることができます。
2. `Intersect` メソッドの戻り値
演算メソッド（`Weld`, `Trim`, `Intersect` など）は、実行されると「新しく生まれたシェイプ」そのものを返します。これを変数（上記の例では `resultShp`）で受け取ることで、生成された直後の図形に対して色変更や移動などの追加アプローチをシームレスに行うことができます。
—
4. 現場でありがちなエラーと回避の極意
中上級者がよくハマる罠として、「演算対象のシェイプが閉じたパス（Closed Path）になっていない」というケースがあります。
開いた線（ライン）同士でブール演算を行おうとすると、CorelDRAWは意図しない挙動を起こすか、エラーを返します。
- 対策: 演算を行う前に、対象のシェイプが確実に閉じているか、あるいは `ConvertToCurves` メソッド等で正しくカーブオブジェクトに変換されているかをコード内で担保（チェック）するロジックを挟むと、堅牢性（ロバストネス）が劇的に向上します。
—
まとめ：自動化の地平へ
今回は、CorelDRAW VBAにおける高度なブール演算の自動化について解説しました。
ここをマスターすれば、複雑なロゴの生成、工業用パターンの自動切り抜き、大量のDTPデータの自動整形など、これまで諦めかけていた自動化の扉が開かれます。
「ここをこう変えたらどうなるだろう？」という探求心を大切に、ぜひご自身の開発環境でも試してみてください。
あなたのCorelDRAWライフが、より知的で快適なものになることを応援しています！
