CorelDRAWオブジェクトの「個体識別」を極める：GUIDによる外部DB連携のアーキテクチャ
CorelDRAW VBAにおける自動化の壁は、常に「図形の流動性」にある。グループ化の解除、コピー＆ペースト、そしてユーザーの気まぐれな編集。これらの操作によって、VBAが管理していたオブジェクトの参照は呆気なく「Object Variable not set」という死を遂げる。
本稿では、CorelDRAWのオブジェクトを単なる「描画要素」としてではなく、データベースの「レコード」として永続的に追跡するための、GUID（Global Unique Identifier）を活用したアーキテクチャを提示する。これは、VBAを単なる自動化ツールから、エンタープライズなデータ管理システムへと昇華させるための唯一の道である。
—
1. なぜ「インデックス」ではいけないのか
多くのジュニアエンジニアは、`ActivePage.Shapes(1)`といったインデックスや、オブジェクト名（Name）をキーにDB連携を試みる。しかし、これは破滅への道だ。CorelDRAWのDOMにおいて、インデックスはスタック順序に依存し、ユーザーが「最前面へ」を実行した瞬間に崩壊する。
我々が求めるべきは、オブジェクトのライフサイクルを超越した不変の識別子である。
2. 永続化の解：`Properties`コレクションとGUIDの注入
CorelDRAWには、各オブジェクトに任意のメタデータを保持させるための `Properties` コレクションが存在する。ここにGUIDを書き込み、メモリ上にロードされるたびに整合性を検証する。これが「追跡の要諦」だ。
GUID生成のアーキテクチャ（Windows API）
VBA標準にはGUID生成機能がないため、`ole32.dll`の `CoCreateGuid` を利用する。
‘ Windows APIの宣言
Private Declare PtrSafe Function CoCreateGuid Lib “ole32.dll” (pguid As Any) As Long
Private Declare PtrSafe Function StringFromGUID2 Lib “ole32.dll” (pguid As Any, ByVal lpsz As LongPtr, ByVal cbMax As Long) As Long
‘ オブジェクトにGUIDを刻印する関数
Public Function AssignGUID(sh As Shape) As String
Dim guid(0 To 15) As Byte
Dim guidStr As String 80
If CoCreateGuid(guid(0)) = 0 Then
If StringFromGUID2(guid(0), StrPtr(guidStr), 80) > 0 Then
Dim id As String
id = Left$(guidStr, InStr(guidStr, vbNullChar) – 1)
‘ ShapeのPropertiesに埋め込む（永続化される）
sh.Properties(“DB_ID”) = id
AssignGUID = id
End If
End If
End Function
3. メモリ管理の極意：明示的解放とオブジェクトの生死
CorelDRAW VBAのメモリリークは、`Shape`オブジェクトの参照保持が原因であることがほとんどだ。特にループ処理において、`ActivePage.Shapes`をイテレートする際は、必ずループ終了時に参照を解放する癖をつけよ。
Sub SyncDatabaseRecords()
Dim doc As Document
Dim sh As Shape
Dim dbID As String
Set doc = ActiveDocument
‘ オブジェクトの明示的イテレーション
For Each sh In doc.ActivePage.Shapes
‘ プロパティの存在確認
On Error Resume Next
dbID = sh.Properties(“DB_ID”)
If Err.Number <> 0 Then
‘ IDがない場合は新規生成してDBへ登録
dbID = AssignGUID(sh)
‘ Call RegisterToExternalDB(dbID, sh)
End If
On Error GoTo 0
‘ 処理後は必ず参照をクリアする（大規模システムでは必須）
Next sh
Set sh = Nothing
Set doc = Nothing
End Sub
4. 外部DB連携への布石：設計の哲学
GUIDを埋め込んだ後は、CorelDRAW自体をフロントエンドのビューワと見なす必要がある。
1. 疎結合の原則: CorelDRAW上の図形は「表示状態」に過ぎない。データ本体はすべて外部のCSV、あるいはSQL Server等に格納する。
2. 正当性の検証: ファイルを開いた直後、`Document_Open`イベントで全オブジェクトのGUIDをスキャンし、DB側のレコードと照合する。孤立したGUIDや、重複したGUIDを発見した場合はログを残し、自動修復（あるいは警告）を行うルーチンを実装せよ。
3. パフォーマンスの最適化: 1万個以上のオブジェクトを扱う場合、`Properties`へのアクセスは重い。`Dictionary`オブジェクト（`Scripting.Runtime`）をメモリ上に構築し、GUIDとShapeのポインタをマッピングしてキャッシュすることで、検索速度を飛躍的に向上させることができる。
結びに代えて
CorelDRAWを「お絵描きソフト」として使うのは趣味の領域だ。我々エンジニアにとって、それは「視覚化されたデータエンジン」でなければならない。
GUIDによる追跡を実装することは、コードの堅牢性を高めるだけでなく、将来的なシステム拡張（自動組版、バリアブル印刷の高度化、PLM連携）への強力な足掛かりとなる。まずは、貴殿の現在のプロジェクトに、最初のGUIDを刻印することから始めてほしい。
技術は裏切らない。ただ、設計の甘さがツケとなって跳ね返るだけだ。健闘を祈る。
