Visio VBAを掌握せよ：テンプレート依存を排除し、環境を問わない「真の汎用ツール」を設計する
Visioで業務自動化ツールを作っているとき、こんな経験はないだろうか。「自宅の環境では動いたのに、共有サーバーに置いたらエラーで止まった」「チームの誰かがテンプレートの配置場所を変えただけでマクロが全滅した」。
これらはすべて、「テンプレートの場所や構成をハードコーディングしている」ことが原因だ。
Visioの真のプロフェッショナルは、コードの中に物理パスを直接書き込んだりしない。ドキュメントのメタデータを動的に評価し、実行時のコンテキストに合わせて自己適応するコードを書く。今日は、そんな「環境依存をゼロにする」ための設計思想を伝授する。
—
1. なぜ「ハードコーディング」が滅びの道なのか
多くの初心者は、`Documents.Open(“C:\Templates\Standard.vstx”)` のように絶対パスでファイルを指定する。しかし、これは「地雷」だ。
- PCの環境差: OneDrive、SharePoint、ローカルドライブ、どこに配置されるか予測不能。
- 権限とロック: テンプレートを直接開こうとすると、排他制御で弾かれるリスクがある。
- メンテナンス性: テンプレートの構成が変わるたびに、数十個のVBAファイルを書き換えるのか？
我々が目指すべきは、「どのテンプレートから生成されたドキュメントであっても、その素性を自ら判断し、適切なロジックを選択する」という自己完結型のアーキテクチャだ。
—
2. Document.Template プロパティの正しい評価法
Visioの `Document` オブジェクトには、そのドキュメントの出自を示すプロパティがある。しかし、これをそのまま信じてはいけない。
`Document.Template` は、ドキュメントがテンプレートから作成された直後は有効だが、保存後に別の環境で開くとパスが不整合を起こすことがある。「ファイルのプロパティ」と「現在のパス」を組み合わせて判定するのが、プロダクションレベルの唯一の解だ。
堅牢な判定ロジックの実装例
以下のコードは、現在のドキュメントがどのテンプレートに基づいているかを安全に判定し、処理を分岐させるためのテンプレート・ファクトリーパターンだ。
‘ テンプレートのシグネチャを管理する列挙体
Public Enum TemplateType
Unknown = 0
BasicFlowchart = 1
NetworkDiagram = 2
End Enum
‘ 現在のドキュメントの出自を判定する関数
Public Function GetCurrentTemplateType() As TemplateType
Dim doc As Visio.Document
Set doc = ActiveDocument
‘ テンプレートのファイル名またはプロパティを抽出
‘ .Name プロパティではなく、カスタムプロパティや
‘ 特定のシェイプの有無で判断するのも非常に有効なテクニックだ
Dim templateName As String
templateName = LCase(doc.Template)
‘ パスに依存せず、ファイル名の特徴だけで判定する
Select Case True
Case InStr(templateName, “basic_flow”) > 0
GetCurrentTemplateType = TemplateType.BasicFlowchart
Case InStr(templateName, “network”) > 0
GetCurrentTemplateType = TemplateType.NetworkDiagram
Case Else
GetCurrentTemplateType = TemplateType.Unknown
End Select
End Function
‘ 実行のメインルーチン
Public Sub ExecuteAutomatedTask()
Dim tType As TemplateType
tType = GetCurrentTemplateType()
Select Case tType
Case TemplateType.BasicFlowchart
Call ProcessFlowchartLogic
Case TemplateType.NetworkDiagram
Call ProcessNetworkLogic
Case Else
MsgBox “未対応のテンプレートです。処理を中止します。”, vbCritical
End Select
End Sub
—
3. 実践：環境依存を排除する「相対パス」戦略
テンプレートのパスをハードコードする代わりに、「実行中のファイルと同じフォルダにあるテンプレート」や「環境変数で指定されたパス」を参照するように設計する。
以下の関数をツールキットに加えておくことを強く推奨する。
‘ 実行中のドキュメントと同じ階層のパスをベースに設定を取得する
Public Function GetTemplatePath(fileName As String) As String
Dim basePath As String
‘ 現在のドキュメントのパスを取得
basePath = ActiveDocument.Path
‘ パス末尾にセパレータがあるか確認し、結合
If Right(basePath, 1) <> “\” Then basePath = basePath & “\”
GetTemplatePath = basePath & “Templates\” & fileName
End Function
この手法を使えば、ドキュメントとテンプレートをセットで移動させるだけで、どのPCでも即座に動作するポータブルなツールが出来上がる。
—
4. プロダクション環境での注意点：ライフサイクルを意識せよ
最後に、業務自動化において最も見落とされがちなポイントを指摘しておく。
1. Event Sinkの活用: テンプレートを動的に切り替える際、`DocumentOpened` や `BeforeDocumentSave` イベントを購読し、常にテンプレートの不整合を監視すること。
2. キャッシュの汚染: `Document.Template` は時としてキャッシュされた値を返すことがある。重要な判定を行う際は、必ず `Document.CustomDocumentProperties` を活用し、テンプレート側で「バージョン番号」や「テンプレートID」を明示的に埋め込んでおくべきだ。
3. データベース連携: もしテンプレートがDBと紐づくなら、VBAの中に接続文字列を直書きしてはいけない。JSON形式の設定ファイルを同階層に置き、`Scripting.FileSystemObject` で読み込む設計にせよ。
まとめ：アーキテクトからの提言
「動けばいい」というコードは、数ヶ月後の自分を苦しめる負債でしかない。
テンプレートの評価を抽象化し、実行環境の差異をロジックで吸収する。この設計思想を持つだけで、君が作るVisioツールは「単なるマクロ」から「堅牢な業務アプリケーション」へと進化する。
さあ、コードを書き直せ。環境に依存するコードは、もはや過去の遺物だ。
