CorelDRAW VBAを掌握する：SQL Server連携によるベクターパーツ自動生成の極致
CorelDRAW VBAは、現代の洗練された開発環境から見れば「化石」のように映るかもしれない。しかし、製造業や看板製作、印刷業界の現場において、CorelDRAWのDOM（Document Object Model）を直接叩けるこのインターフェースは、今なお最強の武器である。
本稿では、単なるマクロの域を超え、SQL Serverに蓄積されたデザインパーツをCorelDRAW上で完全自動アセンブルし、最適化されたフォーマットで書き出す「エンタープライズ・オートメーション」の構築手法を伝授する。
—
1. アーキテクチャの核心：VBAと外部DBの疎結合
VBAから直接SQL Serverを叩く場合、`ADODB`ライブラリを使用するのが定石だが、接続文字列の管理やタイムアウト処理には細心の注意が必要だ。
安定した接続のためのベストプラクティス
コネクションを使い回すことはバグの温床となる。処理ごとに明示的にOpen/Closeを行い、メモリを解放する。
‘ 必要な参照設定: Microsoft ActiveX Data Objects x.x Library
Public Function GetPartData(partID As String) As ADODB.Recordset
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
‘ 接続タイムアウトを明示的に設定（ネットワークの揺らぎに対処）
conn.ConnectionString = “Provider=SQLOLEDB;Data Source=SERVER_NAME;Initial Catalog=DB_NAME;Integrated Security=SSPI;”
conn.ConnectionTimeout = 15
conn.Open
Set cmd.ActiveConnection = conn
cmd.CommandText = “SELECT PathData, Metadata FROM PartsTable WHERE ID = ?”
cmd.Parameters.Append cmd.CreateParameter(“ID”, adVarChar, adParamInput, 50, partID)
Set GetPartData = cmd.Execute
‘ ここで接続を切断するとRecordsetが閉じることがあるため、
‘ 切断タイミングには注意が必要（切断前にデータをローカル変数へ退避させる設計を推奨）
End Function
—
2. メモリ最適化：CorelDRAWオブジェクトの「死」を管理する
CorelDRAWのVBAで最も多いトラブルはメモリリークだ。特にループ処理内で `Shape` オブジェクトや `Layer` を生成し続けると、ガベージコレクションが追いつかず、CorelDRAW自体がクラッシュする。
オブジェクト解放の鉄則
`Set obj = Nothing` を単に書くだけでは不十分だ。特に `ActiveSelection` や `ShapeRange` を扱う際は、処理が終わるごとに明示的に参照を破棄し、`Application.Optimization = True` で画面更新を停止させること。
Public Sub AssemblePart(partPath As String)
Application.Optimization = True ‘ 描画更新を停止しパフォーマンスを最大化
Dim doc As Document
Dim layer As Layer
Dim shp As Shape
Set doc = Application.ActiveDocument
Set layer = doc.ActiveLayer
‘ ここで外部データを読み込みアセンブル
Set shp = layer.Import(partPath)
‘ 処理後、即座にオブジェクト参照を解除
Set shp = Nothing
Set layer = Nothing
Set doc = Nothing
Application.Optimization = False
Application.ActiveWindow.Refresh
End Sub
—
3. レガシー環境における「Windows API」活用の必然性
CorelDRAWの標準機能だけでは、ファイル保存ダイアログの制御や、特定プロセスの監視が難しい場合がある。ここでWindows APIの出番だ。
例えば、保存時に発生するダイアログを強制的にバックグラウンド処理させるために、`FindWindow` や `PostMessage` を使用する。
If VBA7 Then
Private Declare PtrSafe Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Else
Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
End If
‘ 保存ダイアログを監視して自動的にEnterを送信するなどのハックが可能
—
4. エンタープライズ連携における「フォーマット変換」の極意
ベクターパーツを自動でPDFやEPSに変換して書き出す際、`ExportEx` メソッドを使用するが、ここで重要なのは「フィルタパラメータの厳密な指定」である。デフォルト設定を信頼してはならない。
Dim expFilter As ExportFilter
Set expFilter = doc.ExportEx(targetPath, cdrPDF, cdrSelection, options)
With expFilter
.BeginExport
.PDFSettings.EmbedFonts = True
.PDFSettings.TextAsCurves = True ‘ フォントトラブルを防ぐための必須設定
.FinishExport
End With
—
5. チーフアーキテクトからの提言
システム管理者が直面する最大のリスクは、「コードがブラックボックス化すること」だ。
1. エラーハンドリングの徹底: `On Error GoTo` を活用し、ログテーブルをSQL Server側に持たせろ。エラーが起きた瞬間にどのパーツで失敗したかをDBに記録する仕組みこそが、運用を安定させる。
2. 疎結合な設計: CorelDRAWはあくまで「描画エンジン」として割り切る。ビジネスロジックは可能な限りSQL Serverのストアドプロシージャに寄せるべきだ。
3. 環境の固定: CorelDRAWのバージョンアップはDOMの破壊を伴う。特定のバージョンでビルドされたDLLやVBAコードが、将来のバージョンでも動くとは限らない。APIの変更履歴を常に追え。
CorelDRAW VBAは、古いが強力なツールだ。その限界を知り、OSの深部とDBの論理を理解した者だけが、真の「自動化」を手にできる。
さあ、レガシーを制御し、効率の極致を追求せよ。これこそが、エンジニアの誇りである。
