Visio VBAを掌握する極限の知見：Document.Pathと相対パス駆動による堅牢なファイル管理アーキテクチャ
レガシーシステムの保全、あるいは企業内ニッチインフラの自動化において、Visio VBAはその真価を発揮する。しかし、多くの開発者が「ハードコーディングされたパス」という致命的な爆弾をコード内に放置し、共有フォルダの移動や担当者の変更によってシステムを沈黙させている。
`C:\Projects\A\diagram.vsdm` のような絶対パス依存は、開発環境と本番環境の乖離を生む悪源だ。
本稿では、`ActiveDocument.Path` を起点とした相対パス駆動による堅牢なモジュール設計を解説する。単なるAPIの紹介にとどまらず、Windows APIの併用、オブジェクトのライフサイクル管理、そして実務に耐えうる堅牢性を持ったコードベースの構築手法を提示する。
—
1. 根本原因の排除：なぜ `ActiveDocument.Path` なのか
Visio VBAにおける最大の罠は、`CurDir` や `Application.Path` の誤用にある。
- `CurDir` は、ユーザーが最後にファイルを開いたダイアログやOSの挙動によって動的に変わり、信頼性がゼロに近い。
- `Application.Path` は、Visio本体（`Visio.exe`）のインストールディレクトリを指すため、業務データへのアクセスには使えない。
現在実行中の図面がどこに存在するかを正確に取得するには、`ActiveDocument.Path` しか存在しない。
ただし、ここで一つ大きな技術的障壁がある。「一度も保存されていない新規ドキュメント（未保存状態）」の場合、`ActiveDocument.Path` は空文字（`””`）を返す。 この例外状態をハンドリングできないコードは、プロフェッショナルのコードとは言えない。
—
2. 実装：堅牢な相対パス解決エンジン
以下のコードは、親ドキュメントのディレクトリを絶対基準とし、そこからの相対パスで外部ステンシルや参照データ（CSV/Excel等）を安全にロードするための実務直結モジュールである。
Option Explicit
‘ ==============================================================================
‘ módulo名: MdlPathManager
‘ 概要: カレントドキュメント基準の相対パス解決とファイル存在確認を行う
‘ ==============================================================================
‘ Windows API: 高速かつ確実にファイル・フォルダの存在を確認する
If VBA7 Then
Private Declare PtrSafe Function PathFileExists Lib “shlwapi.dll” Alias “PathFileExistsA” (ByVal pszPath As String) As Long
Else
Private Declare Function PathFileExists Lib “shlwapi.dll” Alias “PathFileExistsA” (ByVal pszPath As String) As Long
End If
/
- アクティブドキュメントを基準とした絶対パスを生成する
- @param {String} relativePath – 基準ディレクトリからの相対パス (例: “..\data\master.csv” または “stencils\parts.vssx”)
- @return {String} 解決された完全修飾パス
/
Public Function GetAbsolutepath(ByVal relativePath As String) As String
Dim docPath As String
‘ 1. アクティブドキュメントの存在確認
If ActiveDocument Is Nothing Then
Err.Raise 513, “GetAbsolutepath”, “アクティブなドキュメントが存在しません。”
End If
docPath = ActiveDocument.Path
‘ 2. 未保存ドキュメントのガード節
If docPath = vbNullString Then
Err.Raise 514, “GetAbsolutepath”, “現在のドキュメントは未保存です。一度保存してから実行してください。”
End If
‘ 3. パスの結合（末尾のバックスラッシュを正規化）
If Right$(docPath, 1) <> “\” Then
docPath = docPath & “\”
End If
‘ 4. 最終的なパスの構築
Dim fullPath As String
fullPath = docPath & relativePath
‘ 5. APIを用いた存在確認と正規化
If PathFileExists(fullPath) = 0 Then
‘ デバッグ用またはログ用のフォールバック処理をここに記述可能
‘ Err.Raise 53, “GetAbsolutepath”, “指定されたファイルが見つかりません: ” & fullPath
End If
GetAbsolutepath = fullPath
End Function
—
3. 実践：外部ステンシルの動的ロードとメモリ最適化
パス解決の基盤ができたら、次はそれを実務に応用する。
Visioの自動化において最もメモリリークを引き起こしやすいのは、「ドキュメントを開いた後のステンシルオブジェクトの解放漏れ」である。
以下のコードは、相対パスで解決したカスタムステンシルを読み込み、図形を配置した後に、不要になったステンシルドキュメントの参照を適切に破棄するライフサイクル管理の模範解答だ。
Public Sub LoadStencilAndDropShape()
Dim stencilPath As String
Dim stnDoc As Visio.Document
Dim targetPage As Visio.Page
Dim shpMaster As Visio.Master
Dim droppedShape As Visio.Shape
On Error GoTo ErrorHandler
‘ 1. 相対パスからステンシルの絶対パスを取得
‘ ※ 構造例: 実行図面と同じ階層の “stencils/network_icons.vssx” を想定
stencilPath = GetAbsolutepath(“stencils\network_icons.vssx”)
‘ 2. ステンシルのサイレントオープン（UIに表示させずに裏で開く）
‘ Documents.OpenEx を用いることで、MDIウィンドウを汚さずに開く
Set stnDoc = Application.Documents.OpenEx(stencilPath, visOpenRO + visOpenHidden)
‘ 3. マスターシェイプの取得（名称は実際のマスター名に合わせる）
Set shpMaster = stnDoc.Masters.ItemU(“Server”)
‘ 4. アクティブページへの図形ドロップ
Set targetPage = ActivePage
Set droppedShape = targetPage.Drop(shpMaster, 4.0, 5.0)
‘ 5. 成功ログ（必要に応じて）
Debug.Print “Successfully dropped: ” & droppedShape.Name
CleanUp:
‘ ==========================================================================
‘ 【極限の知見】オブジェクトの明示的解放とメモリ管理
‘ Visio VBAでは、裏で開いたドキュメント（stnDoc）をそのまま放置すると
‘ プロセス終了までメモリを占有し続け、大規模バッチ処理時にメモリリークを引き起こす。
‘ ==========================================================================
If Not stnDoc Is Nothing Then
‘ ステンシルを閉じる（変更を保存しない: visSaveChangesNo）
stnDoc.Close
End If
‘ 参照の完全破棄
Set droppedShape = Nothing
Set shpMaster = Nothing
Set targetPage = Nothing
Set stnDoc = Nothing
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “System Error”
Resume CleanUp
End Sub
—
4. チーフアーキテクトからの提言：レガシー環境とシステム間連携の勘所
1. ネットワークドライブ（UNCパス）の罠
`ActiveDocument.Path` が `\\server\share\folder\` のようなUNCパスを返す場合、古いVisio環境（Visio 2010/2013等）では、VBA内部のファイルIO関数がUNCを正しく解釈できないケースがある。上記コードで使用している Windows API `PathFileExists` は、UNCパスに対しても極めて安定して動作するため、環境差異を吸収する防壁としても機能する。
2. 型安全性と Late Binding の回避
本稿のコードでは `Visio.Document` や `Visio.Page` といった明示的な型指定（Early Binding）を行っている。パフォーマンスの最大化と、インテリセンスによる開発効率の向上、そしてオブジェクトの意図しないゾンビ化を防ぐためには、常に明示的な型宣言と `Set … = Nothing` によるクリーンアップを徹底すべきである。
ハードコーディングされたパスという「技術的負債」をコードから駆逐し、どの環境に持ち込んでも一物一価で動作するポータブルなVisio自動化システムを構築してほしい。
