【テクニカル・上級編】【中級】マスターシェイプの「動作」をVBAで動的に割り当てる – Visio VBA解析バイブル

Visio VBA

2026.11.13

【極限の知見】マスターシェイプの「振る舞い」を動的に注入する：Command Dispatcherパターンの実装

【極限の知見】マスターシェイプの「振る舞い」を動的に注入する：Command Dispatcherパターンの実装

Visioを用いたエンタープライズ級のダイアグラム作成ツールを設計する際、多くの開発者が陥る致命的な罠がある。それは、「シェイプにロジックを直接持たせようとする」ことだ。

ShapeSheetに複雑な関数を書き込み、各マスターシェイプに個別のマクロを紐付ける。その手法は、小規模なプロトタイプでは機能する。しかし、数百のシェイプが混在し、システム間連携や複雑な業務ロジックが絡み合う大規模環境においては、メンテナンス性の崩壊とメモリリーク、そして実行パフォーマンスの著しい低下を招く。

真のアーキテクトが目指すべきは、「シェイプはデータ（状態）を保持するのみに徹し、振る舞い（ロジック）は外部のディスパッチャが制御する」という、疎結合なアーキテクチャである。

本稿では、マスターシェイプを単なる図形から「動的なコマンド実行体」へと昇華させるための、Command Dispatcherパターンの実装について詳述する。

1. 概念設計：Behavioral Decoupling（振る舞いの分離）

従来の設計では、シェイプ自体が「何をすべきか」を知っている。しかし、我々が構築すべきは、シェイプが「自分はどのコマンドを実行すべきか」というメタデータ（Tag）のみを保持する設計である。

設計の三層構造

1. Data Layer (Shape/Master): `Shape.Data` プロパティを利用し、`CommandID` や `ContextID` といったメタデータを格納する。
2. Event Layer (ThisDocument): Visioのイベント（`BeforeDoubleClick` 等）をキャッチし、選択されたオブジェクトのメタデータを抽出する。
3. Logic Layer (Command Dispatcher): 抽出された `CommandID` に基づき、適切なロジック（Class Module または外部DLL）を呼び出す。

この分離により、ステンシル（マスター）を更新することなく、VBA側のロジックのみを安全にデプロイ・修正することが可能になる。

2. 実装：Command Dispatcherの実装

以下に、マスターシェイプのダブルクリックをトリガーとして、動的に定義されたロジックを呼び出す実装例を示す。

Step 1: マスターシェイプへのメタデータ付与

ステンシル作成時、またはVBAでマスターを生成する際、`Shape.Data` に識別子を埋め込む。

' マスターシェイプに動的コマンドを割り当てる例
Public Sub AssignCommandToMaster(ByRef oMaster As Visio.Master, ByVal commandID As String)
    Dim oCell As Visio.Cell
    ' ShapeSheetの行を直接操作するのではなく、Dataプロパティを使用するのが定石
    ' これにより、ユーザーによる誤操作を防ぎ、メモリ効率を高める
    oMaster.DataAdd "CommandID", commandID, visDataPkValue
End Sub

Step 2: The Dispatcher (ThisDocument)

イベントの起点となるコードだ。ここで最も重要なのは、「イベントハンドラ内での重い処理の回避」と「オブジェクト参照の適切な管理」である。

' --- ThisDocument モジュール ---
Option Explicit

' 実行時のパフォーマンスを維持するため、イベント内では最小限の処理に留める
Private Sub Document_BeforeDoubleClick(ByVal oDocument As Visio.Document, ByVal oPage As Visio.Page)
    Dim oShape As Visio.Shape
    Dim sCommandID As String
    
    ' 選択されているシェイプの取得
    On Error Resume Next
    Set oShape = ActiveWindow.Selection.Item(1)
    On Error GoTo 0
    
    If oShape Is Nothing Then Exit Sub

    ' メタデータの抽出
    ' Data型の取得は、ShapeSheetへの直接アクセスより高速かつ安全である
    sCommandID = oShape.Data("CommandID")
    
    If sCommandID <> "" Then
        ' ロジック層へディスパッチ
        ' ここで直接重い処理を書かず、CommandDispatcherクラスに委譲する
        CommandDispatcher.Execute sCommandID, oShape
    End If
    
    ' オブジェクトの参照を明示的に解放（メモリ管理の鉄則）
    Set oShape = Nothing
End Sub

Step 3: Logic Layer (CommandDispatcher Class Module)

ロジックをカプセル化するクラスモジュール。ここでは、`CommandID` に応じた処理を分岐させる。

' --- CommandDispatcher クラスモジュール ---
Option Explicit

' 外部API呼び出しや複雑なロジックをここに集約する
Public Sub Execute(ByVal sCommandID As String, ByRef oTargetShape As Visio.Shape)
    Select Case sCommandID
        Case "CMD_OPEN_PROPERTY_PANEL"
            Call HandlePropertyPanel(oTargetShape)
            
        Case "CMD_SYNC_WITH_ERP"
            ' システム間連携の極致：ERPへのデータ送信
            Call SyncWithExternalSystem(oTargetShape)
            
        Case Else
            Debug.Print "Unknown Command: " & sCommandID
    End Select
End Sub

Private Sub HandlePropertyPanel(ByRef oShape As Visio.Shape)
    ' 独自のプロパティエディタを表示するロジック
    MsgBox "Command Executed: Opening Panel for " & oShape.Name, vbInformation
End Sub

Private Sub SyncWithExternalSystem(ByRef oShape As Visio.Shape)
    ' ここで Windows API や REST API (WinHTTP) を呼び出す
    ' 業務アプリケーションとの結合点となる
    Debug.Print "Synchronizing shape data to ERP..."
End Sub

3. アーキテクトの視点：パフォーマンスとメモリ管理の極意

このアーキテクチャを実戦投入するにあたり、シニアエンジニアが留意すべき「重み」について触れておく。

1. オブジェクト・ライフサイクルの厳格な管理

VBAはCOM（Component Object Model）上で動作している。`oShape` や `oDocument` といったオブジェクトをループやイベント内で多用する場合、`Set obj = Nothing` による明示的な解放を怠ると、Visioのプロセスがメモリを食いつぶし、最終的に `Out of Memory` エラーを引き起こす。特に、数千のシェイプを扱うダイアグラムでは、この「ゴミ」の蓄積が致命傷となる。

2. イベント・オーバーヘッドの最小化

`Document_WindowSelectionChange` のような頻繁に発生するイベントを使用する場合、その中のロジックが $O(n)$ の計算量を持つと、ユーザーの操作感（UI Responsiveness）は著しく損なわれる。
本稿で示した `BeforeDoubleClick` は、ユーザーの明示的なアクションをトリガーとするため、安全性が高い。もし選択変更イベントを利用する場合は、必ず `If oShape.Type <> visTypeGroup Then` のような型チェックを最速で行い、不要なロジックへの進入を阻止せよ。

3. レガシー環境への配慮とWindows API

社内システムでは、依然として古いバージョンのVisioや、制限された権限下での実行が求められるケースがある。
高度なUI制御（例えば、シェイプのクリック位置に基づいてコンテキストメニューを `Win32 API (SetForegroundWindow / TrackPopupMenu)` で表示するなど）を行う場合、VBAの標準機能の限界を突破できるが、その代償としてスタックの破壊やメモリ不正アクセス（Access Violation）のリスクを伴う。APIを呼び出す際は、必ず `Declare` 文の型定義を厳密に行い、エラーハンドリングを徹底すること。

結論

マスターシェイプに「振る舞い」を動的に割り当てる技術は、単なるコードの書き換えではない。それは、「図形という静的なデータ」と「業務ロジックという動的なプロセス」を分離する、設計思想の転換である。

この疎結合なアーキテクチャを採用することで、君が構築するVisioツールは、単なる描画補助ソフトから、堅牢で拡張性の高い「エンタープライズ・エンジニアリング・プラットフォーム」へと進化する。

技術の真髄は、動かすことではなく、制御することにある。