ようこそ、CorelDRAW自動化の深淵へ。
「マクロの記録」ボタンを押して生成されるコードは、いわば「その場限りの足跡」に過ぎません。プロの現場では、もっと強固で、かつ柔軟な「オブジェクトとの対話」が求められます。
今日は、CorelDRAW VBAにおける最大の難所であり、最強の武器となる「GUIDによるオブジェクト追跡」という概念を授けましょう。これができれば、あなたはもう「初心者」ではありません。
—
なぜ「名前」や「選択状態」ではダメなのか？
初学者が陥る罠は、オブジェクトを「名前（Name）」や「選択順序」で管理しようとすることです。
しかし、CorelDRAWの描画オブジェクトは、グループ化、結合、あるいは単純な順序の入れ替えで、内部的なインデックスが刻々と変わります。
「昨日、青い四角形に付けたはずの属性が、今日見たら別のオブジェクトに適用されている……」
そんな悲劇を防ぐ唯一の手段が、「ユーザーデータ（User Data）」にGUIDを刻み込むことなのです。
—
GUIDによる追跡：実装のロジック
CorelDRAWのオブジェクトには、`.ObjectData` というプロパティが存在します。これこそが、オブジェクトの「魂」に情報を書き込むための聖域です。ここにGUIDを書き込んでおけば、どんなに図形が移動しても、変形しても、その図形が「誰であるか」を追跡し続けられます。
ステップ1：GUIDを付与する関数
まずは、生成したオブジェクトに唯一無二のIDを刻む関数を作りましょう。
‘ オブジェクトにユニークなIDを付与する
Public Sub AssignGUID(shp As Shape)
Dim guid As String
‘ Windows API等でGUIDを生成するか、簡易的に乱数と時刻を組み合わせる
guid = “ID-” & Format(Now, “yyyymmddhhnnss”) & “-” & Int(Rnd 10000)
‘ ObjectDataに書き込む（これが最も安全な格納場所）
‘ 存在しない場合は作成し、値を保存
shp.ObjectData.Add “MyTrackingID”, guid
End Sub
ステップ2：IDからオブジェクトを再特定する
ドキュメントが閉じられ、再度開かれたとしても、このIDは残ります。ページ内の全シェイプをスキャンし、IDが一致するものを探し出すロジックがこれです。
‘ 特定のGUIDを持つシェイプを特定する
Public Function FindShapeByGUID(targetID As String) As Shape
Dim p As Page
Dim s As Shape
‘ 全ページ・全レイヤーを走査
For Each p In ActiveDocument.Pages
For Each s In p.FindShapes()
‘ ObjectData内に指定のキーがあるか確認
If s.ObjectData.Item(“MyTrackingID”) = targetID Then
Set FindShapeByGUID = s
Exit Function
End If
Next s
Next p
End Function
—
プロが教える「陥りやすいエラー」と対策
1. `ObjectData` が存在しない場合のエラー
`.Item` をいきなり参照すると、そのキーが存在しない場合に「実行時エラー」でプログラムが停止します。必ず `If s.ObjectData.Count > 0 Then` や、エラーハンドリングを組み合わせる習慣をつけましょう。
2. メモリリークと解放の意識
オブジェクトをループで回す際、`Set s = Nothing` を明示的に行う必要はありませんが、複雑な参照を繰り返す場合は、メモリを食いつぶさないよう、「ループの出口を最短にする」ことを意識してください。`Exit Function` や `Exit For` を恐れてはいけません。
—
実践的アドバイス：なぜこれが必要なのか
例えば、あなたが「顧客管理システム」と連携するプラグインを作るとします。
1. 顧客名を入力し、図形を生成してGUIDを付与する。
2. 顧客データベース側に「この図形のGUID」を保存する。
3. 数日後、その図形がどこに動かされていても、データベースからGUIDをキーにして「この図形はA社のロゴです」と瞬時に特定できる。
この「プログラムと図形が永続的にリンクしている状態」こそが、業務自動化の理想形なのです。
—
最後に：ここをクリアすれば、あなたは変わる
「マクロの記録」は、あくまでCorelDRAWが何を考えているかを知るための「辞書」に過ぎません。その辞書を閉じ、オブジェクトモデルの深い階層（`ObjectData`や`Properties`）に直接手を触れ始めたとき、あなたの自動化ツールは「おもちゃ」から「業務インフラ」へと進化します。
オブジェクトのライフサイクルをコントロールする感覚、少し掴めましたか？
次は、このIDをキーにして、外部のExcelやSQLデータベースと同期させる実装に挑戦してみましょう。
CorelDRAW VBAの道は長いですが、その先に待っているのは「手作業からの完全な解放」です。またいつでも聞きに来てください。あなたのコードが、より洗練されることを楽しみにしています。
