Visio VBAの深淵：SQL Server連携による「ドキュメントプロパティ」同期のアーキテクチャ
Visioを単なる作図ツールと見なしているエンジニアは、その本質を見誤っている。Visioは「空間情報を持つデータベース」であり、VSDXはその実体であるXMLパッケージのコンテナに過ぎない。
今回は、業務自動化の最前線で求められる「SQL ServerとVisioドキュメントプロパティの双方向同期」という、極めて実用的かつ技術的難易度の高いテーマについて解説する。
—
1. アーキテクチャ設計の要諦：なぜイベント駆動なのか
図面メタデータをDBと同期させる際、ボタンを押して同期させるような旧態依然としたアプローチは排すべきだ。我々が目指すのは、「保存（BeforeDocumentSave）」を起点としたトランザクション制御である。
なぜ `BeforeDocumentSave` か
Visioには `DocumentSaved` イベントも存在するが、これは保存が完了した後の事後処理である。メタデータの不整合を防ぐには、ファイルがディスクに書き込まれる直前の `BeforeDocumentSave` をフックし、検証と更新をアトミックに行う必要がある。
—
2. 実装の核心：Visio VBAにおけるオブジェクトライフサイクルの管理
Visio VBAにおいて、COMオブジェクトの解放を怠ることは、メモリリークの温床であり、ひいてはシステム全体の不安定化を招く。特にデータベース接続を伴う場合、接続の取り扱いは厳格に行わなければならない。
実装例：`ThisDocument` モジュールでの制御
‘ 必須：参照設定で “Microsoft ActiveX Data Objects x.x Library” を追加すること
Option Explicit
Private Sub Document_BeforeDocumentSave(ByVal doc As IVDocument)
‘ 厳格なエラーハンドリング
On Error GoTo ErrHandler
‘ 1. SQL Serverからメタデータを取得し、Documentプロパティを更新
UpdateDocumentPropertiesFromDB doc
‘ 2. 必要に応じて、更新された情報をDBへ書き戻す（双方向同期）
SyncPropertiesToDB doc
Exit Sub
ErrHandler:
MsgBox “同期プロセス中に致命的なエラーが発生しました: ” & Err.Description, vbCritical
‘ ここで例外をキャッチし、ログサーバー等へ送信する設計を推奨
End Sub
Private Sub UpdateDocumentPropertiesFromDB(doc As IVDocument)
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConn As String
‘ 接続文字列（環境に応じて最適化せよ）
strConn = “Provider=SQLOLEDB;Data Source=ServerName;Initial Catalog=DBName;Integrated Security=SSPI;”
Set conn = New ADODB.Connection
conn.Open strConn
‘ メタデータ取得クエリ
Set rs = conn.Execute(“SELECT MetaValue FROM DocMeta WHERE DocID = ‘” & doc.Name & “‘”)
If Not rs.EOF Then
‘ Visioの組み込みプロパティまたはカスタムプロパティへの書き込み
doc.DocumentProperties(“Description”).Value = rs!MetaValue
End If
‘ 徹底したオブジェクト解放
rs.Close: Set rs = Nothing
conn.Close: Set conn = Nothing
End Sub
—
3. レガシー環境とパフォーマンスへの配慮
メモリ最適化の極意
VBAはガベージコレクションが脆弱だ。`Set obj = Nothing` を省略するエンジニアが多いが、大規模な図面を扱う場合、これは自殺行為に等しい。特に `Visio.Application` をラップするような設計を行う場合は、インスタンスの生存期間を最小化せよ。
Windows API による制御の必要性
ドキュメントの保存中に「キャンセル」を強制したい場合や、保存の進捗をWindowsタスクバーに表示したい場合は、`User32.dll` を利用したダイアログ制御やプロセスの監視が必要になる。
特に、ネットワークドライブ上のVSDXを開く際のタイムアウト制御などは、Visio標準の機能だけでは不十分だ。必要に応じてWinAPIの `GetSystemTime` 等を用いて、同期処理のオーバーヘッドを計測する計測器（ロガー）を自作することを強く勧める。
—
4. チーフアーキテクトからの提言：双方向同期の罠
「双方向連携」を実装する際、最も恐れるべきは「無限再帰」である。
1. DB更新でプロパティが変わる
2. `Document_BeforeDocumentSave` が発火する
3. またDBを更新しに行く
このループを避けるため、同期処理中は必ず「フラグ変数」による排他制御を設けること。
‘ モジュールレベル変数で同期状態を管理
Private m_isSyncing As Boolean
Private Sub Document_BeforeDocumentSave(ByVal doc As IVDocument)
If m_isSyncing Then Exit Sub
m_isSyncing = True
‘ … 同期処理 …
m_isSyncing = False
End Sub
—
結論：Visioを「システムの一部」へ昇華させるために
Visio VBAはオールドテクノロジーではない。VSDXというオープンなXMLフォーマットと、SQL Serverという堅牢なデータソースを繋ぐための「接着剤」として、現代においても比類なき価値を持つ。
システム管理者諸君、コードを書く前にまず「データの整合性の終着点」を定義せよ。VBAはあくまでそのための手段に過ぎない。美しく、かつ強靭なコードは、常にその背後にあるアーキテクチャの単純明快さから生まれるのだ。
健闘を祈る。
