CorelDRAW VBAの深淵：GUIDを用いたオブジェクト追跡と永続的IDの実装
CorelDRAWのVBA開発において、多くのエンジニアが直面する「壁」がある。`ActiveShape`や`Selection`といった動的な参照に頼り切ったコードだ。これらはドキュメントの再構築や複雑なレイヤー操作、あるいは外部システムとの連携において、いとも簡単にその「正当性」を失う。
オブジェクトがグループ化され、あるいはパスが合成され、名前が変更された瞬間、君たちが握りしめていたオブジェクト参照はゴミと化す。今回は、CorelDRAWのオブジェクトモデルに依存せず、GUID（Global Unique Identifier）をメタデータとして埋め込み、オブジェクトのライフサイクルを完全に制御するためのアーキテクチャを伝授する。
—
1. なぜ「名前（Name）」プロパティでは不十分なのか
初心者は`Shape.Name`にIDを格納しようとするが、これはアマチュアの思考だ。`Name`プロパティはユーザーがGUIから変更可能であり、一意性が保証されない。また、PDF出力やEPS書き出し時にメタデータとして意図しない挙動を示すリスクもある。
真のプロフェッショナルは、`Shape.ObjectData`を利用するか、あるいはWindows APIを駆使してメモリ上の構造体にまで手を伸ばす。今回は、より堅牢で、他のシステム（C#やSQLサーバー等）との連携も可能な「ObjectDataフィールドへのGUID埋め込み」を軸に解説する。
—
2. GUID付与と追跡のアーキテクチャ
以下のコードは、生成された図形に一意のGUIDを付与し、そのオブジェクトを再特定するための最小構成である。
‘ ———————————————————
‘ 独自GUIDを生成し、ObjectDataフィールドに永続化する
‘ ———————————————————
Public Function AssignGuidToShape(shp As Shape) As String
Dim guid As String
guid = CreateObject(“Scriptlet.TypeLib”).GUID
guid = Mid(guid, 2, Len(guid) – 2) ‘ { } を除去
‘ ObjectDataに書き込むことで、ファイル保存後もIDが保持される
shp.ObjectData.Add “System_UID”, guid
AssignGuidToShape = guid
End Function
‘ ———————————————————
‘ GUIDを元にドキュメント内から正確にオブジェクトを再特定する
‘ ———————————————————
Public Function FindShapeByGuid(targetGuid As String) As Shape
Dim shp As Shape
Dim p As Page
For Each p In ActiveDocument.Pages
For Each shp In p.FindShapes(Query:=”@objectdata[‘System_UID’] = ‘” & targetGuid & “‘”)
Set FindShapeByGuid = shp
Exit Function
Next
Next
End Function
—
3. パフォーマンスとメモリの極限最適化
CorelDRAWのVBAは、COMオブジェクトの保持に非常に神経質だ。`For Each`ループ内で無造作にオブジェクトを生成・代入し続けると、メモリリークが蓄積し、大規模なドキュメントでは確実にクラッシュする。
メモリ解放の原則
- 明示的解放: ループの最後には必ず `Set shp = Nothing` を実行せよ。
- コレクションのキャッシュ: `FindShapes`の結果は巨大になる可能性がある。`Variant`配列にIDを一度格納し、必要最小限の範囲で再参照する設計が不可欠だ。
‘ メモリリークを防止するイテレーションの作法
Public Sub ProcessShapesSafely()
Dim shp As Shape
Dim s As Shapes
Set s = ActivePage.FindShapes()
Dim i As Long
For i = 1 To s.Count
Set shp = s(i)
‘ ここで業務ロジックを実行
‘ 毎イテレーションごとに適切に解放する
Set shp = Nothing
Next i
Set s = Nothing ‘ コレクション自体も解放
End Sub
—
4. システム間連携への応用（VB.NET / C#とのブリッジ）
このGUIDアーキテクチャの真価は、CorelDRAW外のシステムとの連携にある。例えば、SQLデータベースに「図形ID」「ステータス」「更新日時」を記録しておけば、CorelDRAW側で何が起きようと、後から状態を同期できる。
- VB.NET側での対応: `System.Guid.NewGuid().ToString()`で生成したGUIDを、CorelDRAWのOLEオートメーション経由で`ObjectData`に注入する。
- 保守の要点: レガシーなVBA環境であっても、この手法を使えば「設計図面内のどのパーツが、ERP上のどの部品に対応しているか」を完全にトレースできる。これは単なる自動化ではなく、デジタルツインの構築である。
—
5. チーフアーキテクトからの助言
CorelDRAW VBAを「単なるマクロ」だと思っているうちは三流だ。これはCAD、グラフィックエンジン、そしてデータベースを統合するための強力なフロントエンド開発環境である。
- 名前空間の汚染を避けよ: モジュールレベルの変数は極力減らし、GUIDのようなメタデータは常に定数名で管理せよ。
- エラーハンドリングを怠るな: `FindShapes`でヒットしなかった場合の戻り値`Nothing`をハンドリングしないコードは、本番環境では即座に排除せよ。
オブジェクトのライフサイクルを握る者は、CorelDRAWを支配する。このGUID手法を実装し、君たちのシステムを「壊れない自動化エンジン」へと進化させろ。健闘を祈る。
