Visio VBAを掌握する極限の知見：`CustomMenus`による社内標準UIの動的構築とライフサイクル管理
エンタープライズ領域における図面資産の管理において、Microsoft Visioは依然として強力なインフラストラクチャである。しかし、数千名規模の組織で標準化された図面テンプレートやバリデーションロジックを強制する場合、標準のVisioリボンUIのままではオペレーターのミスを防ぎきれない。
「開発したVBAマクロを、全ユーザーのVisio起動時にシームレスに組み込み、直感的な独自メニューとして提供する」
この課題を解決するため、本稿では`Application.CustomMenus`オブジェクトを用いた動的UI構築の手法と、COMのメモリ管理、さらにはレガシーUI（CommandBars）とモダン環境の狭間で発生するトラブルシューティングの極意を、チーフアーキテクトの視点から解説する。
—
1. VisioオブジェクトモデルにおけるUI拡張のアーキテクチャ
VisioのUIカスタマイズにおいて、まず理解しなければならないのは「バージョン間の断絶」である。
Office 2007以降、WordやExcel、PowerPointはFluent UI（リボンインターフェース）へ移行し、カスタマイズにはRibbonX（XML）が必須となった。しかし、Visioはその内部アーキテクチャの歴史的経緯から、長年にわたり古いOfficeのコマンドバー構造（`CommandBars` / `CustomMenus`）の互換レイヤーを保持し続けてきた。
Visio VBAにおけるメニュー拡張は、主に以下の2つのアプローチに大別される。
1. `Application.CustomMenus`（または`CustomMenusEx`）による動的注入
- メリット: VBAのコード実行だけで完結するため、デプロイが容易（`.vsl`や`.vsdm`のオープン時にフック可能）。
- デメリット: Officeの古いCommandBarインフラストラクチャに依存しているため、厳密にはレガシー技術である。
2. RibbonX XMLによる静的カスタマイズ
- メリット: モダンなリボンUIに統合できる。
- デメリット: アドイン（COMアドイン）の作成か、ファイルフォーマット（`.vsdm`）内の`.rels`およびカスタムUIパーツの複雑な操作が必要となり、動的な生成のハードルが高い。
社内標準ツールのように「頻繁にロジックが更新され、かつ全クライアントへ迅速に配布したい」という要件においては、Documentのオープンイベントと連動して動的にメニューを構築できる `CustomMenus` アプローチが、コスト対効果の面で未だに実用的な解となる。
—
2. メモリ最適化とCOMオブジェクトのライフサイクル管理
VBAにおけるUIの動的構築で最も多く見落とされるのが、COMオブジェクトの参照リークとガベージコレクションのタイミングである。
`CommandBar` や `CommandBarButton` などのオブジェクトは、背後でC++ベースのネイティブCOMコンポーネントとして動作している。VBA側で適切に参照を解放（`Nothing`代入）しないと、Visio終了時にメモリリークを引き起こしたり、最悪の場合、アプリケーション終了時にゾンビプロセスとしてメモリ上に残留する。
さらに、メニューの動的構築時には「既存メニューのクリーンアップ」を確実に行わなければならない。重複登録を防ぐためのイデムポータント（冪等性）な実装が求められる。
—
3. 実装コード：動的メニュー構築モジュール
以下に、Visioの起動時（または図面オープン時）に実行され、安全に独自メニューを追加・削除する実用的なVBAコードを示す。このコードは、エラーハンドリングとCOMオブジェクトの適切な解放を徹底したプロダクション品質のものである。
Option Explicit
‘ ==============================================================================
‘ モジュール名: clsMenuManager
‘ 概要: Visioのカスタムメニュー（CustomMenus）を動的に構築・破棄するマネージャー
‘ ==============================================================================
Private Const MENU_CAPTION_JPN As String = “社内標準ツール(&S)”
Private Const TARGET_BAR_NAME As String = “MenuBar”
Public Sub SetupCustomMenu()
Dim vsoApp As Visio.Application
Set vsoApp = Visio.Application
On Error GoTo ErrorHandler
‘ 1. 既存の同名メニューが存在する場合はクリーンアップ（二重登録防止）
Call RemoveCustomMenu
‘ 2. CustomMenusコレクションの取得
Dim cMenuSets As Visio.UIObject
Set cMenuSets = vsoApp.CustomMenus
If cMenuSets Is Nothing Then
‘ カスタムUIオブジェクトが存在しない場合は新規作成
Set cMenuSets = vsoApp.NewUIObject
End If
‘ 3. メニューバー（MenuBar）の参照を取得、または追加
Dim targetBar As Office.CommandBar
Dim targetBars As Office.CommandBars
Set targetBars = vsoApp.CommandBars
On Error Resume Next
Set targetBar = targetBars.Item(TARGET_BAR_NAME)
On Error GoTo ErrorHandler
If targetBar Is Nothing Then
‘ 通常はMenuBarは存在するが、存在しない場合のフォールバック
Set targetBar = targetBars.Add(TARGET_BAR_NAME, msoBarMenuBar, , True)
End If
‘ 4. ポップアップメニュー（ドロップダウン親）の追加
Dim customPopup As Office.CommandBarPopup
Set customPopup = targetBar.Controls.Add(msoControlPopup, , , , True)
customPopup.Caption = MENU_CAPTION_JPN
customPopup.Tag = “CORP_STANDARD_MENU”
‘ 5. 子メニューボタンの追加とマクロのバインド
Dim btnValidate As Office.CommandBarButton
Set btnValidate = customPopup.Controls.Add(msoControlButton, , , , True)
With btnValidate
.Caption = “図面整合性チェック(&V)”
.OnAction = “ThisDocument.RunValidationMacro”
.FaceId = 349 ‘ 適宜アイコンIDを指定
.ToolTipText = “社内規程に違反したシェイプがないかスキャンします。”
End With
Dim btnExport As Office.CommandBarButton
Set btnExport = customPopup.Controls.Add(msoControlButton, , , , True)
With btnExport
.Caption = “メタデータ一括書出(&E)”
.OnAction = “ThisDocument.RunExportMacro”
.FaceId = 421
.ToolTipText = “図面内のシェイプデータをJSON形式でエクスポートします。”
End With
‘ 6. 変更をVisioのUIに適用
vsoApp.SetCustomMenus cMenuSets
Exit Sub
ErrorHandler:
MsgBox “カスタムメニューの構築中に致命的なエラーが発生しました: ” & Err.Description, vbCritical, “Menu Manager”
Call ReleaseObjects(cMenuSets, targetBar, targetBars, customPopup, btnValidate, btnExport)
End Sub
Public Sub RemoveCustomMenu()
On Error GoTo ErrorHandler
Dim vsoApp As Visio.Application
Set vsoApp = Visio.Application
Dim targetBars As Office.CommandBars
Set targetBars = vsoApp.CommandBars
Dim targetBar As Office.CommandBar
On Error Resume Next
Set targetBar = targetBars.Item(TARGET_BAR_NAME)
On Error GoTo ErrorHandler
If Not targetBar Is Nothing Then
Dim ctrl As Office.CommandBarControl
Dim i As Long
For i = targetBar.Controls.Count To 1 Step -1
Set ctrl = targetBar.Controls(i)
If ctrl.Tag = “CORP_STANDARD_MENU” Then
ctrl.Delete
End If
Set ctrl = Nothing
Next i
End If
‘ 標準状態に戻す
vsoApp.FileNewMenuFileName = “”
Exit Sub
ErrorHandler:
‘ 終了処理中のエラーはサイレントに処理、またはログ出力
End Sub
Private Sub ReleaseObjects(ParamArray objs() As Variant)
Dim i As Long
For i = LBound(objs) to UBound(objs)
If IsObject(objs(i)) Then
Set objs(i) = Nothing
End If
Next i
End Sub
—
4. チーフアーキテクトが警鐘を鳴らす運用上の罠
この手法を実業務に導入する際、シニアエンジニアが必ず直面する「落とし穴」が存在する。アーキテクチャ設計時には以下の点に留意せよ。
A. セキュリティソフトとマクロの実行ブロック（Mark of the Web）
社内ファイルサーバーやメール添付経由で配布された `.vsdm` ファイルは、WindowsのMOTW（Mark of the Web）によりVBAの実行が制限される。メニュー自体は動的に構築されたとしても、クリックした瞬間に `OnAction` で指定したプロシージャがセキュリティポリシーによってブロックされるケースがある。
- 対策: 配布するテンプレート群は、あらかじめ組織のグループポリシー（GPO）で「信頼済み場所（Trusted Locations）」に指定されたローカル/ネットワークパスから読み込ませるアーキテクチャを強制すること。
B. COMアドインとの競合
複数の異なる部署が独自に作成した `.vsdm` やアドインが同時にロードされた場合、`MenuBar` に対するコントロールの挿入順序が競合したり、終了時の `RemoveCustomMenu` 処理の漏れによってメニューが多重に残留する現象が発生する。
- 対策: タグ（`Tag = “CORP_STANDARD_MENU”`）による厳密な一意性判定を行い、イニシャライズ時に必ず既存の同名タグを完全掃海（Purge）するロジックを担保すること。
C. Office 64bit環境におけるAPI呼び出しの罠
もしこのメニュー制御の拡張としてWindows API（例えばウィンドウハンドルをフックして特定のダイアログを制御するなど）を併用する場合、`PtrSafe` 宣言と `LongPtr` 型の採用を怠ると、64bit版 Visio 環境で即座にメモリクラッシュ（致命的な例外）を引き起こす。UI拡張単体であればVBAのオブジェクトモデル内で完結させるべきだが、システム連携を行う場合はビット数の差異に細心の注意を払うこと。
—
総括
Visioの `CustomMenus` を用いた動的UI構築は、レガシーなアプローチと見なされがちである。しかし、モダンなデプロイメントパイプラインを持たない閉じた社内ネットワークや、即座に改修を反映させなければならないエンタープライズの現場においては、依然として極めて高い費用対効果を発揮する。
オブジェクトのライフサイクルを正確に理解し、メモリリークや競合を防ぐ堅牢なコードベースを構築すること。それこそが、レガシーとモダンを繋ぐプロフェッショナルなエンジニアリングである。
