CorelDRAW VBAを掌握する極限の知見
【上級プロ向け】外部リレーショナルデータベース（SQL Server）と完全同期した社内ベクターパーツ管理システム
開発現場でよくある失敗から話を始めよう。
「社内で共有すべきロゴやベクターパーツが、個人のローカルドライブのあちこちに散らばっている」「バージョン管理が崩壊し、古いレガシーデータが印刷現場に流出する」。この泥沼から抜け出すために、ネットワーク共有フォルダにCDRファイルを並べるアプローチをとるチームがあるが、それは一時しのぎの愚策にすぎない。排他制御の欠如、メタデータ検索の遅延、そして何よりスケーラビリティの限界がすぐに牙を剥く。
真にエンタープライズなデザインワークフローを構築したいのであれば、外部リレーショナルデータベース（SQL Server）とCorelDRAWを直結させ、ベクターアセットをバイナリとして、タグや属性をリレーショナルデータとして一元管理するシステムを構築すべきだ。
本稿では、CorelDRAW VBAの生命線であるオブジェクトのライフサイクルと、ADO（ActiveX Data Objects）を通じた堅牢なDB連携を極限までチューニングし、実務で即座に稼働するプロダクションコードの全貌を伝授する。
—
1. アーキテクチャ設計の核心：なぜ「ファイルパスの保存」では破綻するのか？
多くの初学者は、DBに「ファイルの保存パス」だけを記録し、CorelDRAWからファイルを読み込もうとする。しかし、ネットワーク環境の変更、ファイルの移動、権限の問題、そして「ファイルが上書き削除された場合のゾンビレコード問題」により、この設計は必ず破綻する。
エンタープライズ要件を満たすためには、以下の原則を死守する必要がある。
1. バイナリ直格納（VARBINARY(MAX)）: ベクターパーツの実体（.cdr または .emf/.svg 等の中間フォーマット）は、SQL ServerのDB内に直接バイナリとして保持する。
2. ステートレスなインポート: CorelDRAW側にはローカルキャッシュのみを持ち、インポート時は常にDBからストリームまたは一時ファイル経由でメモリ上に展開する。
3. トランザクション整合性: アセットの登録・更新は、メタデータとバイナリデータを単一のトランザクションで処理し、データの不整合を物理的に防ぐ。
—
2. プロダクションコード：SQL Server完全同期システム
以下のコードは、SQL Serverからキーワードでベクターパーツを検索し、アクティブドキュメントの指定座標に動的インポート、逆に選択中のベクターオブジェクトをDBへ新規登録・更新する統合モジュールである。
このコードは、エラーハンドリング、ADO接続の明示的な解放、CorelDRAWの画面描画抑制（パフォーマンスの最大化）を完備したプロダクションクオリティとなっている。
Option Explicit
‘ ==============================================================================
‘ モジュール名: mVectorAssetManager
‘ 概要: SQL ServerとCorelDRAWを直結し、ベクターパーツの双方向同期を行う
‘ 依存関係: Microsoft ActiveX Data Objects 6.x Library
‘ ==============================================================================
Private Const DB_CONNECTION_STRING As String = _
“Provider=SQLOLEDB;Server=192.168.1.100;Database=VectorAssetDB;Uid=AppUser;Pwd=SecurePassword123;”
Public Sub SearchAndImportAsset()
Dim conn As Object
Dim cmd As Object
Dim rs As Object
Dim keyword As String
Dim tempFilePath As String
Dim fileNum As Integer
Dim byteData() As Byte
‘ ユーザーから検索キーワードを取得
keyword = InputBox(“検索するベクターパーツのキーワードを入力してください:”, “SQL Server アセット検索”)
If Trim(keyword) = “” Then Exit Sub
‘ 画面描画とイベントを停止し、実行速度を極限まで引き上げる
EventsEnabled = False
ActiveDocument.BeginCommandGroup “DB Asset Import”
On Error GoTo ErrorHandler
‘ ADOオブジェクトの初期化
Set conn = CreateObject(“ADODB.Connection”)
Set cmd = CreateObject(“ADODB.Command”)
conn.Open DB_CONNECTION_STRING
Set cmd.ActiveConnection = conn
‘ パラメータ化クエリによるSQLインジェクション防御
cmd.CommandText = “SELECT BinaryData, FileExtension FROM AssetMaster WHERE AssetName LIKE ? AND IsActive = 1”
cmd.Parameters.Append cmd.CreateParameter(“p1”, 200, 1, 100, “%” & keyword & “%”) ‘ adVarChar = 200
Set rs = cmd.Execute
If rs.EOF And rs.BOF Then
MsgBox “該当するアセットが見つかりませんでした。”, vbExclamation, “検索結果”
GoTo CleanUp
End If
‘ バイナリデータを一時ファイルとして吐き出す（CorelDRAWのインポートAPIの制約対策）
byteData = rs.Fields(“BinaryData”).Value
tempFilePath = Environ$(“TEMP”) & “\corel_temp_asset.” & rs.Fields(“FileExtension”).Value
fileNum = FreeFile
Open tempFilePath For Binary Access Write As #fileNum
Put #fileNum, , byteData
Close #fileNum
‘ ドキュメントにインポート
Dim impFilter As ImportFilter
Dim importedShapeRange As ShapeRange
Set impFilter = ActiveLayer.ImportEx(tempFilePath, GetImportFilterID(rs.Fields(“FileExtension”).Value))
impFilter.Finish
‘ インポート直後のシェイプをアクティブ中心に配置調整
Set importedShapeRange = ActiveSelectionRange
importedShapeRange.CenterX = ActivePage.CenterX
importedShapeRange.CenterY = ActivePage.CenterY
MsgBox “アセットのインポートに成功しました。”, vbInformation, “完了”
CleanUp:
‘ リソースの確実な解放
On Error Resume Next
If Not rs Is Nothing Then rs.Close
If Not conn Is Nothing Then conn.Close
Set rs = Nothing
Set cmd = Nothing
Set conn = Nothing
‘ 一時ファイルの削除
If Len(tempFilePath) > 0 Then
If Dir(tempFilePath) <> “” Then Kill tempFilePath
End If
ActiveDocument.EndCommandGroup
EventsEnabled = True
Exit Sub
ErrorHandler:
MsgBox “データベース連携エラー: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
Public Sub ExportSelectedAssetToDB()
Dim conn As Object
Dim cmd As Object
Dim assetName As String
Dim fileExtension As String
Dim exportPath As String
Dim fileNum As Integer
Dim byteData() As Byte
Dim sh As Shape
‘ 選択チェック
If ActiveSelection.Shapes.Count = 0 Then
MsgBox “DBに登録するベクターオブジェクトを選択してください。”, vbExclamation, “選択エラー”
Exit Sub
End If
assetName = InputBox(“登録するアセットの名称を入力してください:”, “SQL Server アセット登録”)
If Trim(assetName) = “” Then Exit Sub
‘ 一時エクスポート用のパス（CDR形式としてエクスポート）
fileExtension = “cdr”
exportPath = Environ$(“TEMP”) & “\corel_export_asset.” & fileExtension
EventsEnabled = False
ActiveDocument.BeginCommandGroup “DB Asset Export”
On Error GoTo ErrorHandler
‘ 選択範囲を一時的にCDRとしてエクスポート
Dim expFilter As ExportFilter
Set expFilter = ActiveDocument.ExportEx(exportPath, cdrCDR, cdrSelection)
expFilter.Finish
‘ エクスポートされたファイルをバイト配列に読み込む
fileNum = FreeFile
Open exportPath For Binary Access Read As #fileNum
ReDim byteData(LOF(fileNum) – 1)
Get #fileNum, , byteData
Close #fileNum
‘ データベースへバイナリを保存
Set conn = CreateObject(“ADODB.Connection”)
Set cmd = CreateObject(“ADODB.Command”)
conn.Open DB_CONNECTION_STRING
Set cmd.ActiveConnection = conn
‘ 既存同名アセットの有無を確認してUPSERT、または新規Insert
cmd.CommandText = “INSERT INTO AssetMaster (AssetName, FileExtension, BinaryData, CreatedAt, IsActive) VALUES (?, ?, ?, GETDATE(), 1)”
cmd.Parameters.Append cmd.CreateParameter(“p1”, 200, 1, 100, assetName)
cmd.Parameters.Append cmd.CreateParameter(“p2”, 200, 1, 10, fileExtension)
cmd.Parameters.Append cmd.CreateParameter(“p3”, 205, 1, LenB(byteData), byteData) ‘ adLongVarBinary = 205
cmd.Execute
MsgBox “アセットのDB登録が完了しました。”, vbInformation, “成功”
CleanUp:
On Error Resume Next
If Not conn Is Nothing Then conn.Close
Set cmd = Nothing
Set conn = Nothing
If Len(exportPath) > 0 Then
If Dir(exportPath) <> “” Then Kill exportPath
End If
ActiveDocument.EndCommandGroup
EventsEnabled = True
Exit Sub
ErrorHandler:
MsgBox “DB登録エラー: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
Private Function GetImportFilterID(ByVal ext As String) As Long
‘ 拡張子に応じたCorelDRAWのインポートフィルターIDを返す
Select Case LCase(ext)
Case “cdr”: GetImportFilterID = cdrCDR
Case “svg”: GetImportFilterID = cdrSVG
Case “eps”: GetImportFilterID = cdrEPS
Case Else: GetImportFilterID = cdrCDR
End Select
End Function
—
3. チーフアーキテクトが指摘する「見落としがちな罠」と最適化の極意
このシステムを現場に導入する際、以下のアーキテクチャ上のボトルネックに直面することがある。プロフェッショナルとして、あらかじめ対策を講じておこう。
① `EventsEnabled = False` の重要性と例外処理の担保
CorelDRAW VBAにおいて、大量のシェイプ操作やインポート処理を行う際、UIイベント（画面再描画やユーザーインタラクション）が有効なままだと、処理速度が何十倍も低下し、最悪の場合はフリーズする。上記のコードの通り、処理の最初で `EventsEnabled = False` にし、終了時（およびエラー時）に必ず `True` に戻す設計が不可欠である。エラー時にこれが `False` のまま取り残されると、CorelDRAWのUIが完全ロックされるため、`On Error GoTo` による確実なクリーンアップ経路の確保が命綱となる。
② バイナリデータのサイズ制限とSQL Serverのチューニング
`VARBINARY(MAX)` を使用する場合、SQL Server側のネットワークパケットサイズや、ADOのストリームバッファサイズを超える巨大なCDRファイル（例えば数百MBのハイレゾ効果を含むベクターデータ）を扱おうとすると、タイムアウトやメモリ不足エラーを引き起こす。
- 対策: 社内パーツとして登録するベクターデータは、事前に不要なノードの削減（パージ）や、エフェクトのフラット化を行い、ファイルサイズを数MB以内に最適化するガイドラインを組織内で設けること。
③ メモリリークの完全排除
VBAのADOラッパーは、オブジェクトの参照解放（`Set rs = Nothing`, `Set conn = Nothing`）を明示的に行わないと、プロセス終了までメモリ上に残存し続ける。特に長時間の常駐作業や、一日に何百回もインポート・エクスポートを繰り返す現場では、これが原因でCorelDRAW本体がクラッシュする。上記のコードのように、ローカルスコープであっても処理終了時には必ずオブジェクトを明示的に破棄せよ。
—
総括
外部DBとCorelDRAWをVBAで完全に調停させるこのアーキテクチャは、単なる「ファイルの便利管理ツール」の枠を超え、企業のデザイン資産のガバナンスそのものを強固にする。
属人化しがちなデザインデータをエンジニアリングの力で統制し、真にスケーラブルな制作インフラをあなたの組織に根付かせてほしい。
