Visio VBAを掌握する極限の知見：社内共有ステンシルを動的解決する堅牢アーキテクチャ
Visio VBAによるエンタープライズ向け自動化の現場において、最も脆弱なポイントの一つが「ステンシル（.vssx / .vstx）のパス解決」である。
「`C:\Users\username\Documents\My Shapes\…`」といった絶対パスのハードコード、あるいはネットワークドライブの直書き。これらはユーザーのPC環境が変わった瞬間、あるいは社内共有サーバーの構成変更や部署異動によって、容赦なく「ファイルが見つかりません (Error 53)」の例外を引き起こす。レガシーなVBAシステムの保守において、このパス依存症は幾度となくデプロイを失敗させる癌患者のようなものだ。
真にプロフェッショナルなVisioアーキテクトであれば、環境依存性を完全に排除し、`Application.MyShapesPath` および Windows API / FileSystemObject (FSO) を駆使した「自己適応型のパス動的解決エンジン」をコードベースに組み込むべきである。
本稿では、ハードコードを根絶し、ローカルの個人用フォルダーから冗長化された社内ネットワーク共有までのパスを自動探索・マウントする、極限まで堅牢なVisio VBAの実装パターンを解説する。
—
1. Visioオブジェクトモデルとパス解決の基本戦略
Visioのアプリケーションオブジェクトには、ユーザーごとのマイスペースを指し示す強力なプロパティが用意されている。それが `Application.MyShapesPath` である。
しかし、実務上はこのプロパティ単体では不十分だ。なぜなら、全社共通の最新ステンシルはローカルではなく、Active Directoryで制御されたネットワーク上の共有フォルダー（例: `\\corp.net\dfs\visio\stencils`）に置かれるべきだからだ。
堅牢な解決ロジックの要件
1. フォールバック機構: ネットワーク共有 → ローカルの `My Shapes` → ドキュメントと同一階層の順に探索する。
2. 遅延バインディングとメモリ管理: FSOやWScript.Shellを使用する際のオブジェクト解放を徹底し、Visioの重厚なCOMコンテキストに負荷をかけない。
3. 存在検証のキャッシュ: 毎回のファイルアクセスによるI/Oボトルネックを防ぐため、一度解決したパスはセッション中保持する。
—
2. 実装コード：動的ステンシルローダー
以下のコードは、実務の現場でそのまま即戦力として組み込めるモジュールである。エラーハンドリング、オブジェクトの明示的な解放、ネットワークパスの動的解決を網羅している。
Option Explicit
‘ ==============================================================================
‘ 模範コード：社内共有ステンシル動的解決・自動マウントエンジン
‘ アーキテクチャ: チーフアーキテクト直属レイヤー
‘ ==============================================================================
‘ ネットワーク上の共有ステンシルリポジトリ（DFSまたはUNCパスを推奨）
Private Const NETWORK_STENCIL_ROOT As String = “\\corp.net\dfs\visio\stencils\”
Private Const TARGET_STENCIL_NAME As String = “EnterpriseInfrastructure.vssx”
Public Sub InitializeAndOpenEnterpriseStencil()
Dim targetPath As String
Dim vsoDocument As Visio.Document
On Error GoTo ErrorHandler
‘ 1. 最適なステンシルパスを動的に解決する
targetPath = ResolveStencilPath(TARGET_STENCIL_NAME)
If targetPath = “” Then
Err.Raise vbObjectError + 1000, “StencilLoader”, _
“致命的エラー: どのパスからも対象ステンシルを発見できませんでした: ” & TARGET_STENCIL_NAME
End If
‘ 2. ステンシルを開く（既に開かれている場合の重複エラーを防ぐためチェックを推奨）
‘ Application.Documents.OpenEx を使用し、ドキュメントウィンドウを表示せずに背後で読み込む
Set vsoDocument = Visio.Application.Documents.OpenEx(targetPath, visOpenRO + visOpenDocked)
Debug.Print “ステンシルが正常にロードされました: ” & targetPath
CleanUp:
‘ オブジェクトの明示的解放（メモリリーク防止の鉄則）
Set vsoDocument = Nothing
Exit Sub
ErrorHandler:
MsgBox “ステンシルロード中に予期せぬエラーが発生しました。” & vbCrLf & _
“Error ” & Err.Number & “: ” & Err.Description, vbCritical, “Visio Automation Engine”
Resume CleanUp
End Sub
‘ ==============================================================================
‘ パス動的解決コア関数
‘ ==============================================================================
Private Function ResolveStencilPath(ByVal stencilFileName As String) As String
Dim fso As Object
Dim candidatePath As String
Dim myShapesPath As String
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ ————————————————————————–
‘ 優先順位 1: 社内ネットワーク共有リポジトリ
‘ ————————————————————————–
candidatePath = NETWORK_STENCIL_ROOT & stencilFileName
If fso.FileExists(candidatePath) Then
ResolveStencilPath = candidatePath
GoTo CleanUpFSO
End If
‘ ————————————————————————–
‘ 優先順位 2: ユーザー個人の “My Shapes” フォルダー
‘ Application.MyShapesPath は末尾にバックスラッシュを含まない場合があるため調整
‘ ————————————————————————–
myShapesPath = Visio.Application.MyShapesPath
If Len(myShapesPath) > 0 Then
If Right$(myShapesPath, 1) <> “\” Then myShapesPath = myShapesPath & “\”
candidatePath = myShapesPath & stencilFileName
If fso.FileExists(candidatePath) Then
ResolveStencilPath = candidatePath
GoTo CleanUpFSO
End If
End If
‘ ————————————————————————–
‘ 優先順位 3: アクティブドキュメントと同一階層（スタンドアロン運用時のフォールバック）
‘ ————————————————————————–
If Not Visio.Application.ActiveDocument Is Nothing Then
If Not Visio.Application.ActiveDocument.Path = “” Then
candidatePath = Visio.Application.ActiveDocument.Path & stencilFileName
If fso.FileExists(candidatePath) Then
ResolveStencilPath = candidatePath
GoTo CleanUpFSO
End If
End If
End If
‘ 見つからない場合は空文字を返す
ResolveStencilPath = “”
CleanUpFSO:
‘ COMオブジェクトの参照を確実に破棄（ガベージコレクションへの依存を排除）
Set fso = Nothing
End Function
—
3. チーフアーキテクトが解説するコードの急所
A. オブジェクトの明示的解放 (`Set fso = Nothing`)
VBAのランタイムは参照カウント方式をとっている。`CreateObject(“Scripting.FileSystemObject”)` で生成したインスタンスは、プロシージャを抜けるだけでは即座にメモリから解放されないケースがある（特にCOMコンポーネントが絡むVisioのイベントループ内では顕著）。
コードの末尾で必ず `Set fso = Nothing` を実行し、メモリリークを根絶すること。これが大規模図面生成時に「突然Visioが落ちる」現象を防ぐ防壁となる。
B. `Visio.Application.MyShapesPath` の落とし穴
`MyShapesPath` プロパティは、Windowsのユーザープロファイル（例: `C:\Users\
しかし、OSの言語環境や過去のVisioのバージョンアップを引き継いだレガシー環境では、このパスの末尾にバックスラッシュ（`\`）が付与されている保証がない。そのため、`Right$(myShapesPath, 1) <> “\”` によるパディング処理を必ず挟むのが、プロフェッショナルの実装作法である。
C. ネットワークフォルダーへのアクセス権とタイムアウト対策
社内共有サーバー（`\\corp.net\…`）へアクセスする際、サーバーがスリープ状態であったり、VPN接続が不安定な場合、`fso.FileExists()` の評価でスクリプトが数秒間フリーズすることがある。
さらなる高みを目指すシステムであれば、WMIやWindows APIを活用してネットワークの疎通確認（Ping等）を挟むか、エラーハンドリング内でタイムアウトをハンドリングする設計を推奨する。
—
4. レガシー環境・システム間連携における実践的アドバイス
1. Active Directory (AD) グループポリシーとの統合:
各PCのレジストリ（`HKEY_CURRENT_USER\Software\Microsoft\Visio\…`）を書き換えて `MyShapesPath` 自体を社内共有パスへと一括上書きするポリシーを情報システム部門と連携して敷く。これにより、VBA側で複雑なフォールバックを書かずとも、`MyShapesPath` を参照するだけで常に最新の共有ステンシルを向かせることが可能になる。
2. バージョン差異への配慮 (`.vss` vs `.vssx`):
Visio 2003-2007系のレガシーバイナリステンシル（`.vss`）と、Visio 2013以降のXMLベースのステンシル（`.vssx`）が混在する環境では、定数側で拡張子を切り替えられるようなプレースホルダー構造にしておくこと。
結言
コードの中に「絶対パス」を書くことは、インフラの変更に対する敗北宣言に等しい。
`Application.MyShapesPath` を起点とし、FSOによる柔軟な探索ロジックをエレガントに構築すること。それこそが、どんな環境の変化をも軽々といなす、真に頑健なVisio自動化アーキテクチャの姿である。
