Visio VBAを掌握する極限の知見：VBProjectによるコード管理の自動化とガバナンス
Microsoft Visioは、単なる作図ツールではない。背後に強力なVBA（Visual Basic for Applications）エンジンを内蔵した、一種の「GUI付きプログラム実行環境」である。
大規模な業務システムやネットワーク設計の自動化において、数十、数百のVisioドキュメント（`.vsdm`）に散在するVBAコードをいかに統御するかは、シニアエンジニアやインフラ管理者にとって常に頭痛の種であった。UI上で「Alt + F11」を押し、コードをコピペして回るような前近代的オペレーションは、もはやエンジニアリングの範疇外である。
本稿では、Visioのドキュメント内包プロジェクトである `Document.VBProject` を完全に掌握し、外部の `.bas` / `.cls` ファイルからマクロ群をプログラム制御で一括インポート・エクスポートする極限の自動化手法を解説する。
—
1. アーキテクチャの理解：VisioとVBAのセキュリティ境界
VisioのVBAコードは、ドキュメントファイルそのもの（`.vsdm` など）の内部にバイナリとして格納されている。これを外部から操作するには、COMオートメーションの壁を越え、VBE（Visual Basic for Environment）のオブジェクトモデルに直接アクセスする必要がある。
ここで立ちはだかるのが、Officeの厳格なマクロセキュリティの壁と、64bit環境におけるVBComponentのメモリ管理の罠である。
必須の事前設定（GPOおよびレジストリ対策）
プログラムから `VBProject`（`VBComponents` コレクション）にアクセスするためには、あらかじめExcelやVisioのセキュリティセンターで以下の設定が有効化されている必要がある。
- 「VBA プロジェクトへのプログラムからのアクセスを信頼する」にチェックが入っていること。
これを手動ではなくエンタープライズ環境で強制するには、グループポリシー（GPO）または以下のレジストリキーの書き換えが必須となる。
HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\16.0\visio\security\AccessVBOM = 1
(※ `16.0` はOffice 2016以降 / 365のバージョンを示す)
—
2. 実装：VBAコードの自動インポート・エクスポートエンジン
以下のVBAコードは、指定したVisioファイルから既存の全モジュールをパージし、外部ディレクトリに格納された最新のソースコード（`.bas`, `.cls`）を動的にインポートする実用的な「コード同期エンジン」である。
このスクリプトは、操作対象となるVisioドキュメント（親）の標準モジュールから実行されることを想定している。
Option Explicit
‘ =========================================================================
‘
‘ 外部ディレクトリからVisioドキュメントへVBAモジュールを一括インポートする
‘ =========================================================================
Public Sub SynchronizeVBAProject(ByVal targetDoc As Visio.Document, ByVal sourceDir As String)
Dim vbProj As Object ‘ VBIDE.VBProject
Dim vbComps As Object ‘ VBIDE.VBComponents
Dim vbComp As Object ‘ VBIDE.VBComponent
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim filePath As String
Dim ext As String
On Error GoTo ErrorHandler
‘ 1. Trust Access to VBA Project の状態を安全にハンドリング
On Error Resume Next
Set vbProj = targetDoc.VBProject
If Err.Number <> 0 Then
MsgBox “VBAプロジェクトへのアクセスが拒否されました。” & vbCrLf & _
“「VBA プロジェクトへのプログラムからのアクセスを信頼する」を有効にしてください。”, _
vbCritical, “セキュリティ例外”
Exit Sub
End If
On Error GoTo ErrorHandler
Set vbComps = vbProj.VBComponents
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(sourceDir) Then
MsgBox “指定されたソースディレクトリが存在しません: ” & sourceDir, vbCritical
Exit Sub
End If
‘ 2. 既存の標準モジュールおよびクラスモジュールを安全に削除（Document/Sheetモジュールは除外）
Dim i As Long
For i = vbComps.Count To 1 Step -1
Set vbComp = vbComps(i)
‘ 1: 標準モジュール(vbext_ct_StdModule), 2: クラスモジュール(vbext_ct_ClassModule)
If vbComp.Type = 1 Or vbComp.Type = 2 Then
vbComps.Remove vbComp
End If
Next i
‘ 3. 外部ディレクトリからソースコードをインポート
Set folder = fso.GetFolder(sourceDir)
For Each file In folder.Files
filePath = file.Path
ext = LCase(fso.GetExtensionName(filePath))
If ext = “bas” Or ext = “cls” Then
‘ Importメソッドにより、自動的に適切なコンポーネントとして追加される
vbComps.Import filePath
End If
Next file
MsgBox “VBAプロジェクトの同期が正常に完了しました。”, vbInformation, “完了”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
—
3. チーフアーキテクトが教える：極限のメモリ最適化とトラブルシューティング
大規模なバッチ処理で何百ものVisioファイルをループ処理する場合、VBEのオブジェクトモデルの扱いを誤ると、メモリリーク、COM例外（エラー 1004 や -2147417848）、最悪の場合はVisioプロセスのハングアップを引き起こす。
以下の鉄則を遵守せよ。
① オブジェクトの明示的な解放（`Nothing`代入）
VBAのガベージコレクションは頼りにならない。特に `VBProject` や `VBComponents` などのVBEオブジェクトは、内部でCOMの参照カウントを保持し続けるため、スコープを抜けてもメモリ上に残存しやすい。
ループ内ですべてのオブジェクト変数に `Set xxx = Nothing` を明示的に行い、参照カウントを即座にゼロに落とせ。
‘ ループの最後、またはエラー脱出時に必ず実行する
Set vbComp = Nothing
Set vbComps = Nothing
Set vbProj = Nothing
Set fso = Nothing
② ドキュメントの強制セーブと不可視実行
大量のファイルをバックグラウンドで処理する際は、VisioのUIを描画させない（パフォーマンス向上と画面ちらつき防止）のが鉄則である。
‘ 処理の高速化と安定化のための定石
Application.ScreenUpdating = False
Application.Visible = False
‘ — 処理本体 —
targetDoc.Save
targetDoc.Close
Application.Visible = True
Application.ScreenUpdating = True
③ 64bit Office環境における型安全性
Office 2016以降の64bit版では、ポインタサイズやウィンドウハンドルの扱いに厳密さが求められる。
`VBProject` を操作する際、早期バインディング（`References` で `Microsoft Visual Basic for Applications Extensibility 5.3` を参照設定する手法）は、異なるOfficeバージョン間でコンパイルエラーを引き起こすリスクがある。
そのため、本稿のコードのように遅延バインディング（`As Object` と `CreateObject`）を徹底し、バージョン差異による依存関係の崩壊を防ぐのがプロフェッショナルの選択である。
—
4. システム間連携への応用：CLI / C# からのVisioマクロ自動化
このアーキテクチャの真価は、VisioマクロのデプロイをCI/CDパイプライン（Azure DevOpsやGitHub Actionsのセルフホステッドエージェント等）に組み込める点にある。
C# (.NET 6/8) の COM Interop を用いて、外部からVisioを起動し、上述のVBAインポート処理をヘッドレスで実行するスニペットを提示する。
using Visio = Microsoft.Office.Interop.Visio;
public void UpdateVisioMacro(string visioPath, string basDir)
{
var app = new Visio.Application();
app.Visible = false;
app.ScreenUpdating = false;
try
{
Visio.Document doc = app.Documents.Open(visioPath);
// COM経由でVBProjectにアクセス
dynamic vbProj = doc.VBProject;
dynamic vbComps = vbProj.VBComponents;
// 既存の標準モジュールの削除
for (int i = vbComps.Count; i >= 1; i–)
{
dynamic comp = vbComps.Item(i);
if (comp.Type == 1 || comp.Type == 2) // Standard or Class
{
vbComps.Remove(comp);
}
}
// 新規モジュールのインポート
foreach (var filePath in Directory.GetFiles(basDir, “.bas”))
{
vbComps.Import(filePath);
}
doc.Save();
doc.Close();
}
finally
{
app.ScreenUpdating = true;
app.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(app);
}
}
—
5. 結び：コードは一元管理し、野良マクロを根絶せよ
各ユーザーがローカルのVisioファイル内で勝手にコードを修正・肥大化させる「野良マクロ」の文化は、企業のITガバナンスにおいてガンでしかない。
`Document.VBProject` を利用したコードの自動インポート・エクスポート基盤を構築することで、Git等のバージョン管理システム（VCS）をコードの真実のソース（Single Source of Truth）とし、Visioドキュメントは常に最新のクリーンなマクロを保持した状態でデプロイすることが可能となる。
レガシーなVBAであっても、モダンなCI/CDの思想と適切なオブジェクトライフサイクル管理を適用すれば、堅牢でエンタープライズに耐えうる自動化基盤へと昇華させることができる。現場のエンジニア諸君の健闘を祈る。
