【テクニカル・上級編】【上級】SQL Server上のマスターシェイプ・メタデータとVisioの同期 – Visio VBA解析バイブル

アーキテクチャの深淵：SQL ServerのメタデータとVisioマスターシェイプの動的同期戦略

エンタープライズ環境における図面管理の自動化において、多くの開発者が陥る罠がある。それは、「Visioを単なる描画ツールとして扱い、データの真実（Source of Truth）をVisioのファイル内に閉じ込めてしまうこと」だ。

真の自動化、すなわち大規模なインフラ構成図や複雑なプロセスフローの動的生成を実現するためには、データ（SQL Server）と表現（Visio Stencil）を完全に分離し、実行時にそれらを高度な論理によって結合するアーキテクチャが不可欠である。

本稿では、SQL Server上のメタデータに基づき、ステンシルから適切なマスターシェイプを動的に選択・配置する、極限の同期手法について解説する。単なるコードの提示ではない。メモリ管理、オブジェクトのライフサイクル、そして大規模システムにおける安定性の確保という、シニアエンジニアが直面する「真の課題」に焦点を当てる。

1. 疎結合なアーキテクチャ設計：データの分離

まず、設計原則を定義する。

• SQL Server: 資産の属性（ID, 型, 接続情報, 状態）を保持する。
• Visio Stencil: 形状の定義（マスターシェイプ）を保持する。
• VBA Engine: 両者を結びつけ、メモリ上でマッピングを行う。

ここで重要なのは、SQL Server側に「どのマスターシェイプを使用するか」という物理的な名前（`MasterName`）を持たせるのではなく、「論理的なタイプ（`AssetType`）」を持たせることだ。これにより、将来的にステンシルのデザインが変更（マスター名の変更）されても、データベースのスキーマを変更せずに済む。

2. メモリ管理とオブジェクト・ライフサイクル

Visio VBAにおける最大の敵は、COMオブジェクトの参照カウントの不整合によるメモリリークである。特に、ループ内で `Recordset` や `Stencil` オブジェクトを生成・破棄する際、適切に `Nothing` を代入し、参照を解放しなければ、長時間稼働する自動化プロセスは容易にクラッシュする。

また、`Application.ScreenUpdating = False` は基本だが、それだけでは不十分だ。大量のシェイプを配置する際は、ドキュメントの更新を最小限に抑えるための「バッチ処理的なアプローチ」が必要となる。

3. 実装：高信頼性同期エンジンのコード

以下に、SQL Serverからメタデータを取得し、動的にマスターを検索・配置するクラスモジュール級のロジックを示す。ここでは、パフォーマンスを最適化するため、ステンシルを一度だけロードし、その参照を使い回す設計を採用している。

データベース接続とシェイプ配置のコアロジック

' --- Module: AssetSyncEngine ---
Option Explicit

' 外部ライブラリ参照: Microsoft ActiveX Data Objects x.x Library
' 外部ライブラリ参照: Microsoft Visio x.x Object Library

Private Const CONNECTION_STRING As String = "Provider=SQLOLEDB;Data Source=YOUR_SERVER;Initial Catalog=YOUR_DB;Integrated Security=SSPI;"

''' <summary>
''' SQL Serverのメタデータに基づき、Visioドキュメントにシェイプを同期する
''' </summary>
Public Sub SynchronizeAssetsFromDB()
    Dim visioDoc As Visio.Document
    Dim stencil As Visio.Stencil
    Dim targetStencilName As String
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    
    ' エラーハンドリングの構築
    On Error GoTo ErrorHandler

    Set visioDoc = ActiveDocument
    targetStencilName = "Enterprise_Assets.vssx" ' 使用するステンシル名
    
    ' 1. ステンシルのロード（メモリ上にキャッシュ）
    ' ループ内で毎回Openするとパフォーマンスが劇的に低下する
    Set stencil = visioDoc.Application.Documents.OpenEx(targetStencilName, visioVisOpenDocked)
    
    ' 2. SQL Serverへの接続
    Set conn = New ADODB.Connection
    conn.Open CONNECTION_STRING
    
    ' 3. メタデータの取得
    ' AssetTypeをキーに、マスターの論理マッピングを解決するクエリ
    sql = "SELECT AssetID, AssetType, X_Pos, Y_Pos, ConnectionInfo FROM AssetMetadata WHERE SyncStatus = 'Pending'"
    Set rs = conn.Execute(sql)
    
    ' 高速化のための描画停止
    visioDoc.Application.ScreenUpdating = False
    
    ' 4. 同期ループ
    Do While Not rs.EOF
        Dim masterName As String
        Dim targetShape As Visio.Shape
        
        ' 論理的なAssetTypeから、物理的なMasterNameを解決（Mappingロジック）
        masterName = MapAssetTypeToMaster(rs.Fields("AssetType").Value.ToString())
        
        ' マスターシェイプの配置
        Set targetShape = PlaceMaster(visioDoc, stencil, masterName, rs.Fields("X_Pos").Value, rs.Fields("Y_Pos").Value)
        
        If Not targetShape Is Nothing Then
            ' 属性情報の書き込み（DataGraphやShape Dataへの反映）
            ApplyShapeMetadata targetShape, rs
            
            ' 処理済みフラグの更新（必要に応じてSQLを発行）
            UpdateSyncStatus rs.Fields("AssetID").Value
        End If
        
        rs.MoveNext
    Loop

CleanUp:
    ' 5. リソースの明示的解放（最重要）
    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
    If Not stencil Is Nothing Then stencil.Close
    Set stencil = Nothing
    
    visioDoc.Application.ScreenUpdating = True
    MsgBox "同期プロセスが完了しました。", vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

''' <summary>
''' 論理タイプをステンシルのマスター名に変換する
''' </summary>
Private Function MapAssetTypeToMaster(ByVal assetType As String) As String
    ' 本来はここもDBや設定ファイルから取得するのが理想的
    Select Case assetType
        Case "Server"
            MapAssetTypeToMaster = "Rack_Server_Master"
        Case "Switch"
            MapAssetTypeToMaster = "Network_Switch_Master"
        Case Else
            MapAssetTypeToMaster = "Generic_Device_Master"
    End Select
End Function

''' <summary>
''' ステンシルからマスターを探し、ドキュメント上に配置する
''' </summary>
Private Function PlaceMaster(doc As Visio.Document, stl As Visio.Stencil, mName As String, x As Double, y As Double) As Visio.Shape
    Dim master As Visio.Master
    Dim newShape As Visio.Shape
    
    ' マスターの検索
    Set master = stl.Masters.FindByName(mName)
    
    If Not master Is Nothing Then
        ' 配置（座標系はVisioの内部座標に依存）
        Set newShape = doc.Page(1).Drop(master, x, y)
        Set PlaceMaster = newShape
    Else
        ' マスターが見つからない場合はログ出力等の例外処理
        Debug.Print "Warning: Master not found: " & mName
        Set PlaceMaster = Nothing
    End If
End Function

''' <summary>
''' シェイプのShape Dataにメタデータを注入する
''' </summary>
Private Sub ApplyShapeMetadata(shp As Visio.Shape, rs As ADODB.Recordset)
    ' Shape Dataへの書き込みは、インデックス指定ではなく名前指定で行うのが堅牢
    ' 事前にステンシルのマスターにShape Data定義が存在することを前提とする
    On Error Resume Next
    shp.Cells("ID").FormulaU = rs.Fields("AssetID").Value
    shp.Cells("ConnInfo").FormulaU = rs.Fields("ConnectionInfo").Value
    On Error GoTo 0
End Sub

Private Sub UpdateSyncStatus(assetID As Long)
    ' 実際の実装では、個別のUpdate文、あるいは一括更新用のテーブルを用意する
End Sub

4. エンタープライズ品質への昇華：さらなる最適化

上記のコードは実戦的なベースラインだが、さらに極限を求めるなら以下の観点を検討せよ。

Windows APIによるメモリ監視

VBAはマネージドな環境に見えて、その実体はCOM（Unmanaged）である。大量のシェイプを生成した後、メモリ使用量が異常に増大する場合、`Set obj = Nothing` だけでは解放が遅れるケースがある。極めて厳格な制御が必要な場合、Windows APIの `EmptyWorkingSet` を呼び出し、プロセスのワーキングセットを強制的に整理する手法も検討に値する。

差分同期アルゴリズム

現在のコードは「全件配置」を想定しているが、大規模環境では「既存のシェイプとの照合」が必要だ。
1. SQLから全データをロード。
2. Visio上の全シェイプの `ID` (Shape Data) を走査し、Dictionaryオブジェクトに格納。
3. SQLのレコードとDictionaryを比較。

• SQLにあり、Visioにない $\rightarrow$ Create
• 両方にあるが属性が異なる $\rightarrow$ Update
• Visioにあり、SQLにない $\rightarrow$ Delete (or Mark as Obsolete)

この差分ロジックを実装することで、描画負荷は指数関数的に減少する。

結論

Visio VBAを用いたエンタープライズ・オートメーションは、単なる「スクリプト作成」ではない。それは、データ整合性とリソース管理の高度な均衡点を見出すアーキテクチャ設計そのものである。

マスターシェイプを単なる絵として扱うか、それともデータ構造の末端としての「ビュー」として扱うか。その視点の差が、システムの寿命を決定づける。