【CorelDRAW VBA】CDRの「深淵」へ：カスタムXMLメタデータで実現する完全同期ストレージ戦略
CorelDRAWを単なる「お絵描きツール」として扱っているうちは、自動化の恩恵は限定的だ。真の自動化エンジニアであれば、CDRファイルを単なるグラフィックデータとしてではなく、「ビジネスロジックを内包した自己完結型データベース」として捉えるべきである。
今回は、外部DBへの依存という脆弱性を排除し、CDRファイルそのものに発注IDや進捗状況といったメタデータを「XML形式」で埋め込み、同期させる極限の手法を伝授する。
—
1. なぜ「外部ファイル」ではなく「ファイル内部」か
多くのエンジニアがやりがちなミスは、CDRファイルとは別にJSONやCSVをサイドカーとして配置することだ。これは、ファイル移動時のリンク切れ、バックアップの不整合、ユーザーによる誤削除という「管理コストの地獄」を招く。
CorelDRAWの `Storage` オブジェクトを活用すれば、CDRファイルの中にバイナリデータを不可視のまま埋め込める。これは、データと図形が物理的に分離不能であることを意味し、「ファイルさえあれば、すべてのメタデータが保証される」という、堅牢な業務フローを構築できる。
—
2. 核心技術：`Storage` オブジェクトを掌握する
CorelDRAW VBAには、文書オブジェクト配下に `Storages` コレクションが存在する。これを利用してXMLストリームを読み書きする。
実装のポイント：
- ストレージ名の一意性: `Storage` には一意のIDを与えること。
- エンコーディング: XMLはUTF-8で扱う。
- 例外処理: ファイル保存時のストリーム競合を避ける設計にする。
【プロダクションコード】メタデータ管理モジュール
このコードは、CDRドキュメント内に「BusinessData」という名前のXMLストレージを生成・読み書きする実用的なクラスの核となる。
‘ ——————————————————————
‘ クラス名: MetaDataManager
‘ 概要: CDR内部にXMLメタデータを安全に埋め込み・抽出する
‘ ——————————————————————
Option Explicit
Private Const STORAGE_KEY As String = “BusinessData”
‘ XMLをCDR内部に保存する
Public Sub SaveMetaData(ByVal xmlContent As String)
Dim doc As Document
Set doc = ActiveDocument
‘ 既存のストレージがあれば削除して更新（完全同期）
If doc.Storages.Exists(STORAGE_KEY) Then
doc.Storages(STORAGE_KEY).Delete
End If
‘ 新規ストレージを作成しデータを書き込み
Dim store As Storage
Set store = doc.Storages.Add(STORAGE_KEY)
‘ ストリームを開いてデータを書き込む
Dim stream As Object
Set stream = store.Open(cdrStorageAccessWrite)
stream.Write xmlContent
stream.Close
Debug.Print “Metadata Synchronized Successfully.”
End Sub
‘ CDR内部からXMLを取り出す
Public Function LoadMetaData() As String
Dim doc As Document
Set doc = ActiveDocument
If Not doc.Storages.Exists(STORAGE_KEY) Then
LoadMetaData = “”
Exit Function
End If
Dim store As Storage
Set store = doc.Storages(STORAGE_KEY)
Dim stream As Object
Set stream = store.Open(cdrStorageAccessRead)
LoadMetaData = stream.Read
stream.Close
End Function
—
3. 実務で「崩壊」を防ぐためのアーキテクチャ設計
コードをコピペするだけでは不十分だ。現場で生き残るための「設計思想」を注入せよ。
① スキーマの固定化
XML構造は常にバージョン管理せよ。将来的にフィールドを追加する場合、XMLのルート要素に `version` 属性を持たせるのは常識だ。これを怠ると、旧バージョンのファイルを開いた際にパースエラーが発生し、運用が停止する。
② 「保存」のフック
ユーザーが手動で保存した際に、メタデータが最新であることを保証する必要がある。`GlobalMacros` の `DocumentBeforeSave` イベントを必ず利用すること。
‘ GlobalMacrosモジュール内に記述
Private Sub GlobalMacroStorage_DocumentBeforeSave(ByVal Doc As Document, ByVal FileName As String)
‘ 保存直前にメタデータの妥当性をチェックし、自動更新するロジックをここに配置
‘ これにより、常にファイルと最新ビジネスデータが同期される
End Sub
③ データ競合の回避
CorelDRAWのVBAはシングルスレッドだ。しかし、ネットワークドライブ上のファイルを編集する場合、排他制御は非常に脆い。メタデータの更新後は、必ず `ActiveDocument.Save` を呼ぶフローを徹底させること。
—
4. 最後に：エンジニアとしての矜持
この手法を導入すれば、あなたの自動化ツールは単なる「スクリプト」から「堅牢な業務プラットフォーム」へと進化する。
「便利だから作る」のはアマチュアだ。「障害が起きないことを証明できるから作る」のがプロの仕事である。CorelDRAWのバイナリの深淵に触れるこの技術は、あなたの自動化プロジェクトを次の次元へ引き上げるはずだ。
次は、このメタデータとWeb APIを直接連携させ、CDRを開くだけで進捗をサーバーから自動取得する仕組みに挑戦してみるといい。道は開かれている。
