【テクニカル・上級編】【初心者】ステンシルパスの動的取得と相対パスによるファイル管理 – Visio VBA解析バイブル

Visio VBA

2026.11.08

脆弱なパスからの脱却：環境に依存しないステンシル・マネジメントの設計思想

脆弱なパスからの脱却：環境に依存しないステンシル・マネジメントの設計思想

システムを設計する際、最も初歩的でありながら、最も多くのエンジニアが陥る罠がある。それは「パスのハードコーディング」だ。

特に、Visioを用いた大規模な図面自動生成システムや、社内配布用の自動化ツールを設計する場合、開発者のローカル環境で動作したコードが、ユーザーの環境（異なるユーザー名、異なるネットワークドライブ、あるいはレガシーなOS環境）にデプロイされた瞬間に崩壊する光景を、私は何度も見てきた。

本記事では、単なる「ファイルの開き方」ではない。環境に左右されない、堅牢（Robust）でスケーラブルなステンシル管理のためのアーキテクチャについて、その真髄を解説する。

1. 「My Shapes」の正体を解明する：環境依存の排除

多くの初学者は、自作のステンシルを読み込む際に `C:\Users\Admin\Documents\My Shapes\Custom.vssx` のような絶対パスを記述する。これは設計思想として「破綻」している。

Visioにおける「My Shapes」フォルダは、Windowsのユーザープロファイルに紐付いた動的な領域だ。これを制御するには、Windowsのシェル構造を理解し、実行時にパスを動的に解決（Resolve）しなければならない。

Windows APIとShellオブジェクトによるパス取得

VBAにおいて、環境変数 `Environ(“USERPROFILE”)` を使う手法は一般的だが、それだけでは不十分な場合がある。より確実なのは、`WScript.Shell` を介して、システムが定義する特殊フォルダを正確に叩くことだ。

''' <summary>
''' ユーザーのMy Shapesフォルダの絶対パスを動的に取得する
''' </summary>
''' <returns>絶対パス文字列。取得失敗時は空文字を返す</returns>
Private Function GetMyShapesPath() As String
    On Error GoTo ErrorHandler
    Dim shell As Object
    Set shell = CreateObject("WScript.Shell")
    
    ' AppData\Roaming のパスを取得
    Dim appDataPath As String
    appDataPath = shell.ExpandEnvironmentStrings("%APPDATA%")
    
    ' Visioの標準的なMy Shapesパスを構成
    ' ※環境により構成が異なる可能性があるため、存在確認を組み込むのがプロの作法
    Dim targetPath As String
    targetPath = appDataPath & "\Microsoft\Visio\*.vssx" ' 検索パターンとして扱う場合
    
    ' 実際には特定のフォルダを指す
    GetMyShapesPath = appDataPath & "\Microsoft\Visio"
    
    Set shell = Nothing
    Exit Function

ErrorHandler:
    GetMyShapesPath = ""
    Set shell = Nothing
End Function

2. ステンシル・ローダーの実装：二重オープンとリソース競合の回避

ステンシルを読み込む際、単に `Documents.Open` を呼び出すのは素人の仕事だ。
プロフェッショナルは、以下の3点を考慮する。

1. 既に開いているか？: 同一ステンシルを二重に開こうとすると、ランタイムエラーが発生するか、あるいはメモリ上に無駄なインスタンスが重複する。
2. ネットワーク遅延への耐性: 共有ストレージ上のステンシルを扱う場合、I/O待ちによるブロッキングを考慮する必要がある。
3. オブジェクトのライフサイクル: 開いたステンシルは、そのスコープ内で確実に制御下に置かなければならない。

実践的ステンシル・マネージャー

以下に、堅牢なステンシル取得ロジックを示す。

''' <summary>
''' 指定された相対パス（またはファイル名）からステンシルを安全に取得する
''' </summary>
''' <param name="stencilName">ファイル名または相対パス</param>
''' <returns>Visio.Stencil オブジェクト。失敗時はNothing</returns>
Public Function LoadStencilSecurely(ByVal stencilName As String) As Visio.Stencil
    Dim vsoApplication As Visio.Application
    Dim vsoDocument As Visio.Document
    Dim vsoStencil As Visio.Stencil
    Dim fullPath As String
    Dim baseDir As String
    
    Set vsoApplication = Visio.Application
    
    ' 1. パスの解決（My Shapes内、あるいは指定の相対パス）
    baseDir = GetMyShapesPath()
    If baseDir = "" Then
        MsgBox "Critical Error: Could not resolve My Shapes directory.", vbCritical
        Exit Function
    End If
    
    ' ファイル名のみの場合はMy Shapesを、パスが含まれる場合はそのパスを使用
    If InStr(stencilName, "\") = 0 Then
        fullPath = baseDir & "\" & stencilName
    Else
        fullPath = baseDir & "\" & stencilName ' 実際の実装では結合ロジックを精査せよ
    End If

    ' 2. 既に開いているドキュメントの走査（二重オープン防止）
    On Error Resume Next
    For Each vsoDocument In vsoApplication.Documents
        If InStr(1, vsoDocument.FullName, stencilName, vbTextCompare) > 0 Then
            Set vsoStencil = vsoDocument.Stencil
            Set LoadStencilSecurely = vsoStencil
            Exit Function
        End If
    Next vsoDocument
    On Error GoTo 0

    ' 3. ファイルの存在確認とオープン
    If Dir(fullPath) = "" Then
        Debug.Print "Error: Stencil not found at " & fullPath
        Set LoadStencilSecurely = Nothing
        Exit Function
    End If

    On Error GoTo OpenError
    Set vsoDocument = vsoApplication.Documents.OpenEx(fullPath, visOpenDocked)
    Set vsoStencil = vsoDocument.Stencil
    
    Set LoadStencilSecurely = vsoStencil
    Exit Function

OpenError:
    Debug.Print "Error: Failed to open stencil. " & Err.Description
    Set LoadStencilSecurely = Nothing
End Function

3. メモリ管理の極致：COMオブジェクトの明示的解放

VBA（COMオートメーション）における最大の懸念事項は、「オブジェクトがメモリに残留し、Visioプロセスがゾンビ化する」ことだ。

特に、ステンシルやマスターシェイプをループ内で大量に操作する場合、VBAのガベージコレクション（参照カウント）に頼り切るのは極めて危険である。オブジェクトの参照が残っている限り、そのファイルは「使用中」となり、ネットワーク上の共有ファイルとしてロックされ続ける。

鉄則：明示的な `Nothing` 代入とスコープの限定

以下のコードパターンを、君たちの設計標準（Standard）として採用せよ。

Sub ExecuteAutomation()
    Dim vsoStencil As Visio.Stencil
    Dim vsoMaster As Visio.Master
    
    ' ステンシルの取得
    Set vsoStencil = LoadStencilSecurely("NetworkAssets.vssx")
    
    If vsoStencil Is Nothing Then Exit Sub
    
    On Error GoTo Cleanup
    
    ' マスターシェイプの操作
    Set vsoMaster = vsoStencil.Masters.ItemU("Standard_Box")
    ' ... ここに高度なロジックを記述 ...

Cleanup:
    ' --- ここからがエンジニアの腕の見せ所だ ---
    
    ' 1. 子オブジェクトから順に解放する
    If Not vsoMaster Is Nothing Then
        Set vsoMaster = Nothing
    End If
    
    ' 2. 親オブジェクトを解放する
    If Not vsoStencil Is Nothing Then
        ' ステンシルを閉じたい場合はここで vsoStencil.Document.Close を呼ぶ
        Set vsoStencil = Nothing
    End If
    
    ' 3. エラーハンドリング
    If Err.Number <> 0 Then
        Debug.Print "Runtime Error: " & Err.Description
    End If
End Sub

アーキテクトの視点：なぜ `Nothing` が重要なのか

VBAにおける `Set obj = Nothing` は、単なるお作法ではない。これは「参照カウント（Reference Count）をデクリメントする命令」である。
COMオブジェクトは、その参照カウントがゼロになった瞬間に初めて破棄される。もし、エラーによって `Set obj = Nothing` をバイパスしてしまうと、そのオブジェクトはメモリ上に残り続け、Visioのプロセスが終了するまでファイルロックを保持し続けることになる。これは、サーバーサイドでの自動実行や、共有ネットワーク環境における致命的な不具合の温床となる。

結言

ステンシル管理の本質は、単に図形を表示させることではない。「いかなる実行環境においても、決定論的（Deterministic）にリソースへアクセスし、かつリソースを確実に解放する」という、システムとしての整合性を保つことにある。

パスの動的取得、二重オープンの防止、そして厳格なメモリ管理。これら一つ一つの積み重ねが、単なる「マクロ」を、プロフェッショナルな「システム」へと昇華させるのだ。

技術の深淵へ、ようこそ。