【CorelDRAW VBA】SQL Serverと完全同期する「ベクターアセット自動配置＆管理システム」を作ろう！
こんにちは！いつもデザイン業務やDTPの自動化、お疲れ様です。
「毎日、何十個ものロゴやパーツをファイルサーバーから探して、手動でCorelDRAWに配置している……」
「古いバージョンのロゴをうっかり使ってしまい、刷り直しの冷や汗をかいた……」
そんな悩みを抱えていませんか？
マクロの記録から一歩踏み出し、「外部のデータベース（SQL Server）とCorelDRAWを繋ぐ」という本格的なシステム開発に挑戦してみましょう！
「データベースなんて難しそう……」と思うかもしれませんが、大丈夫。一歩ずつ、仕組みとコードの書き方を紐解いていきます。ここをクリアすれば、あなたのCorelDRAW VBAのスキルは、プロフェッショナルな領域へと一気にステップアップしますよ。
温かいコーヒーでも飲みながら、一緒に学んでいきましょう！
—
1. 全体像をイメージしよう（システム構成図）
まずは、これから作るシステムがどのように動くのか、全体像を頭に描いてみましょう。
今回は、SQL Serverの中に「アセット（ロゴやイラスト）の最新の保存先パスとバージョン」を記録しておき、CorelDRAW VBAがそれを読み取って、自動でキャンバスにインポートする仕組みを作ります。
+————————————————–+
| SQL Server (データベース) |
| – アセットID (e.g., “LOGO001”) |
| – 最新ファイルの絶対パス (e.g., “\\server\…”) |
| – バージョン情報 (e.g., “v2.1”) |
+————————————————–+
│
│ (ADO接続で最新情報をクエリ)
▼
+————————————————–+
| CorelDRAW VBA |
| 1. 指定IDのアセット情報をDBから取得 |
| 2. 指定されたパスからベクター(CDR/EPS)をインポート |
| 3. 図形に「バージョン情報」をメタデータとして埋め込み |
+————————————————–+
このように、ファイルを直接CorelDRAWにハードコーディング（直書き）するのではなく、「データベースに問い合わせて、今一番新しいファイルを連れてくる」のがポイントです。
—
2. 準備：VBAからデータベースにアクセスする「架け橋」を作る
CorelDRAW VBAからSQL Serverに接続するには、ADO（ActiveX Data Objects）というライブラリを使用します。これを使うことで、VBAがSQLという言葉を理解し、データベースと会話できるようになります。
参照設定の手順
1. CorelDRAWを開き、`Alt + F11` キーを押して VBAエディタ（VBE） を起動します。
2. メニューバーの [ツール] ＞ [参照設定] をクリックします。
3. リストの中から 「Microsoft ActiveX Data Objects 6.1 Library」 （環境によっては 2.8 などでも可）にチェックを入れ、[OK] をクリックします。
これで準備完了です！データベースにアクセスする魔法の杖を手に入れました。
—
3. 【実践コード】DB同期型アセットインポーター
それでは、実際に動くコードを見てみましょう。
このマクロは、指定した「アセットID」を元にSQL Serverを検索し、該当するベクターファイル（.cdr や .eps）を自動でキャンバスの中心に配置します。さらに、配置した図形に「これはバージョン2.1のロゴだよ」という情報をこっそり記憶させます。
‘ ==============================================================================
‘ CorelDRAW VBA: SQL Server連携・アセット自動配置システム
‘ ==============================================================================
Option Explicit
Public Sub ImportAssetFromDatabase()
Dim targetAssetID As String
‘ 検索したいアセットIDを指定（実務ではインプットボックスやフォームから取得すると便利です）
targetAssetID = “LOGO_A_001”
‘ 1. データベース接続用の変数宣言
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim connStr As String
Dim sqlQuery As String
‘ 【環境に合わせて書き換えてください】SQL Serverへの接続文字列
‘ ※Windows認証（信頼接続）を使用する例です
connStr = “Provider=MSOLEDBSQL;” & _
“Data Source=YOUR_SERVER_NAME;” & _
“Initial Catalog=AssetManagementDB;” & _
“Integrated Security=SSPI;”
‘ 2. SQLクエリの作成
‘ アセットテーブル（AssetTable）から、指定IDのファイルパスとバージョンを取得します
sqlQuery = “SELECT FilePath, Version FROM AssetTable WHERE AssetID = ‘” & targetAssetID & “‘”
‘ エラーハンドリングの開始（予期せぬ接続エラー対策）
On Error GoTo ErrorHandler
‘ 3. データベースへの接続とデータ取得
Set conn = New ADODB.Connection
conn.Open connStr
Set rs = New ADODB.Recordset
rs.Open sqlQuery, conn, adOpenStatic, adLockReadOnly
‘ レコードが見つかったかチェック
If rs.EOF Then
MsgBox “指定されたアセットID [” & targetAssetID & “] はデータベースに見つかりませんでした。”, vbExclamation, “検索失敗”
GoTo CleanUp
End If
‘ レコードから情報を抽出
Dim filePath As String
Dim assetVersion As String
filePath = rs.Fields(“FilePath”).Value
assetVersion = rs.Fields(“Version”).Value
‘ 4. CorelDRAWへのインポート処理
‘ ドキュメントが開いているか確認
If ActiveDocument Is Nothing Then
‘ 開いていなければ新規作成（A4、ミリメートル単位）
CreateDocument
ActiveDocument.Unit = cdrMillimeter
End If
Dim impOpt As StructImportOptions
Set impOpt = CreateStructImportOptions
Dim impFilter As ImportFilter
Dim importedGroup As ShapeRange
‘ ファイルが実際に存在するか確認
If Dir(filePath) = “” Then
MsgBox “データベースに登録されているファイルパスが存在しません:” & vbCrLf & filePath, vbCritical, “ファイル未検出”
GoTo CleanUp
End If
‘ インポートを実行（アクティブレイヤーに配置）
Set impFilter = ActiveLayer.ImportEx(filePath, cdrEPS, impOpt)
impFilter.Finish
‘ インポートされたオブジェクト（通常はグループ化されたShapeRange）を取得
Set importedGroup = ActiveSelectionRange
‘ 5. CorelDRAWのオブジェクトに「メタデータ」を埋め込む
‘ これにより、後から「この図形がどのバージョンか」をVBAで判定できるようになります
If importedGroup.Count > 0 Then
Dim mainShape As Shape
‘ 選択されたグループの代表オブジェクトにデータを格納
Set mainShape = importedGroup.Shapes(1)
‘ ObjectData（メタデータ保持機能）を使って、IDとバージョンを記憶
‘ ※あらかじめデータフィールド（”AssetID”, “Version”）をドキュメントに登録しておきます
On Error Resume Next
ActiveDocument.DataFields.Add “AssetID”, “DefaultID”, True
ActiveDocument.DataFields.Add “Version”, “1.0”, True
On Error GoTo ErrorHandler
mainShape.ObjectData(“AssetID”).Value = targetAssetID
mainShape.ObjectData(“Version”).Value = assetVersion
‘ 配置完了のメッセージ
MsgBox “アセットの配置が完了しました！” & vbCrLf & _
“ID: ” & targetAssetID & vbCrLf & _
“Ver: ” & assetVersion, vbInformation, “同期成功”
End If
CleanUp:
‘ 6. データベース接続の確実なクローズ（メモリリーク防止）
On Error Resume Next
If Not rs Is Nothing Then
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
End If
If Not conn Is Nothing Then
If conn.State = adStateOpen Then conn.Close
Set conn = Nothing
End If
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
—
4. コードのポイントをやさしく解説！
「ちょっと難しそう……」と思った部分を、先輩が分かりやすく噛み砕いて説明しますね。
① `ADODB.Connection` と `ADODB.Recordset`
- `Connection` は、SQL Serverという巨大な書庫に入るための「入館証」です。サーバーの場所や認証方法を記述した `connStr`（接続文字列）を使って扉を開けます。
- `Recordset` は、書庫から取り出してきた「本のコピー（データ）」です。SQL文で指示した条件に合うデータが、この中に格納されます。
② `ObjectData` を使ったメタデータの保存
これがCorelDRAW VBAの隠れた超強力機能です！
配置したロゴ（図形）自体に、「これは `LOGO_A_001` の `v2.1` だよ」という目印を直接貼り付けることができます。
これをしておくことで、将来「古いバージョンのロゴが使われていないか、ドキュメント全体をスキャンして自動チェックするマクロ」を作ることが可能になります。
③ 徹底した後片付け（`CleanUp`）
VBAで外部データベースを扱うとき、最も大切なのが「開けた扉は必ず閉める」ことです。
もしマクロが途中でエラーを起こして止まってしまうと、SQL Serverへの接続が開いたまま放置され、サーバーに負荷がかかってしまいます。
そのため、`On Error GoTo ErrorHandler` を使って、どんなエラーが起きても必ず最後に `CleanUp` を通り、`conn.Close` と `Set conn = Nothing`（メモリの解放）を行う設計にしています。
—
5. よくあるエラーと乗り越え方のヒント
実務で動かそうとすると、いくつか壁にぶつかることがあります。でも大丈夫、解決策はシンプルです。
エラー1:「プロバイダーが見つかりません」と怒られる
- 原因: 接続文字列内の `Provider=MSOLEDBSQL`（SQL Server用の最新ドライバー）がパソコンにインストールされていない可能性があります。
- 対策: `Provider=SQLOLEDB`（古いですが標準的なドライバー）に書き換えるか、Microsoftの公式サイトから「Microsoft OLE DB Driver for SQL Server」をダウンロードしてインストールしてください。
エラー2: インポートした画像が画面の外に飛んでいってしまう！
- 原因: CorelDRAWの「定規の原点」や「インポート時の座標設定」がずれていると、ドキュメントの遥か彼方に配置されてしまうことがあります。
- 対策: インポート後に `importedGroup.AlignToPageCenter cdrAlignHCenter + cdrAlignVCenter` を実行して、強制的にページ中央に整列させるコードを追加すると、確実に視界に入ってきます。
—
まとめ：この先の未来へ
お疲れ様でした！
ただの「自動操作マクロ」から、「データベースと対話してアセットを管理する本格システム」への第一歩を踏み出しましたね。
今回は「データベースから取得してインポートする」という流れでしたが、逆に「CorelDRAWで作成したパーツをワンクリックでSQL Serverに登録し、ファイルサーバーに自動保存するマクロ」を作ることも可能です。双方向の同期ができるようになれば、社内のデザインワークフローは劇的に進化します。
「ここをもっと詳しく知りたい」「こういうエラーが出たけれどどうすればいい？」などがあれば、ぜひ気軽に挑戦を続けてみてください。
一歩ずつ、焦らずに進めていきましょう。あなたのアートワークとプログラミングのスキルが、より素晴らしいものになりますように！
