Visio VBAを掌握する極限の知見：ハードコーディングの呪縛を断ち切れ！相対パスによる堅牢なファイル管理設計
開発プロジェクトのリーダーである私たちが、現場のメンバーが書いたVBAコードを見て最も絶望するのは、次のようなコードに出くわした瞬間だ。
‘ 【アンチパターン】絶対パスのハードコーディング
Dim stnPath As String
stnPath = “C:\Users\Yamada\Documents\Visio\MyShapes.vssx”
ActiveDocument.Pages(1).Drop Documents.Open(stnPath).Masters(1), 5, 5
笑えない話だが、いまだにこのような「他人の環境で100%動かない爆弾」をプロダクション環境に投下するエンジニアが後を絶たない。PCを換えたら動かない、共有サーバーに移したらパスが見つからない、フォルダ名を少し変えただけでエラー――。
プロフェッショナルな業務自動化エンジニアを目指すなら、「パスのハードコーディングは悪である」という哲学を叩き込んでほしい。
今回は、Visioのオブジェクトモデルの根幹である `Document.Path` と `ActiveDocument` を完全に手なずけ、環境の変化に微動だにしない堅牢な相対パス解決モジュールの設計思想を伝授する。
—
1. なぜ「ActiveDocument.Path」なのか？（オブジェクトモデルの深層）
Visio VBAにおける最大の罠、それは「`ActiveDocument` と `ThisDocument` の混同」と「カレントディレクトリの気まぐれ」だ。
`CurDir` や `Application.Path` を使ってはいけない理由
初心者がやりがちなミスとして、`CurDir` 関数でパスを取得しようとするケースがある。しかし、Visioにおいて `CurDir` が指すフォルダは、ユーザーが最後にファイルを開いたり保存したりしたダイアログの場所に依存して動的に変わる。スクリプトの実行基点として信用してはならない。
また、`Application.Path` はVisioのインストールフォルダ（例: `C:\Program Files\Microsoft Office\root\Office16`）を返すため、業務データの置き場所としては全く使い物にならない。
救世主：`Document.Path`
実行中のVase（vsd/vsdx）がどこに保存されていようとも、そのファイルの居場所を正確に指し示してくれるのが `Document.Path` プロパティだ。
ここで注意すべき仕様上の重要なポイントがある。
- 未保存のドキュメントの場合： `Path` プロパティは 空文字 `””` を返す。
- パスの末尾のセパレータ： `ActiveDocument.Path` が返す文字列には、末尾のバックスラッシュ（`\`）が含まれない場合がある（※Visioのバージョンや保存状態による）。
したがって、文字列結合を行う際は、自前でパス区切り文字の存在をチェックするか、後述する安全なユーティリティ関数を経由させなければならない。
—
2. 堅牢なファイルパス解決モジュールの設計
実務で使える「絶対にコケない」ファイルパス管理のアーキテクチャを構築する。
ここでは、以下の要件を満たす共通関数（ユーティリティ）を設計する。
1. 未保存ドキュメントの検知とハンドリング（エラーで強制終了させず、ユーザーに保存を促す）
2. 相対パスから絶対パスへの安全な変換
3. ファイル存在確認（Error Handling）の組み込み
プロダクションコード：`FilepathManager` モジュール
以下のコードをVBAプロジェクトに標準モジュール（例：`mPathUtils`）としてインポートしてほしい。
Option Explicit
‘ =========================================================================
‘ módulo名: mPathUtils
‘ 概要: ActiveDocumentを基準とした堅牢な相対パス解決エンジン
‘ =========================================================================
/
- 実行中のVisioドキュメントを基準にした絶対パスを生成する
- @param relativePath 基準フォルダからの相対パス (例: “shapes\custom.vssx” または “..\data\master.xlsx”)
- @return 解決された絶対パス。未保存の場合は空文字を返す。
/
Public Function GetAbsolutepath(ByVal relativePath As String) As String
Dim docPath As String
‘ 1. アクティブドキュメントのパスを取得
On Error GoTo ErrorHandler
If ActiveDocument Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “パス解決エラー”
Exit Function
End If
docPath = ActiveDocument.Path
‘ 2. 未保存ドキュメントのガード処理
If docPath = “” Then
MsgBox “このVisioファイルはまだ保存されていません。” & vbCrLf & _
“一度ファイルを保存してから処理を実行してください。”, vbExclamation, “未保存ファイル警告”
Exit Function
End If
‘ 3. 末尾のバックスラッシュの正規化
If Right(docPath, 1) <> “\” Then
docPath = docPath & “\”
End If
‘ 4. FileSystemObjectを利用して相対パスを絶対パスへ安全に解決
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ BuildPathは相対パスの階層(“..\等”)も正しく解決してくれる
Dim resolvedPath As String
resolvedPath = fso.BuildPath(docPath, relativePath)
GetAbsolutepath = resolvedPath
Exit Function
ErrorHandler:
MsgBox “パスの解決中に予期せぬエラーが発生しました: ” & Err.Description, vbCritical
GetAbsolutepath = “”
End Function
/
- 指定したパスのファイルが実在するか検証し、なければログ/エラーを返す
/
Public Function ValidateFileExists(ByVal fullPath As String) As Boolean
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
If fso.FileExists(fullPath) Then
ValidateFileExists = True
Else
ValidateFileExists = False
‘ 必要に応じてデバッグ出力
Debug.Print “[Warning] ファイルが見つかりません: ” & fullPath
End If
End Function
—
3. 実務での活用シーン：外部ステンシルとデータの動的ロード
上記のモジュールをどう実務の業務自動化に組み込むか。
ここでは、「メイン図面と同じフォルダにある `lib` フォルダからステンシルを読み込み、図形を自動配置する」というシナリオのコードを見てみよう。
フォルダ構造のイメージ
C:\EnterpriseVisioSystem\
┣ 01_AutoDrawing.vsdm <-- 実行中のVisioファイル (ActiveDocument)
┗ lib\
┗ EnterpriseStencils.vssx <-- 読み込みたい外部ステンシル
実装スクリプト
Sub LoadExternalStencilAndDrop()
Dim stencilRelativePath As String
Dim stencilFullPath As String
Dim targetDoc As Document
Dim stnDoc As Document
Dim shpMaster As Master
Set targetDoc = ActiveDocument
‘ 相対パスでステンシルの位置を指定
stencilRelativePath = “lib\EnterpriseStencils.vssx”
‘ 1. mPathUtilsモジュールを使って絶対パスに変換
stencilFullPath = GetAbsolutepath(stencilRelativePath)
If stencilFullPath = “” Then Exit Sub ‘ エラー時は中断
‘ 2. ファイルの実存在チェック
If Not ValidateFileExists(stencilFullPath) Then
MsgBox “必須ステンシルが見つかりません。” & vbCrLf & stencilFullPath, vbCritical, “ファイルロスト”
Exit Sub
End If
‘ 3. ステンシルファイルをバックグラウンド（またはReadOnly）で開く
‘ すでに開いている重複ロードを防ぐスマートな実装
On Error Resume Next
Set stnDoc = Documents.Item(VBA.Interaction.IIf(InStr(stencilFullPath, “\”) > 0, _
Mid(stencilFullPath, InStrRev(stencilFullPath, “\”) + 1), stencilFullPath))
On Error GoTo 0
If stnDoc Is Nothing Then
Set stnDoc = Documents.OpenEx(stencilFullPath, visOpenRO + visOpenHidden)
End If
‘ 4. マスターシェイプを取得して図面にドロップ
Set shpMaster = stnDoc.Masters(“サーバー機器”)
If Not shpMaster Is Nothing Then
Dim targetPage As Page
Set targetPage = targetDoc.Pages(1)
‘ ページ中央にドロップ
targetPage.Drop shpMaster, 4.25, 5.5
MsgBox “ステンシルからの図形配置が完了しました。”, vbInformation
Else
MsgBox “指定されたマスターシェイプが見つかりませんでした。”, vbExclamation
End If
End Sub
—
4. プロジェクトリーダーからの実践的アドバイス
1. `Documents.OpenEx` の活用を忘れるな
外部ステンシルを読み込む際、ただ `Documents.Open` を使うと、VisioのUI上に余計なステンシルウィンドウが開き、ユーザーを混乱させる。上のコード例のように `visOpenRO + visOpenHidden`（読み取り専用・非表示）を組み合わせて、メモリとUIをクリーンに保つのがプロの技だ。
2. バージョン管理システム（Git等）との相性
相対パス設計を徹底していれば、開発者Aが `D:\Projects\Visio\` で作業していようが、開発者Bが `C:\Users\Yamada\Work\` でクローンしていようが、ソースコードを一切書き換えることなくそのまま動作する。これがチーム開発における最大の生産性向上につながる。
3. エラーハンドリングの哲学
「ファイルがないなら作らせる、あるいは分かりやすく落とす」。中途半端にエラーを握りつぶすコードを書くくらいなら、`ValidateFileExists` で明確にダイアログを出して処理を止める方が、ヘルプデスクの問い合わせコストを劇的に削減できる。
ハードコーディングという悪習をチームから根絶し、どこに持ち運んでも一発で動く、美しく高潔なVisio自動化システムをあなたの手で構築してほしい。
