巨大なステンシルを「全部」読み込むな。Visio VBAにおける爆速のステンシル管理戦略
業務自動化ツールの開発において、多くの開発者が陥る「致命的な設計ミス」がある。
それは、「巨大なステンシルファイルを、まるごと、無造作に開く」ことだ。
数千のマスターシェイプが含まれるエンタープライズ向けのステンシルファイルを、`Documents.Add` や単純な `Documents.Open` で読み込んでみろ。実行速度は極端に低下し、ユーザーは「ツールがフリーズした」と勘違いしてタスクマネージャーからプロセスを強制終了させるだろう。これは、プロフェッショナルが作るべきツールとしては「失格」だ。
本稿では、Visio VBAの深淵に触れ、`Document.OpenEx` を駆使して、必要なリソースだけを「Just-In-Time」でロードする、極限のステンシル管理手法を伝授する。
1. なぜ、あなたのコードは遅いのか？：オブジェクト・ロードの重み
Visioにおいて、ステンシル（`.vssx`）を開くという行為は、単にファイルを開くことではない。ファイル内に格納された膨大な「マスターシェイプ」の定義、ジオメトリ（形状データ）、接続ポイント、そしてそれらに紐づくメタデータをすべてメモリ上に展開し、オブジェクトモデルとして構築するプロセスだ。
もし、君が「ネットワークドライブ上の巨大なステンシル」を毎回全ロードしているなら、以下のコストを支払っていることになる。
1. I/O コスト: 巨大なファイルからのデータ転送。
2. メモリ・オーバーヘッド: 使わないマスターシェイプのためのRAM消費。
3. CPU コスト: 全マスターのインデックス作成とオブジェクトの初期化。
解決策はシンプルだ。ステンシルを「巨大な塊」として扱うのをやめ、「疎結合なパーツ」として設計することだ。
2. `Document.OpenEx` という武器
Visio VBAには、標準の `Open` メソッドよりも強力な `OpenEx` メソッドが存在する。このメソッドの真価は、第2引数に渡す `visOpenExOpenOptions` フラグにある。
通常の `Open` は、常にUIの更新やフルロードを試みる。しかし、`OpenEx` を使いこなせば、バックグラウンドでの制御や、特定の条件下での挙動を最適化できる。
特に重要なのは、「ユーザーにステンシルを見せる必要がない（バックグラウンド処理）」のか、「ユーザーがドラッグ＆ドロップするために開く必要があるのか」を明確に区別することだ。
3. プロダクション・アーキテクチャ：動的ステンシル・ローダー
賢明なアーキテクトは、ステンシルを一つの巨大なファイルにまとめない。代わりに、「機能単位で分割された小さなステンシル群」を用意し、データベースや設定ファイル（JSON/XML等）に基づき、必要なものだけを動的にロードする設計を採用する。
以下に、実務でそのまま使える、堅牢な「ステンシル・マネージャー」の設計例を示す。
実装例：高度なステンシル管理モジュール
このコードは、単なるコピペ用ではない。エラーハンドリング、メモリ解放、そして「必要なものだけを読み込む」というロジックを組み込んだ、プロダクション品質の設計だ。
' ==============================================================================
' Module: modStencilManager
' Description: 高速かつ堅牢なステンシル管理クラス
' Author: Legendary Chief Architect
' ==============================================================================
Option Explicit
' ステンシルのロード状態を管理するための列挙型
Public Enum StencilLoadStatus
stlsSuccess = 0
stlsFileNotFound = 1
stlsAccessDenied = 2
stlsLoadError = 3
End Enum
' 戻り値として返す構造体
Private Type LoadResult
Status As StencilLoadStatus
StencilDoc As Visio.Document
End Type
''' <summary>
''' 指定したパスのステンシルを、最適化されたオプションで読み込む。
''' </summary>
''' <param name="stencilPath">ステンシルファイルのフルパス</param>
''' <param name="isUIRequired">ユーザーにUIを見せる必要があるか（Trueならツールバーに表示）</param>
Public Function LoadOptimizedStencil(ByVal stencilPath As String, _
ByVal isUIRequired As Boolean) As LoadResult
Dim result As LoadResult
Dim doc As Visio.Document
Dim openOptions As Long
' 1. ファイルの存在確認（無駄なエラーハンドリングを避けるため）
If Dir(stencilPath) = "" Then
result.Status = stlsFileNotFound
Set result.StencilDoc = Nothing
Exit Function
End If
' 2. OpenEx オプションの設定
' visOpenExUI: ステンシルをユーザーのUI（スタック）に表示する
' visOpenExNoOpen: (用途に応じて) ドキュメントとしてではなく、単に開く
If isUIRequired Then
openOptions = visOpenExUI
Else
' バックグラウンド処理用。UIへの干渉を最小限に抑える
openOptions = 0
End If
On Error GoTo ErrorHandler
' 3. OpenExによるロード実行
' 標準の Open ではなく OpenEx を使うことで、将来的な拡張性と制御性を確保する
Set doc = Application.Documents.OpenEx(stencilPath, openOptions)
If Not doc Is Nothing Then
result.Status = stlsSuccess
Set result.StencilDoc = doc
Else
result.Status = stlsLoadError
Set result.StencilDoc = Nothing
End If
Exit Function
ErrorHandler:
' ログ出力などのエラー処理をここで行う（実務ではログファイルへの書き出しを推奨）
Debug.Print "Error loading stencil: " & Err.Description
result.Status = stlsLoadError
Set result.StencilDoc = Nothing
End Function
''' <summary>
''' メインロジック：データベース（またはリスト）に基づいた動的ロードの例
''' </summary>
Public Sub ExecuteBusinessProcess()
Dim requiredStencils As Collection
Set requiredStencils = New Collection
' 本来はここでDBやCSVから「今回の業務に必要なステンシルパス」を取得する
' 例: DB.Query("SELECT path FROM stencil_config WHERE category = 'Network'")
requiredStencils.Add "C:\Assets\Stencils\Network_Core.vssx"
requiredStencils.Add "C:\Assets\Stencils\Server_Rack.vssx"
Dim stencilPath As Variant
Dim res As LoadResult
Dim loadedDocs As Collection
Set loadedDocs = New Collection
On Error GoTo Cleanup
' 各ステンシルを個別に、かつ最適にロード
For Each stencilPath In requiredStencils
res = LoadOptimizedStencil(CStr(stencilPath), True)
If res.Status = stlsSuccess Then
loadedDocs.Add res.StencilDoc
Debug.Print "Successfully loaded: " & stencilPath
Else
' 失敗した場合のリカバリ戦略（エラー通知など）
MsgBox "Critical Error: Failed to load " & stencilPath, vbCritical
GoTo Cleanup
End If
Next stencilPath
' --- ここにメインの自動化ロジックを記述 ---
Debug.Print "All required assets are ready. Processing..."
' ---------------------------------------
Cleanup:
' 4. ライフサイクル管理：使い終わったオブジェクトは明示的に解放する
' これを怠ると、Visioのプロセスがメモリに残り続ける（メモリリーク）
Dim d As Visio.Document
For Each d In loadedDocs
If Not d Is Nothing Then
' 必要に応じてクローズ（保存しない）
' d.Close
Set d = Nothing
End If
Next d
Set loadedDocs = Nothing
If Err.Number <> 0 Then
MsgBox "An unexpected error occurred: " & Err.Description, vbExclamation
End If
End Sub4. 伝説のアーキテクトからの警告：運用上の注意点
この設計を実装する際、以下の3点を忘れてはならない。
① データベースとの同期（Single Source of Truth）
ステンシルのパスをハードコードするのは素人のすることだ。必ず外部の設定ファイルやデータベースで管理せよ。ステンシルが更新（バージョンアップ）された際、コードを書き換えずに設定を更新するだけで対応できる設計にすることが、保守性を決定づける。
② メモリリークへの執着
VBAの世界では、オブジェクトのライフサイクルが制御しにくい。`Set doc = Nothing` を徹底するのは当然だが、特に `OpenEx` で開いたドキュメントは、アプリケーションが終了するまでメモリを占有し続ける傾向がある。大規模なバッチ処理を行う場合は、一定数ロードしたら一度 Visio プロセス自体を再起動するか、明示的に `Close` を呼び出す設計にせよ。
③ ネットワーク遅延の考慮
ステンシルを共有サーバーに置く場合、`OpenEx` はネットワークのレイテンシに直結する。もし速度が問題になるなら、ローカルのキャッシュディレクトリに一度コピーしてからロードする「ローカルキャッシュ戦略」を検討すべきだ。
結論
「巨大なステンシルを一つ開く」のではなく、「必要な小さなステンシルを、最適なオプションで、動的に開く」。
このパラダイムシフトこそが、凡庸なツールと、プロフェッショナルな業務自動化ソリューションを分かつ境界線である。君のコードが、ユーザーに「速い、頼れる」と感じさせるものになることを期待している。
