CorelDRAW VBAを掌握する極限の知見：大量パスデータのブール演算を完全自動化するアーキテクチャ
CorelDRAWを用いたデザイン現場、特にカッティングプロッター用のパスデータ制作や、複雑なロゴデザインの量産工程において、「複数の重なり合うシェイプに対するブール演算（溶接・トリム・交差など）」の手作業は、デザイナーの時間を削る最大のボトルネックだ。
「数百個のオブジェクト群を選択し、一つひとつパレットから『溶接』をクリックしていく……」
もしあなたが、そんな不毛な作業をVBAに置き換えようとして挫折した経験があるなら、あるいはコードを書いたものの「ランタイムエラー」「予期せぬ形状の崩壊」「メモリリークによるCorelDRAWの突然の強制終了」に悩まされているなら、よく聞いてほしい。
CorelDRAWのVBAにおけるブール演算は、単にメソッドを叩けば動くような甘い代物ではない。オブジェクトのライフサイクル、選択状態（Selection）の呪縛、そしてドキュメントのトランザクション管理を理解していなければ、実用に耐える堅牢なツールなど作れないのだ。
今回は、開発プロジェクトのリーダーである私が、数々の修羅場をくぐり抜けてたどり着いた「大量パスデータに対するブール演算一括処理の極限の設計思想とプロダクションコード」を授けよう。
—
1. なぜ素朴なVBAコードは破綻するのか？（非効率な設計の排除）
初学者が陥る最大の罠は、CorelDRAWのUI操作をそのままコードに翻訳してしまうことだ。
- UI依存の `.CreateSelection` や `.Selected` への過度な依存
画面上の選択状態（Selection）を書き換えてブール演算メソッド（`lp.Welded` など）を実行するアプローチは、描画更新（ScreenUpdating）の負荷や、意図しないレイヤー順序（Zオーダー）の誤認を引き起こし、バグの温床となる。
- イベントハンドラと画面描画の未制御
ループ内でオブジェクトを生成・結合するたびにCorelDRAWが再描画を行えば、処理速度は劇的に低下し、メモリリークの確率が跳ね上がる。
プロフェッショナルの設計方針
1. 画面描画とイベントの完全封印 (`Optimization = True`)
2. `Selection` に頼らない、オブジェクト参照（Shape / ShapeRange）による直接操作
3. トランザクション的なエラーハンドリング（失敗時のロールバックとメモリ解放）
—
2. 実務で耐えうる堅牢なプロダクションコード
以下のコードは、指定したレイヤー内にある複数の閉じたパス（曲線）をグループ化し、自動的に「溶接（Weld）」をバッチ処理する実用的なマクロである。
単なるサンプルの域を超え、実務の現場でそのまま組み込める堅牢性を担保している。
Option Explicit
‘ ==============================================================================
‘ 処理名: BatchWeldShapesOnActiveLayer
‘ 概要: アクティブページの指定レイヤー内にある全シェイプを一括して溶接する
‘ 著者: CorelDRAW VBA Architecture Team
‘ ==============================================================================
Public Sub BatchWeldShapesOnActiveLayer()
‘ 1. 最適化フラグの退避と環境設定
Dim origOptimization As Boolean
origOptimization = Application.Optimization
Application.Optimization = True
Application.EventsEnabled = False
Dim origUndoMode As Long
origUndoMode = Application.UndoMode
Application.UndoMode = ikUndoDisabled ‘ 圧倒的パフォーマンスのためのUndo無効化
On Error GoTo ErrorHandler
Dim doc As Document
Set doc = Application.ActiveDocument
If doc Is Nothing Then
Err.Raise 1000, “BatchWeldShapes”, “アクティブなドキュメントが存在しません。”
End If
‘ 2. ターゲットレイヤーの特定（例: “CutContour” レイヤーを対象とする）
Dim targetLayer As Layer
On Error Resume Next
Set targetLayer = doc.ActivePage.Layers(“CutContour”)
On Error GoTo ErrorHandler
If targetLayer Is Nothing Then
Err.Raise 1001, “BatchWeldShapes”, “対象レイヤー ‘CutContour’ が見つかりません。”
End If
‘ レイヤー内のシェイプが存在するかチェック
Dim totalShapes As Long
totalShapes = targetLayer.Shapes.Count
If totalShapes < 2 Then MsgBox "溶接に必要な十分なオブジェクトがレイヤー内にありません。(最低2つ以上)", vbExclamation, "処理中止" GoTo CleanUp End If ' 3. ShapeRangeの構築とブール演算の実行 ' UIの選択状態を一切汚さず、メモリ上でShapeRangeをハンドリングする Dim sr As ShapeRange Set sr = New ShapeRange Dim sh As Shape For Each sh In targetLayer.Shapes ' 曲線（Curve）または閉じたパスを持つオブジェクトのみを対象とする If sh.Type = cdrCurveShape Or sh.Type = cdrEllipseShape Or sh.Type = cdrRectangleShape Then sr.Add sh End If Next sh If sr.Count < 2 Then MsgBox "有効なパスオブジェクトが2つ以上ありません。", vbExclamation, "処理中止" GoTo CleanUp End If ' 4. 溶接（Weld）の実行 ' 第一引数に基準となるシェイプ、第二引数に結合するShapeRangeを指定 ' ※CorelDRAWのバージョンによりメソッド仕様が微妙に異なるため、ベースシェイプを確定させる Dim baseShape As Shape Set baseShape = sr(1) ' ShapeRangeからベースを除外してWeldを実行 sr.Remove 1 Dim weldedShape As Shape ' 核心となるブール演算API呼び出し Set weldedShape = baseShape.Weld(sr, False, False) If Not weldedShape Is Nothing Then doc.ClearSelection weldedShape.Selected = True MsgBox "バッチ溶接処理が正常に完了しました。", vbInformation, "完了" Else Err.Raise 1002, "BatchWeldShapes", "ブール演算（溶接）の実行に失敗しました。パスの交差状態を確認してください。" End If CleanUp: ' 5. 環境の厳密な復元（例外発生時も必ず実行） Application.Optimization = origOptimization Application.EventsEnabled = True Application.UndoMode = origUndoMode Application.Refresh Exit Sub ErrorHandler: MsgBox "致命的なエラーが発生しました: " & Err.Description & " (Error " & Err.Number & ")", vbCritical, "システムエラー" Resume CleanUp End Sub ---
3. コードの急所：なぜこの実装が「プロ仕様」なのか？
上記のコードには、単なる「動くコード」を超えた、現場で生き残るためのアーキテクチャが組み込まれている。
① `Application.Optimization = True` と `UndoMode` の制御
数千のパスを扱う場合、CorelDRAWはデフォルトで「一つ処理するごとに画面を再描画し、Undo履歴を積み上げる」。これを放置すると、PCファンが唸り声を上げ、最悪の場合はメモリ不足でクラッシュする。
`Optimization = True` と `UndoMode = ikUndoDisabled` を組み合わせることで、処理速度を最大10倍以上に跳ね上げることができる。ただし、例外発生時に環境が戻らなくなるリスクがあるため、必ず `On Error GoTo` を用いた `CleanUp` ブロックで元に戻すこと。
② `ShapeRange` によるメモリ内一括処理
画面上でマウスを使って複数の図形を選ばせるのではなく、`New ShapeRange` でメモリ上にオブジェクトの参照配列を構築している。これにより、画面のズーム率やレイヤーのロック状態に影響されない、極めて堅牢なバッチ処理が可能になる。
③ 堅牢なエラーハンドリングとオブジェクト検証
ブール演算（溶接・トリム・交差）は、「パスが閉じられていない」「自己交差している」「完全に離れていて重なりがない」といった不正なデータを与えると、容赦なくエラーを吐くか、無残にねじ曲がったパスを生成する。
コード内であらかじめシェイプのタイプをフィルタリングし、最小限のバリデーションを挟むことで、現場でのトラブルを未然に防いでいる。
—
4. さらに高度な自動化へ：外部ファイル・DB連携の注意点
もしこのマクロを、外部のCSVや受注管理データベース、あるいはホットフォルダ（監視フォルダ）からのSVG/DXF読み込みと連動させる場合、以下のアーキテクチャ上の鉄則を守ってほしい。
1. 非同期処理の排除（CorelDRAWはシングルスレッド）
外部システムから連続してファイルをCorelDRAWに読み込ませてバッチ処理する場合、Shell関数などで非同期に別プロセスを立ち上げるのではなく、1つのCorelDRAWインスタンスを起動しっぱなしにし、VBA側でループを回してファイルを `Open` / `Process` / `SaveAs` / `Close` するパイプライン設計にすること。
2. メモリリークの完全防壁
大量のファイルを連続処理する場合、VBAのオブジェクト変数（`Document`, `ShapeRange` 等）を使い捨てたままにすると、ガベージコレクションが追いつかずにメモリリークを起こす。ループのイテレーションごとに、オブジェクト変数を `Set xxx = Nothing` で明示的に解放する習慣を徹底せよ。
—
5. 総括
CorelDRAW VBAにおけるブール演算の自動化は、単なる手作業の置き換えではない。それは、CorelDRAWの内部レンダリングエンジンとメモリ構造を理解し、手懐けるというエンジニアリングのロマンだ。
今回提供した設計思想とコードをベースにあなたのワークフローを構築すれば、これまで何時間もかかっていた複雑なパスデータのクレンジングと溶接処理を、わずか数秒のバッチ処理へと昇華させることができるはずだ。
妥協のないコードで、退屈な手作業を過去のものにしよう。
