Visio VBAの深淵：環境依存を破壊する「標準ステンシル」ロードの絶対解
Visioで業務自動化ツールを組む際、多くのエンジニアが最初の壁にぶち当たる。「フローチャートのステンシルが読み込めない」。
「そんなのパスを直接書けばいいじゃないか」と思ったあなた。その瞬間、あなたのコードは技術的負債を抱えたことになる。Visioはインストール言語（日本語、英語など）やビルドバージョンによって、標準ステンシルの格納パスが微妙に異なるからだ。
今日は、環境に依存せず、かつ堅牢にステンシルを制御するための「プロフェッショナルな作法」を伝授する。
なぜパスを直書きしてはいけないのか
多くの開発者がやりがちなのは、`”C:\Program Files\Microsoft Office\root\…”` といったハードコードだ。これは、ユーザーのPC環境が少し変わるだけで（例えばOffice 365のアップデートや、言語パックの切り替え）、即座に`Run-time error ’53’: File not found`を引き起こす。
「環境の変化を想定しないコードは、ゴミである」
我々が使うべきは、Visioが提供するAPIである `Application.GetBuiltInStencilFile` メソッドだ。
—
堅牢なステンシル読み込み：プロダクションコード
以下の関数は、ステンシルの名前さえ指定すれば、環境の言語設定を無視して確実にファイルパスを解決し、ドキュメントにロードする。
‘ @brief 環境依存を排除し、標準ステンシルを安全に開く
‘ @param stencilName 拡張子なしのステンシル名（例: “BASFLO_M”）
‘ @return 開かれたStencilオブジェクト（失敗時はNothing）
Public Function LoadBuiltInStencil(ByVal stencilName As String) As Visio.Document
On Error GoTo ErrHandler
Dim strPath As String
Dim docStencil As Visio.Document
‘ 1. APIを使用して正しいパスを取得する
‘ GetBuiltInStencilFileはVisioが内部管理するパスを返すため環境に依存しない
strPath = Application.GetBuiltInStencilFile(stencilName, Visio.VisBuiltInStencilTypes.visTypeStencil)
‘ 2. 既に開かれていないかチェック（二重読み込み防止）
Set docStencil = Application.Documents.OpenEx(strPath, Visio.VisOpenSaveArgs.visOpenDocked)
Set LoadBuiltInStencil = docStencil
Exit Function
ErrHandler:
Debug.Print “Error: ” & Err.Description & ” (Target: ” & stencilName & “)”
Set LoadBuiltInStencil = Nothing
End Function
このコードの「設計思想」
1. `GetBuiltInStencilFile` の活用: これこそが公式APIの神髄だ。Visio自身に「お前のステンシルはどこにある？」と問いかける手法であり、パスを追う必要はない。
2. `OpenEx` と `visOpenDocked`: ただ開くだけでなく、ドッキング状態で開くことで、ユーザーのUI体験を損なわない。
3. エラーハンドリング: ファイルが存在しない場合や、すでに開かれている場合（`OpenEx`は開いているドキュメントに対して例外を投げることがあるため）を考慮し、呼び出し元が `Nothing` で判断できるようにしている。
—
現場で必ず守るべき「3つの鉄則」
1. ステンシル名の「言語」を意識せよ
`GetBuiltInStencilFile` は魔法ではない。ステンシル名自体が環境によって異なる場合がある（例: 日本語版なら `BASFLO_M.vssx`、英語版なら `BASFLO_U.vssx`）。
もし完全な互換性を求めるなら、`Application.LanguageSettings` を確認し、言語に応じたサフィックスを動的に付与するラッパー関数を一段上に置くのが最良のアーキテクチャだ。
2. データベース連携時のライフサイクル管理
自動化ツールからデータベース経由で図形を配置する場合、ステンシルを「開きっぱなし」にするのは推奨しない。
- 処理開始：ステンシルを開く
- 処理中：図形をドロップ
- 処理終了：`docStencil.Close` で明示的に閉じる
このライフサイクルを守らないと、Visioのメモリリークや、不必要なステンシルが画面を圧迫する原因となる。
3. パフォーマンスの罠：OpenExのオプション
ステンシルを読み込む際、編集不要であれば読み取り専用 (`visOpenReadOnly`) を明示的に指定すべきだ。これにより、ネットワーク越しにステンシルを読み込む環境下でも、I/Oの競合を回避できる。
—
結びに：エンジニアの誇り
「動けばいい」というコードは、数ヶ月後に自身の首を絞める。
環境に依存しない設計は、単なる綺麗事ではなく、「現場で保守し続けるための生存戦略」だ。
今回のコードをテンプレートとして、あなたのツール群を「壊れない自動化エンジン」へと進化させてほしい。Visio VBAの奥深さは、こうした細部のAPIの扱い方にこそ宿るのだから。
