こんにちは！CorelDRAW VBAの世界へようこそ。
今日は、マクロの記録を卒業し、一歩進んだ「実務で使えるプロフェッショナルな自動化」を目指すあなたへ、とてもワクワクするテーマをお届けします。
テーマはずばり、「GUIDを活用したオブジェクトの固有追跡と、外部データベース（Excel等）連携への布石」です。
「なんだか難しそう……」と思いましたか？
大丈夫です。ここをクリアすれば、CorelDRAWは単なるお絵描きソフトから、「製造・デザイン・管理を統合する最強のデータベース端末」へと生まれ変わります。優しく、そして本質的なところまでしっかりと紐解いていきますので、ぜひついてきてくださいね！
—
1. なぜ「GUID」とCorelDRAWを組み合わせるのか？
私たちが普段作成する図面やデザインデータには、たくさんの「シェイプ（図形）」が含まれています。例えば、看板のレイアウト、製品のパーツ図、アパレルの型紙などなど。
ここで、よくある現場の課題を考えてみましょう。
- 「この図形、Excelの管理台帳のどの行データだっけ？」
- 「図形が移動したりコピーされたりすると、どれがどれだかわからなくなる……」
CorelDRAWのオブジェクトには、標準で `.Name`（名前）というプロパティがあります。これを使って「Product_001」などと名前を付けることもできますが、名前は人間が重複させてしまったり、後から書き換えられてしまったりするリスクがあります。
そこで登場するのが GUID（Globally Unique Identifier：世界一意識別子） です。
「`{F81D4FAE-7DEEC-48D0-9D66-3AF10C7338C1}`」のような、世界中で絶対に重複しない文字列を各シェイプの「心臓部（メタデータ）」に埋め込んでしまいます。
これにより、「図形がどこに移動しようが、名前を変えられようが、GUIDさえ持っていればExcel側のデータと一生迷わず紐づけられる」という、堅牢な連携基盤が完成するのです。
—
2. CorelDRAW VBAの基礎：オブジェクトの階層構造を知ろう
コードを書く前に、CorelDRAWのオブジェクトモデル（DOM）の基本を確認しておきましょう。CorelDRAWの世界は、綺麗なお人形さんのマトリョーシカ構造になっています。
[Application] （CorelDRAW本体）
└── [Document] （開いているファイル）
└── [Layer] （レイヤー）
└── [Shape] （四角、丸、文字などの図形たち）
シェイプに固有のデータを埋め込むには、この `Shape` オブジェクト に対して「外部データを記憶させる仕組み」を使います。CorelDRAW VBAには、シェイプの背後に隠しデータ（`Usergebnis` や `Data` プロパティなど、あるいはVBの機能を用いたカスタムプロパティ）を持たせるアプローチがありますが、今回は最も確実でスマートな 「ShapeのUltraData / Object Data（オブジェクトデータ）」 または 「ShapeのUser Properties」 をシミュレートする、実用的なアプローチをコードで解説します。
—
3. 実践！GUIDを生成してシェイプに埋め込むVBAコード
それでは、実際に動かせるコードを見てみましょう。
このスクリプトは、選択したシェイプ（または新規作成したシェイプ）に対して、WindowsのAPIやVBAの関数を使ってGUIDを自動生成し、シェイプの「Data（メタデータ）」として刻み込むものです。
‘ ==============================================================================
‘ テーマ: シェイプにGUIDを付与し、Excel等の外部データ連携の礎とする
‘ 著者: チーフアーキテクトからのメッセージ
‘ ==============================================================================
Sub AssignGUIDToSelectedShapes()
Dim sr As ShapeRange
Dim sh As Shape
Dim guidString As String
‘ 1. 現在ドキュメントが開かれているかチェック
If ActiveDocument Is Nothing Then
MsgBox “ドキュメントが開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
‘ 2. 選択中のシェイプを取得
Set sr = ActiveSelectionRange
If sr.Count = 0 Then
MsgBox “GUIDを付与するシェイプを選択してください。”, vbExclamation, “警告”
Exit Sub
End If
‘ 3. 選択されたすべてのシェイプをループ処理
For Each sh In sr
‘ すでにGUIDを持っているかチェック（重複付与を防ぐ）
guidString = GetShapeGUID(sh)
If guidString = “” Then
‘ まだ持っていなければ、新しくGUIDを生成する
guidString = CreateNewGuid()
‘ シェイプの「Data（オブジェクトデータ機能）」にGUIDを書き込む
‘ ※CorelDRAWのCdrDataフィールドを利用
sh.Properties(“ExtData”) = guidString
Debug.WriteLine “新規GUID付与: ” & guidString
Else
Debug.WriteLine “既存のGUIDを維持: ” & guidString
End If
Next sh
MsgBox sr.Count & “個のシェイプにGUIDの紐付けが完了しました！”, vbInformation, “成功”
End Sub
‘ ——————————————————————————
‘ 補助関数: 32桁の美しいGUID（UUID）文字列を生成する関数
‘ ——————————————————————————
Function CreateNewGuid() As String
Dim TypeLib As Object
Dim Guid As Object
‘ COMオブジェクトを使用して確実にユニークなGUIDを生成
Set TypeLib = CreateObject(“Scriptlet.TypeLib”)
Guid = TypeLib.Guid
‘ 両端の余計な文字（{ と } など）を整理して返す
CreateNewGuid = Left(Guid, Len(Guid) – 2)
End Function
‘ ——————————————————————————
‘ 補助関数: シェイプから既存のGUIDを取得する関数
‘ ——————————————————————————
Function GetShapeGUID(sh As Shape) As String
On Error Resume Next
‘ ExtDataプロパティから値を取得。エラー（未設定）なら空文字を返す
GetShapeGUID = sh.Properties(“ExtData”)
If Err.Number <> 0 Then
GetShapeGUID = “”
End If
On Error GoTo 0
End Function
コードのここがポイント！
- `CreateNewGuid()` 関数: `Scriptlet.TypeLib` というWindows標準のコンポーネントを利用して、一瞬で世界に一つだけのGUIDを作り出しています。面倒な乱数計算を自前でする必要はありません。
- `sh.Properties(“ExtData”)`: CorelDRAWのシェイプが持つ拡張プロパティ領域にGUIDを保存しています。これにより、図面を保存して閉じても、再び開いたときに「あ、この図形はあのデータだな」と追跡が可能になります。
—
4. 陥りやすい罠とエンジニアの知見
ここで、現場で開発する際によくある「ハマりポイント」を先回りして共有しておきます。
⚠️ 罠1：グループ化（Group）したときの挙動
複数のシェイプをグループ化すると、CorelDRAWは「グループという親シェイプ」を作り、その中に「子シェイプ」を格納します。
- 対策: グループ化する「前」の個別のパーツ（部品）ごとにGUIDを持たせるのか、それとも「完成したアセンブリ（グループ）」全体に持たせるのか、設計思想をあらかじめ決めておきましょう。基本的には、最小構成パーツにGUIDを持たせるのがデータベース連携では王道です。
⚠️ 罠2：コピペ（複製）したときのGUIDの重複
CorelDRAW上でシェイプを「Ctrl + C」→「Ctrl + V」で複製すると、背後に持っているメタデータ（今回のGUID）ごと複製されてしまいます。
- 対策: 完全に新しい別のオブジェクトとして複製する場合は、コピー直後にVBAで新しいGUIDに上書き（再生成）するトリガーを仕込んでおく必要があります。これが完璧にできるようになると、一級品の自動化エンジニアです。
—
5. 外部データベース（Excel）連携への布石
さて、シェイプにGUIDを刻み込めるようになったら、いよいよ外部（Excelなど）との連携のステージに進めます。
イメージとしてはこんな流れです：
1. Excel側: 「商品名」「価格」「納期」「GUID」の列がある台帳を用意する。
2. CorelDRAW側: ボタン一つで図面内の全シェイプのGUIDをスキャンし、Excelへデータを吸い上げる（あるいは逆も然り）。
3. 結果: 図面をクリックするだけで、Excelの対応する行がハイライトされるような夢のシステムが完成！
今回はその第一歩として、「現在選択しているシェイプが持っているGUIDをイミディエイトウインドウ（Ctrl + G）に出力するマクロ」も試してみてください。
Sub CheckMyGUID()
If ActiveSelectionShape Is Nothing Then
MsgBox “シェイプを選択してください。”
Exit Sub
End If
Dim myGuid As String
myGuid = GetShapeGUID(ActiveSelectionShape)
If myGuid <> “” Then
MsgBox “このシェイプのGUIDは次の通りです:\n” & myGuid, vbInformation
Else
MsgBox “このシェイプにはまだGUIDが割り当てられていません。”, vbExclamation
End If
End Sub
—
まとめ
今回は、CorelDRAW VBAにおける「GUIDを活用したオブジェクトの固有追跡と、外部データ連携の基礎」について解説しました。
- シェイプに世界に一つだけの名札（GUID）を覚え込ませる。
- CorelDRAWの拡張プロパティを活用してデータを永続化する。
- グループや複製時の注意点を踏まえて堅牢な設計にする。
ここをクリアすれば、単なるデザインツールの枠を超えた、あなただけの強力な業務システムをCorelDRAW内に構築できるようになります。「ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ！」
ぜひご自身の環境でコードを試して、イミディエイトウインドウに浮かび上がるGUIDを確認してみてください。次のステップでは、これをExcel VBAと連携させる方法について解説していきましょう。それでは、ハッピー・コーディング！
