Visio VBAを掌握する極限の知見：社内共有ステンシルを動的解決する堅牢なパス設計
業務自動化エンジニアの皆さん、こんにちは。
Visioを使った業務フロー図やネットワーク図の自動生成ツールを開発していて、こんな絶望感を味わったことはないだろうか。
> `Documents.OpenEx “C:\Users\Yamada\Documents\My Shapes\CustomStencils.vssx”, …`
> エラー: 指定されたファイルが見つかりません。
開発者のPC環境では完璧に動いていたマクロが、ユーザーのPCに展開した途端に沈黙する。原因は、ユーザー名（アカウント）の差異、OneDriveによるドキュメントフォルダのクラウド同期、そして社内共有ネットワークドライブ（NAS）のドライブ文字の割り当て違いだ。
ハードコードされたパスは、業務自動化における「最大の癌」である。
今回は、Visio VBAのオブジェクトモデルとファイルシステムを完全に掌握し、環境差異を吸収して「ファイル非存在エラーを皆無にする」ための動的パス解決アーキテクチャを伝授する。
—
1. なぜハードコードと「単純なパス結合」は破綻するのか？
多くの初級プログラマは、`Environ(“USERPROFILE”)` を使ってパスを組み立てようとする。
‘ 【アンチパターン】これでは環境変化に対応できない
Dim badPath As String
badPath = Environ(“USERPROFILE”) & “\Documents\My Shapes\MyStencil.vssx”
このアプローチが実務で破綻する理由は3つある。
1. クラウド同期の罠: Windows 11環境では、`Documents` フォルダが自動的にOneDrive配下にリダイレクトされることが多く、ローカルパスとの乖離が発生する。
2. ネットワーク共有の不確実性: 部署共通のステンシルが `\\fileserver\public\stencils\` にある場合、PCごとに `Zドライブ` として割り当てられていたり、直接UNCパスでアクセスする必要があったりと、環境依存が激しい。
3. Visio固有の仕様: Visioは `Application.MyShapesPath` という強力なプロパティを持っているが、これを正しく理解して利用しているエンジニアは少ない。
プロのエンジニアであれば、「環境変数に頼らず、APIやアプリケーションプロパティから動的に取得し、かつ複数の探索パス（フォールバック）を持つ多重防御構造」で設計しなければならない。
—
2. 堅牢なパス解決の設計思想（アーキテクチャ）
今回構築するモジュールは、以下の3段階のフォールバック（探索）戦略をとる。
1. プライマリ: `Application.MyShapesPath`（Visioが公式に認識しているユーザー固有のMy Shapesパス）から動的に取得。
2. セカンダリ: ネットワーク上の社内共有リポジトリ（UNCパス指定）。
3. 例外処理: どちらにも存在しない場合、ユーザーにファイル選択ダイアログを強制するのではなく、明確なエラーメッセージと共に処理を安全に中断（あるいは代替処理へ移行）する。
さらに、VBAの標準関数である `Dir` 関数を用いた存在確認を行い、ファイルロックやパス不正によるランタイムエラーを完全に封じ込める。
—
3. プロダクションコード：共有ステンシル自動探索・読み込みエンジン
以下のコードは、実際の社内ニッチツールでそのまま組み込めるプロダクション品質のモジュールである。コピペして検証してほしい。
Option Explicit
‘ ==============================================================================
‘ módulo名: MdlStencilManager
‘ 概要 : 環境差異を吸収し、社内共有およびローカルのステンシルを動的に探索・ロードする
‘ ==============================================================================
Public Sub LoadRequiredStencils()
Const STENCIL_NAME As String = “EnterpriseIcons.vssx”
Dim targetPath As String
Dim targetDoc As Visio.Document
On Error GoTo ErrorHandler
‘ 1. 動的パス解決を実行
targetPath = ResolveStencilPath(STENCIL_NAME)
If targetPath = “” Then
Err.Raise vbObjectError + 1000, “LoadRequiredStencils”, _
“必要なステンシルが見つかりませんでした。” & vbCrLf & _
“ローカルの My Shapes または社内共有フォルダを確認してください。”
End If
‘ 2. すでにドキュメントが開いているか確認し、二重ロードを防ぐ
Set targetDoc = GetOpenDocument(STENCIL_NAME)
If targetDoc Is Nothing Then
‘ 読み取り専用（visOpenRO）かつドキュメントウィンドウ非表示（visOpenDocked）で開くのがプロの作法
Set targetDoc = Documents.OpenEx(targetPath, visOpenRO + visOpenDocked)
Debug.Print “ステンシルを正常にロードしました: ” & targetPath
Else
Debug.Print “ステンシルは既に開いています: ” & targetPath
End If
Exit Sub
ErrorHandler:
MsgBox “【致命的エラー】ステンシルの読み込みに失敗しました。” & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “ステンシルマネージャー”
End Sub
‘ ——————————————————————————
‘ 目的: 複数の候補パスからステンシルを動的に探索し、最初に見つかった実体のパスを返す
‘ ——————————————————————————
Private Function ResolveStencilPath(ByVal stencilFileName As String) As String
Dim candidatePaths(2) As String
নিন i As Integer
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 候補1: VisioのApplication.MyShapesPath（ユーザーごとのMy Shapesフォルダ）
‘ ※ Visioの仕様により末尾にパス区切り文字が付かない場合があるため制御する
Dim myShapesDir As String
myShapesDir = Application.MyShapesPath
If Right(myShapesDir, 1) <> “\” Then myShapesDir = myShapesDir & “\”
candidatePaths(0) = myShapesDir & stencilFileName
‘ 候補2: 社内ネットワーク共有フォルダ（UNCパスでハードコーディングを回避、またはレジストリ/INIから取得も可）
candidatePaths(1) = “\\corp.fileServer\shares\VisioStencils\Production\” & stencilFileName
‘ 候補3: ローカル開発環境・フォールバック用（Cドライブ直下など）
candidatePaths(2) = “C:\VisioStencils\” & stencilFileName
‘ 優先順位に従って存在確認
For i = LBound(candidatePaths) To UBound(candidatePaths)
If candidatePaths(i) <> “” Then
If fso.FileExists(candidatePaths(i)) Then
ResolveStencilPath = candidatePaths(i)
Exit Function
End If
End If
Next i
‘ 見つからない場合は空文字を返す
ResolveStencilPath = “”
End Function
‘ ——————————————————————————
‘ 目的: 指定した名前のドキュメント（ステンシル含む）が既に開かれているか判定する
‘ ——————————————————————————
Private Function GetOpenDocument(ByVal docName As String) As Visio.Document
Dim doc As Visio.Document
For Each doc In Documents
If StrComp(doc.Name, docName, vbTextCompare) = 0 Then
Set GetOpenDocument = doc
Exit Function
End If
Next doc
Set GetOpenDocument = Nothing
End Function
—
4. コードの解説とエンジニアリングの勘所
`Application.MyShapesPath` の活用
Visioアプリケーションオブジェクトが標準で保持している `MyShapesPath` を使うことで、ユーザーがWindowsの「ドキュメント」フォルダをどこに移動させていようとも、Visioが認識している正しい「My Shapes」のパスをノータイムで取得できる。これが今回の最も重要なキモである。
UNCパス（`\server\share\…`）の採用
社内共有リポジトリを指定する際、`Z:` や `X:` といったネットワークドライブの「割り当て文字」を使ってはならない。PCのポリシーやユーザーの接続状況によってドライブレターは容易に変わる。必ず `\\` で始まるUNCパスで記述すること。
`OpenEx` メソッドのフラグ制御
ステンシルをプログラムから開く際、単に `Documents.Open` を使うと、Visioの画面上に余計なステンシルウィンドウがポップアップしてユーザーを混乱させたり、誤って編集されてマスターシェイプが破損するリスクがある。
- `visOpenRO`: 読み取り専用で開き、意図しない上書きを防止する。
- `visOpenDocked`: ドキュメントウィンドウのドックエリアに控えめに格納し、UIの美しさを保つ。
—
5. まとめ：プロフェッショナルな自動化ツールへ向けて
「動けばいい」というレベルのVBAコードは、現場に展開した瞬間に環境依存のエラーを引き起こし、ツール自体の信頼性を失墜させる。
今回紹介した動的パス解決とフォールバックの概念を組み込むことで、「誰が、どのPCから、どんなネットワーク環境で実行してもエラーが起きない」極めて堅牢なVisio自動化基盤が完成する。
あなたの書くコードが、単なるマクロの域を超え、組織全体の業務効率を底上げする「インフラストラクチャ」となることを期待している。
