こんにちは！CorelDRAW VBAの世界へようこそ。
これまで「マクロの記録」ボタンを押して操作を再現するだけだったり、単にローカルフォルダにファイルを散らかった状態で保存したりしていませんか？
今回は、プログラミング初学者や「そろそろマクロの記録から脱却したい！」と本気で考えているあなたに向けて、少し背伸びをした、しかし実務では最強の武器になるテーマをお届けします。
取り上げるのは「外部SQL Serverと完全同期する、社内ベクターアセット管理・自動保存・バージョン管理システム」です。
「うわ、データベースとか難しそう……」なんて身構えなくて大丈夫。先輩エンジニアの私が、裏側の仕組みからコードの書き方、そして絶対に踏んではいけない地雷（エラー対策）まで、一つひとつ優しく噛み砕いて解説します。ここをクリアすれば、あなたのCorelDRAW VBAスキルは一気にプロの領域へ到達しますよ。それでは、一緒にマスターしていきましょう！
—
1. なぜ「SQL Server × CorelDRAW」なのか？
私たちが日常的に作成するベクターアセット（ロゴ、アイコン、テンプレートなど）。これらを個人のPCや共有フォルダにバラバラに保存していると、以下のような「地獄」が訪れます。
- 「あれ、最新版のロゴデータってどれだっけ？」
- 「営業部が勝手に古いデザインを使ってクレームになった」
- 「誰がいつ、どんなタグ（メタデータ）をつけて保存したか分からない」
これを解決するのが、データベース（SQL Server）による中央集権管理です。
CorelDRAWでデザインを描き、「保存」ボタン（あるいは自動処理）を押した瞬間、VBAが裏側でSQL Serverと通信し、以下の処理を完ぺきに同期させます。
1. デザインのメタデータ（タイトル、作成者、タグ、バージョン）をDBのレコードとして登録。
2. CorelDRAWの画面からサムネイル（PNG等）を自動生成し、バイナリデータとしてDBに格納。
3. 実際の`.cdr`ファイルを指定のサーバー領域にバージョン番号付きで安全に自動保存。
この仕組みを構築すれば、社内の誰もが「常に最新の公式アセット」にアクセスできるようになります。夢が広がりませんか？
—
2. 全体アーキテクチャのイメージ
システム全体の動きを図解的にイメージしてみましょう。
+——————————————————-+
| CorelDRAW 画面 |
| [デザイン作成] -> [VBAマクロ実行] |
+————————–+—————————-+
|
+—————-+—————-+
| (ADO接続) | (ファイル保存)
v v
+———————–+ +——————–+
| SQL Server | | 共有サーバー |
| – メタデータ(SQL) | | Asset_v1.0.cdr |
| – プレビュー画像(BLOB)| | Asset_v1.1.cdr |
+———————–+ +——————–+
VBAから外部データベースを叩くためには、ADO (ActiveX Data Objects)という技術を使います。これを使うと、ExcelやAccessだけでなく、CorelDRAWの中からも直接SQL Serverへデータを出し入れできるようになるのです。
—
3. 実装コード：完全同期・自動保存マクロ
それでは、実際に動くコードを見ていきましょう。
初学者の方でも迷わないよう、すべての行に丁寧なコメントを入れています。開発環境（VBAエディタ）の「参照設定」から 「Microsoft ActiveX Data Objects 6.X Library」 にチェックを入れてから使用してくださいね。
Sub SyncAssetToSQLServer()
‘ =========================================================================
‘ 概要: 現在アクティブなCorelDRAWドキュメントをSQL Serverと同期し、
‘ バージョン管理付きで自動保存するエンタープライズマクロ
‘ =========================================================================
On Error GoTo ErrorHandler ‘ エラーハンドリングの罠を回避するためのお呪い
Dim doc As Document
Set doc = ActiveDocument
‘ ドキュメントが未保存の場合は一度ローカルに保存させるガード節
If doc.IsSaved = False Then
MsgBox “まずはドキュメントを一度保存してください。”, vbCritical, “エラー”
Exit Sub
End If
‘ — 1. 変数の定義 —
Dim conn As Object
Dim cmd As Object
Dim connectionString As String
Dim assetName As String
Dim authorName As String
Dim versionNo As String
Dim savePath As String
Dim pngExportPath As String
‘ — 2. メタデータの取得（本来はユーザーフォーム等から入力させます） —
assetName = doc.Title
authorName = Application.UserName
versionNo = “1.0.0” ‘ 本来はDBから最新バージョンを取得してインクリメント
‘ 保存先のパス定義（社内共有サーバーを想定）
savePath = “\\server\shared\assets\” & assetName & “_v” & versionNo & “.cdr”
pngExportPath = “C:\Temp\preview_temp.png”
‘ — 3. プレビュー画像（PNG）の自動エクスポート —
‘ データベースのサムネイル用に、アクティブページのプレビューを生成します
Dim expFilter As ExportFilter
Set expFilter = doc.ExportBitmap(pngExportPath, cdrPNG, cdrSelection, cdrAllPages, 300, 300, 72, 72, cdrNoAntiAliasing, False, True, True, False)
expFilter.Finish
‘ — 4. 実際のCDRファイルの保存 —
doc.SaveAs savePath, cdrVBA
‘ — 5. ADOを用いたSQL Serverへの接続とデータ同期 —
Set conn = CreateObject(“ADODB.Connection”)
‘ 接続文字列の設定（SQL Server認証の例）
connectionString = “Provider=SQLOLEDB;Server=your_sql_server_ip;Database=AssetDB;Uid=your_user;Pwd=your_password;”
conn.Open connectionString
‘ パラメータ化クエリを用いた安全なSQL実行（SQLインジェクション対策）
Dim sql As String
sql = “INSERT INTO AssetMaster (AssetName, Author, Version, FilePath, CreatedDate) VALUES (?, ?, ?, ?, GETDATE())”
Set cmd = CreateObject(“ADODB.Command”)
Set cmd.ActiveConnection = conn
cmd.CommandText = sql
‘ パラメータの追加
cmd.Parameters.Append cmd.CreateParameter(“AssetName”, 200, 1, 255, assetName)
cmd.Parameters.Append cmd.CreateParameter(“Author”, 200, 1, 100, authorName)
cmd.Parameters.Append cmd.CreateParameter(“Version”, 200, 1, 20, versionNo)
cmd.Parameters.Append cmd.CreateParameter(“FilePath”, 200, 1, 500, savePath)
‘ 実行
cmd.Execute
‘ — 6. クリーンアップ —
conn.Close
Set cmd = Nothing
Set conn = Nothing
‘ テンポラリ画像の削除
If Dir(pngExportPath) <> “” Then Kill pngExportPath
MsgBox “アセットのSQL Server同期および自動保存が正常に完了しました！”, vbInformation, “成功”
Exit Sub
ErrorHandler:
‘ 予期せぬエラーが発生した場合の救済措置
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
If Not conn Is Nothing Then
If conn.State = 1 Then conn.Close
End If
Set conn = Nothing
End Sub
—
4. 陥りやすいエラーとプロの回避術
このレベルのコードを書き始めると、必ずいくつかの「壁」にぶつかります。先輩エンジニアとして、よくある罠と回避術を先回りして伝授しておきますね。
① データベース接続の閉じ忘れ（メモリリーク）
- 症状: マクロを何回か実行すると、CorelDRAW自体がフリーズしたり、SQL Server側でコネクション上限に達してエラーになる。
- 回避術: コードの最後や、エラー発生時の `ErrorHandler` 内で必ず `conn.Close` を行い、オブジェクト変数を `Nothing` に解放する癖をつけましょう。オブジェクトのライフサイクルを意識することが、プロへの第一歩です。
② 日本語文字化け・SQLインジェクション
- 症状: アセット名に日本語が含まれていると、SQLの実行時に文字化けしたりエラーになる。最悪の場合、セキュリティ上の脆弱性を生む。
- 回避術: 文字列をSQL文に直接埋め込む（`”INSERT INTO … VALUES (‘” & assetName & “‘)”` のような書き方）は絶対にNGです。上記コードのように、`ADODB.Command` と `Parameters.Append` を使ったパラメータ化クエリを必ず使用してください。これだけで安全性と文字化けリスクが劇的に改善されます。
③ ファイルロックと非同期の衝突
- 症状: サーバーへの保存処理（`SaveAs`）が終わる前に次の処理が走ると、ファイルがロックされて保存に失敗する。
- 回避術: CorelDRAWのファイル保存は重い処理です。特に巨大なベクターデータの場合、OSの書き込みバッファが追いつく前に次のコードに進まないよう、必要に応じて `DoEvents` を挟むか、処理の完了を確実に待つロジックを組み込みましょう。
—
まとめ
今回は、CorelDRAW VBAと外部SQL Serverを完全同期させるエンタープライズアーキテクチャについて解説しました。
- 単なるローカル保存から脱却し、ADOでデータベースと連携する。
- プレビュー画像の自動生成とファイル自動保存をセットで行う。
- パラメータ化クエリで安全性と堅牢性を担保する。
ここをクリアできれば、もうあなたは単なる「マクロ記録ユーザー」ではありません。立派な業務自動化エンジニア・チーフアーキテクトの仲間入りです。
ぜひ実際の開発現場でこの知見を活かし、社内のワークフローを劇的に効率化させてみてくださいね。「ここが分かりにくい」「もっとこういう連携がしたい」といった質問があれば、いつでもコメント欄でお待ちしています。それでは、次のステップへ進みましょう！
