CorelDRAW VBAを掌握する極限の知見：SQL Server完全同期型・社内ベクターアセット管理システムの構築
デザインの現場において、「最新ロゴのマスターデータがどれか分からない」「仕様変更のたびに全ローカルPCのアセットを手動で差し替えている」という混乱は、多くの組織が抱えるボトルネックだ。ファイルサーバーに野良 `.cdr` が乱立する状態を放置すれば、ブランドの整合性は音を立てて崩れていく。
これを根絶するためには、SQL Serverを単一の真実のソース（SSOT: Single Source of Truth）とし、CorelDRAWから直接クエリを投げてベクターアセットを同期・自動配置するパイプラインを構築するほかない。
今回は、ファイルI/Oの競合、データベースのコネクション管理、そしてCorelDRAW VBA特有のオブジェクトライフサイクルを完全制御し、実務の現場で決して破綻しないエンタープライズ向けの自動化アーキテクチャを伝授する。
—
1. アーキテクチャ設計：なぜ「ファイル共有」ではなく「DB同期」なのか
多くのエンジニアが犯す最初の過ちは、ネットワーク共有フォルダにマスターファイルを置き、VBAから `FileSystemObject` でアクセスさせる設計だ。このアプローチには致命的な欠陥がある。
1. ファイルロックの競合: 複数デザイナーが同時にアセットにアクセスした際、書き込み競合によるデータ破損（Corrupted File）が多発する。
2. バージョン管理の欠如: 「いつ、誰が、どの仕様に変更したか」のトレーサビリティが担保されない。
3. 検索性の限界: ファイル名やメタデータによる高速な絞り込みが不可能。
解決策：BLOBデータとメタデータの分離管理
SQL Server側でアセットのバイナリ（`.cdr` のストリーム）を `VARBINARY(MAX)` 型として保持し、カテゴリ、タグ、バージョン番号などのメタデータをリレーショナルに管理する。CorelDRAW VBAからはADO（ActiveX Data Objects）を経由して安全にトランザクションを実行し、ローカルの安全な一時領域にストリーミング展開してロードする。
—
2. 堅牢性を極めるための実装上の鉄則
プロダクション環境で稼働するVBAコードを書く上で、以下の原則を外すことは許されない。
- 明示的なコネクションの解放: 接続リークはCorelDRAWプロセス全体の不安定化を招く。必ず `Finally` 相当のエラーハンドリング内で破棄する。
- トランザクション分離: アセットのインポート・エクスポート時は必ずトランザクションを張り、途中破綻を防ぐ。
- Shapeの親コンテキストの厳格化: ドキュメント、レイヤー、シェイプの階層構造を無視した操作は、メモリリークや「オブジェクトがありません」エラーの温床となる。
—
3. プロダクションコード：SQL Server同期型アセットマネージャー
以下のコードは、SQL Serverから指定したアセットIDのベクターデータを取得し、アクティブドキュメントの現在位置に非同期的にインポート、さらにローカルのバージョンと突合して自動保存・同期を行う堅牢なモジュールである。
Option Explicit
‘ ==============================================================================
エンタープライズ向け CorelDRAW & SQL Server アセット同期エンジン
‘ Dependencies: Microsoft ActiveX Data Objects 6.x Library
‘ ==============================================================================
Private Const DB_CONNECTION_STRING As String = “Provider=SQLOLEDB;Server=srv-db-01.internal;Database=DesignAssetsDB;Uid=app_user;Pwd=SecurePassword123;”
Private Const TEMP_FILE_PATH As String = “C:\Temp\CorelSync_Cache.cdr”
Public Sub SyncAndInsertAsset(ByVal assetID As Long)
Dim conn As Object
Dim cmd As Object
Dim rs As Object
Dim mstream As Object
Dim targetDoc As Document
Dim importedShapeRange As ShapeRange
‘ エラーハンドリングの初期化
On Error GoTo ErrorHandler
‘ 1. SQL Server接続の確立
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = DB_CONNECTION_STRING
conn.CommandTimeout = 30
conn.Open
‘ 2. パラメータ化クエリによるSQLインジェクション防止とバイナリ取得
Set cmd = CreateObject(“ADODB.Command”)
Set cmd.ActiveConnection = conn
cmd.CommandText = “SELECT AssetName, Version, BinaryData FROM MasterAssets WHERE AssetID = ?”
cmd.Parameters.Append cmd.CreateParameter(“ID”, adInteger, adParamInput, , assetID)
Set rs = cmd.Execute
If rs.EOF Then
MsgBox “指定されたアセットID (” & assetID & “) はデータベースに存在しません。”, vbCritical, “DB同期エラー”
GoTo CleanUp
End If
Dim assetName As String
Dim dbVersion As Long
assetName = rs.Fields(“AssetName”).Value
dbVersion = rs.Fields(“Version”).Value
‘ 3. BLOBデータを一時ファイルとしてローカルディスクにストリーミング出力
Set mstream = CreateObject(“ADODB.Stream”)
mstream.Type = 1 ‘ adTypeBinary
mstream.Open
mstream.Write rs.Fields(“BinaryData”).Value
‘ 既存のキャッシュファイルが存在すれば削除
If Dir(TEMP_FILE_PATH) <> “” Then
Kill TEMP_FILE_PATH
End If
mstream.SaveToFile TEMP_FILE_PATH, 2 ‘ adSaveCreateOverWrite
mstream.Close
‘ 4. CorelDRAWドキュメントコンテキストの検証
If Application.Documents.Count = 0 Then
Set targetDoc = Application.CreateDocument()
Else
Set targetDoc = Application.ActiveDocument
End If
‘ 5. トランザクション処理の安全なインポート
targetDoc.BeginCommandGroup “SQL Asset Import: ” & assetName
‘ 外部CDRファイルをアクティブレイヤーにマージインポート
Dim importedLayer As Layer
Set importedLayer = targetDoc.ActiveLayer
‘ ターゲットファイルをインポート
Dim importFilter As ImportFilter
Set importFilter = importedLayer.ImportEx(TEMP_FILE_PATH, cdrCDR)
importFilter.Finish
‘ インポートされたシェイプ群の後処理（中央配置など）
Set importedShapeRange = targetDoc.SelectionRange
If Not importedShapeRange Is Nothing Then
‘ センター揃えのロジック
importedShapeRange.CenterX = targetDoc.Pages.Item(1).SizeWidth / 2
importedShapeRange.CenterY = targetDoc.Pages.Item(1).SizeHeight / 2
End If
targetDoc.EndCommandGroup
MsgBox “アセット [” & assetName & ” (v” & dbVersion & “)] の同期と配置が完了しました。”, vbInformation, “同期成功”
CleanUp:
‘ 6. オブジェクトのライフサイクル管理：厳格なメモリ解放
On Error Resume Next
If Not mstream Is Nothing Then If mstream.State = 1 Then mstream.Close: Set mstream = Nothing
If Not rs Is Nothing Then If rs.State = 1 Then rs.Close: Set rs = Nothing
Set cmd = Nothing
If Not conn Is Nothing Then If conn.State = 1 Then conn.Close: Set conn = Nothing
Exit Sub
ErrorHandler:
If Not targetDoc Is Nothing Then
targetDoc.AbortCommandGroup
End If
MsgBox “致命的なエラーが発生しました: ” & Err.Description & ” (Line: ” & Erl & “)”, vbCritical, “システムエラー”
Resume CleanUp
End Sub
—
4. コードの解説とアーキテクチャの急所
1. パラメータ化クエリ（`ADODB.Command`）の採用
文字列結合によるSQL構築は、アセット名にシングルクォートが含まれた場合に即座にシンタックスエラーを引き起こすだけでなく、セキュリティ上の脆弱性を生む。必ず `CreateParameter` を用いた型安全なクエリを発行すること。
2. ADODB.Stream によるバイナリハンドリング
SQL Serverの `VARBINARY(MAX)` から取得したチャンクは、一度 `ADODB.Stream` を経由してバイナリモードでローカルに書き出す。このプロセスを挟むことで、CorelDRAWの `ImportEx` メソッドが安定して読み込めるファイルストリームを保証する。
3. UNDO/REDO グループのトランザクション化（`BeginCommandGroup` / `EndCommandGroup`）
インポート処理中に万が一エラーや意図しない中断が発生した場合、中途半端なシェイプがドキュメントに残る。コマンドグループで囲むことにより、エラー発生時は一撃でアトミックにロールバック（`AbortCommandGroup`）させることが可能になる。
—
5. 運用時の注意点とインフラ要件
- ネットワーク遅延の考慮: SQL Serverとの通信タイムアウト（`CommandTimeout`）は、マスターアセットのファイルサイズ（数MB〜数十MBの複雑なベクター）を考慮し、最低30秒以上に設定すること。
- ローカルキャッシュのクリーンアップ: 一時ファイル（`TEMP_FILE_PATH`）は毎回上書きされる設計になっているが、セキュリティやディスク肥大化を防ぐために、CorelDRAW終了時（`GlobalMacroStorage_ApplicationClose` など）に削除するフックを用意しておくのが望ましい。
組織全体の生産性を底上げするカギは、属人化された手作業の排除にある。このアーキテクチャを導入すれば、デザイナーは「正しいアセットを探す」という無駄な創造的浪費から解放され、純粋なデザインワークにのみ集中できるようになるはずだ。
