Visio VBAを掌握する極限の知見：`CustomMenus`による社内標準UIの動的構築
業務自動化エンジニアの皆さん、こんにちは。
数あるOfficeアプリケーションの中でも、Visioは独自の進化を遂げてきた孤高のツールです。特にオブジェクトモデルの癖、そしてUIのライフサイクル管理の気難しさは、多くのVBAエンジニアを挫折させてきました。
「社内標準の図面チェックツールや、データベース連携マクロを配備したい。しかし、ユーザーに『Alt ＋ F8』からマクロを選ばせるような野暮な真似はさせたくない。ExcelやWordのように、Visioのメニューバーに自社専用のタブやコマンドをシームレスに組み込みたい――」
今回は、VisioのUI拡張の核心である `Application.CustomMenus` を用い、VBAの起動・終了と連動してメニューを動的構築・クリーンアップする、プロダクション品質の設計手法を伝授します。
巷によくある「とりあえず動くコード」ではなく、メモリリークを防ぎ、アドインの多重ロードや環境差異に耐えうる堅牢なアーキテクトの視点でお届けします。
—
1. なぜ「静的なUIカスタマイズ」では実務で破綻するのか？
VisioのUIカスタマイズにおいて、VSIファイル（Visio Solution Installation）やUIファイルによる静的なカスタマイズ手法は、一見するとエレガントに見えます。しかし、大規模な社内展開を行う現場では、以下の致命的な課題に直面します。
- 環境依存のパス問題: ユーザーごとのプロファイルパスやネットワークドライブの変更により、UI定義ファイルへのパスが切れやすい。
- バージョン間の断絶: Visio 2010以降のリボンUI（RibbonX）と、レガシーなコマンドバー（`CustomMenus`）の混在による挙動不審。
- ゴーストメニューの残存: マクロのエラー終了や強制終了時に、メニューだけが宙ぶらりんに残り、クリックするとVisioごとクラッシュする現象。
導き出した結論：VBA起動時の「自己構築・自己修復パターン」
実務において最も堅牢なのは、Visioのドキュメント（あるいはアドイン）がロードされた瞬間（`Document_Open` または `AutoOpen`）にVBA側からメニューを動的に生成し、終了時（`Document_Close`）に完璧にパージするアプローチです。
この手法であれば、配布物は単一の `.vsdm`（マクロ有効ドキュメント）または `.vsl` で完結し、バージョンアップもファイル差し替えだけで完了します。
—
2. 実装アーキテクチャの全体像
今回構築するシステムは、以下の3つの要素で構成します。
1. イベントフック: 文書が開いたとき、および閉じるときのイベント捉える。
2. メニュービルダー (`CustomMenus`): 既存のメニューを汚染しないよう、自社グループ（例：「社内標準ツール」）を一発で生成・削除する。
3. エラーハンドリングとライフサイクル管理: 万が一マクロが異常終了してもVisioのUIが破壊されない安全弁。
—
3. プロダクションコード例：堅牢なメニュー制御モジュール
以下のコードを、Visioのマクロ有効ドキュメント（`.vsdm`）のThisDocumentモジュールおよび標準モジュールにそのまま配置してください。実務でそのまま使えるレベルの例外処理とコメントを付与しています。
① ThisDocumentモジュール（ライフサイクルの制御）
Option Explicit
‘ =========================================================================
‘ 模範的ライフサイクル管理：ThisDocument
‘ 文書のオープン・クローズに連動してUIを安全に構築・破棄する
‘ =========================================================================
Private Sub Document_DocumentOpened(ByVal Doc As Visio.Document)
On Error GoTo ErrorHandler
‘ 起動時にメニューを安全に構築
Call CustomMenuManager.CreateStandardMenus
Exit Sub
ErrorHandler:
MsgBox “社内標準メニューの初期化中にエラーが発生しました: ” & Err.Description, vbCritical, “UI構築エラー”
End Sub
Private Sub Document_BeforeDocumentClose(ByVal Doc As Visio.Document)
On Error GoTo ErrorHandler
‘ 終了時（または閉じる時）に必ずメニューをクリーンアップ（ゴースト化を防ぐ）
Call CustomMenuManager.RemoveStandardMenus
Exit Sub
ErrorHandler:
‘ 終了時のエラーはVisioのシャットダウンを阻害しないようログ出力程度に留める
Debug.Print “メニュー破棄エラー: ” & Err.Description
End Sub
② 標準モジュール：`CustomMenuManager`（UI動的構築の核心）
Option Explicit
‘ =========================================================================
‘ チーフアーキテクト設計：CustomMenuManager
‘ Application.CustomMenus を使った動的メニュー構築エンジン
‘ =========================================================================
Private Const MENU_CAPTION_JP As String = “社内標準ツール(&S)”
Private Const COMMAND_NAME_1 As String = “図形整合性チェック”
Private Const COMMAND_NAME_2 As String = “DBデータ一括インポート”
Public Sub CreateStandardMenus()
Dim vsoApp As Visio.Application
Dim cbs As Office.CommandBars
Dim cbMenu As Office.CommandBar
Dim cbPopup As Office.CommandBarPopup
Dim cbButton1 As Office.CommandBarButton
Dim cbButton2 As Office.CommandBarButton
Set vsoApp = Visio.Application
‘ 既存のカスタムメニューが残留している場合は、二重生成を防ぐために一度削除
Call RemoveStandardMenus
‘ Visioのコマンドバーコレクションを取得（Officeオブジェクトモデルを活用）
Set cbs = vsoApp.CommandBars
‘ 通常のメニューバー（Visioでは “Menu Bar”）を取得
On Error Resume Next
Set cbMenu = cbs(“Menu Bar”)
On Error GoTo 0
If cbMenu Is Nothing Then
Exit Sub ‘ メニューバーが存在しない特殊環境への配慮
End If
‘ メインメニューバーに独自のポップアップメニュー（ドロップダウン）を追加
‘ Before:=cbMenu.Controls.Count を指定することで、右端（「ヘルプ」の隣など）に配置
Set cbPopup = cbMenu.Controls.Add(Type:=msoControlPopup, Temporary:=True)
cbPopup.Caption = MENU_CAPTION_JP
‘ — メニュー項目 1 の追加 —
Set cbButton1 = cbPopup.Controls.Add(Type:=msoControlButton, Temporary:=True)
With cbButton1
.Caption = COMMAND_NAME_1 & “(&C)”
‘ マクロの実行アサイン（!{マクロ名} 形式でプロジェクト内のサブルーチンを指定）
.OnAction = “ThisDocument.RunDataCheck”
.FaceId = 1087 ‘ 適切なアイコンIDを指定（例：歯車やチェックマーク等）
End With
‘ — メニュー項目 2 の追加 —
Set cbButton2 = cbPopup.Controls.Add(Type:=msoControlButton, Temporary:=True)
With cbButton2
.Caption = COMMAND_NAME_2 & “(&I)”
.OnAction = “ThisDocument.RunDatabaseImport”
.FaceId = 2151 ‘ データベース関連のアイコンID
End With
End Sub
Public Sub RemoveStandardMenus()
Dim vsoApp As Visio.Application
Dim cbs As Office.CommandBars
Dim cbMenu As Office.CommandBar
Dim ctrl As Office.CommandBarControl
Set vsoApp = Visio.Application
Set cbs = vsoApp.CommandBars
On Error Resume Next
Set cbMenu = cbs(“Menu Bar”)
If Not cbMenu Is Nothing Then
‘ 既存のコントロールから自社定義のキャプションを持つものを完全探査して削除
For Each ctrl In cbMenu.Controls
If ctrl.Caption = MENU_CAPTION_JP Then
ctrl.Delete
End If
Next ctrl
End If
On Error GoTo 0
End Sub
—
4. プロフェッショナルが教える実装上の急所（落とし穴と対策）
このコードを実運用に乗せるにあたり、プロの現場で必ず直面する「3つの壁」と、その回避策を共有します。
① 参照設定（Microsoft Office XX.X Object Library）の罠
上記のコードでは `Office.CommandBars` や `msoControlPopup` といったOffice共通の定数・型を使用しています。
異なるOfficeバージョンの混在環境（例：Office 2016とMicrosoft 365が混在する社内）では、早期バインディング（Early Binding）による参照設定のズレでコンパイルエラーを起こすリスクがあります。
- 対策: 本番配布するテンプレートでは、型を `As Object` に落としたレイトバインディング（Late Binding）へ書き換えるか、開発環境のOfficeバージョンを最も古いものに合わせるビルドポリシーを徹底してください。
② 多重起動時のメニュー重複
ユーザーが社内標準の `.vsdm` を同時に2つ開いた場合、`CreateStandardMenus` が重複実行され、メニューバーに全く同じ「社内標準ツール」が2つ並ぶ醜態を晒すことになります。
- 対策: 今回のコードにある `RemoveStandardMenus` 内のループ処理（前方一致や完全一致による既存コントロールのパージ）を必ず挟み、「生成する前に必ず掃除する（Idempotent: べき等性の確保）」設計を貫いてください。
③ `.OnAction` の名前解決エラー
ボタンをクリックした際に `Macro not found` が発生する原因の9割は、`.OnAction` に指定する文字列のスコープミスです。
- 標準モジュールのプロシージャを呼ぶ場合: `.OnAction = “ModuleName.ProcedureName”`
- ThisDocument内のプロシージャを呼ぶ場合: `.OnAction = “ThisDocument.ProcedureName”`
- 極意: アドイン（`.vsl`）や別ブックから呼び出す場合は、プロジェクト名まで含めた完全修飾名（`”ProjectName.ModuleName.ProcedureName”`）を指定する必要があります。
—
5. おわりに：組織の標準化を支えるインフラとして
Visio VBAにおけるUIの動的構築は、単なる「見た目のカスタマイズ」ではありません。それは、社内の設計ノウハウやデータ連携の作法を、ユーザーが意識することなく強制・徹底させるための『ガバナンス・インフラ』です。
`CustomMenus` を使いこなし、起動から終了まで完全に制御された美しいツールを提供できれば、あなたの開発する社内ツールの信頼性は劇的に跳ね上がります。
妥協のない設計とコードで、退屈な手作業をこの世から駆逐しましょう。
