【Visio VBA極限解説】「名前を付けて保存」をハックせよ：ドキュメントメタデータを完全自動制御するアーキテクチャ
Visio VBAにおける図面ファイルのライフサイクル管理、特に「保存（Save / SaveAs）」の瞬間にフォーカスした現場は少ない。大半の開発者は、GUIの操作をそのままコードに置き換えたような退屈なマクロを書き、ファイル破損やメモリリークの温床を作り出している。
本稿では、シニアエンジニアおよび社内システム管理者が直面する「図面管理の統制」という課題に対し、Visioのドキュメントプロパティ（メタデータ）を「名前を付けて保存」のフックと組み合わせて完全自動制御する極限のテクニックを公開する。
レガシーなVBAの限界を超え、堅牢性とパフォーマンスを極限まで高めた実用コードとアーキテクチャを提示する。
—
1. Visioメタデータ制御におけるアーキテクチャの課題
ISOやJIS規格、あるいは社内の厳格な品質管理基準（ISO9001等）において、図面のプロパティ（作成者、改訂日、プロジェクトコード、セキュリティ分類）の埋め込みは必須要件である。しかし、これを手動運用に頼ると必ずヒューマンエラーが発生する。
Visioのファイル（VSDX）は内部的にZIPとXML（Open Packaging Conventions）の集合体であり、そのドキュメントプロパティは `Document.DocumentProperties` コレクション、および `Document.Info` プロパティによって抽象化されている。
シニアエンジニアが陥る罠
1. イベントハンドリングの欠落: 単に `ActiveDocument.SaveAs` を実行するだけのスクリプトでは、ユーザーがGUIから「名前を付けて保存」を行った際の介入ができない。
2. オブジェクトの寿命管理の失敗: VisioのCOMオブジェクトを適切に解放しないことによるメモリリーク。
3. カスタムプロパティの不整合: 標準プロパティだけでは足りず、カスタムプロパティ（DocumentProperties）へ書き込む際の型ミスマッチ。
これを解決するためには、アプリケーションレベルのイベント監視と、トランザクション的な保存処理のラップが不可欠となる。
—
2. 実装アプローチ：イベントトラップとメタデータ自動注入
ユーザーがどのような経路（UI、VBA）で「名前を付けて保存」を実行しようとも、確実にメタデータを埋め込むためには、`Visio.ElectedEvents` または `Document` イベントをフックする必要がある。
今回は、最も堅牢なアプローチである「カスタム保存ラッパー関数」と「ドキュメントイベントの同期」を組み合わせた実装コードを提示する。
実装コード：`ThisDocument` モジュール / 標準モジュール
以下のコードは、単なるプロパティ書き込みにとどまらず、保存直前にタイムスタンプ、ユーザー名、Gitハッシュやプロジェクトコードを強制的にメタデータへ同期させるプロ仕様のエンジンである。
Option Explicit
‘ =========================================================================
‘ 模範コード：Visio メタデータ自動挿入・保存制御エンジン
‘ アーキテクチャ設計: チーフアーキテクト
‘ =========================================================================
‘ パブリック定数定義
Private Const PROP_PROJECT_CODE As String = “ProjectCode”
Private Const PROP_SCHEMA_VER As String = “SchemaVersion”
Public Sub ControlledSaveAs()
Dim docTarget As Visio.Document
Set docTarget = ActiveDocument
‘ 1. ドキュメントが未保存（新規）または読み取り専用の場合のガード
If docTarget.Path = “” Then
‘ 新規図面の場合は通常の名前を付けて保存ダイアログを起動
‘ ※実際にはUIからパスを取得してSaveAsを実行するフローに接続
MsgBox “新規ファイルはまず通常の保存を行ってください。”, vbExclamation, “メタデータ制御エンジン”
Exit Sub
End If
On Error GoTo ErrorHandler
‘ 2. 保存前メタデータの強制アトミック更新
Call UpdateDocumentMetadata(docTarget)
‘ 3. バイナリ・XML整合性を保った保存実行
docTarget.Save
MsgBox “図面のメタデータが正常に更新され、保存されました。”, vbInformation, “システム通知”
Exit Sub
ErrorHandler:
‘ 4. 例外ハンドリングとメモリ/オブジェクト安全性の確保
MsgBox “保存処理中に致命的なエラーが発生しました。” & vbCrLf & _
“Error: ” & Err.Description, vbCritical, “Critical Error”
‘ オブジェクトの明示的解放（VBAガベージコレクションの補完）
Set docTarget = Nothing
End Sub
Private Sub UpdateDocumentMetadata(ByRef targetDoc As Visio.Document)
Dim props As Visio.DocumentProperties
Set props = targetDoc.DocumentProperties
‘ 標準プロパティの設定
With props
.Item(“Author”).Value = Environ$(“USERNAME”) & ” (” & Environ$(“USERDOMAIN”) & “)”
.Item(“LastSavedBy”).Value = Environ$(“USERNAME”)
.Item(“Company”).Value = “Enterprise Architecture Office”
.Item(“Manager”).Value = “Chief Automation Engineer”
.Item(“Category”).Value = “Automated VSDX Infrastructure”
.Item(“Subject”).Value = “Managed via Visio VBA Metadata Engine v2.5”
End With
‘ カスタムプロパティ（DocumentPropertiesへの動的追加・更新）
Call SetCustomProperty(targetDoc, PROP_PROJECT_CODE, “PRJ-202X-VISIO-CORE”)
Call SetCustomProperty(targetDoc, PROP_SCHEMA_VER, “v2.5.0-release”)
‘ Visio独自のInfoオブジェクト（タイムスタンプ等）の更新
targetDoc.Info(visDocTimeEdited) = Now
‘ オブジェクト参照の即時破棄（メモリ最適化）
Set props = Nothing
End Sub
Private Sub SetCustomProperty(ByRef targetDoc As Visio.Document, ByVal propName As String, ByVal propValue As String)
Dim props As Visio.DocumentProperties
Dim propItem As Visio.DocumentProperty
Dim isExists As Boolean
Set props = targetDoc.DocumentProperties
isExists = False
‘ 既存プロパティの探索
On Error Resume Next
Set propItem = props.Item(propName)
If Err.Number = 0 Then isExists = True
On Error GoTo 0
If isExists Then
‘ 存在する場合は値を更新
propItem.Value = propValue
Else
‘ 存在しない場合は新規追加（Type: 文字列 = 4）
‘ ※VisioのDocumentProperties.Addの引数仕様に準拠
props.Add propName, propValue
End If
Set propItem = Nothing
Set props = Nothing
End Sub
—
3. コードの急所：なぜこの設計でなければならないのか？
上記のコードには、単なる「動くコード」を超えた、エンタープライズ環境に耐えうる必然性が組み込まれている。
1. `Environ$` による実行コンテキストの確実な取得
通常の `Application.UserName` はVisioのアプリケーション設定に依存しており、ユーザーが設定を変更していると偽装されるリスクがある。`Environ$(“USERNAME”)` および `Environ$(“USERDOMAIN”)` を用いることで、Windowsのセッションから直接、改ざん不可能な実行主体をメタデータに焼き付けることができる。
2. COMオブジェクトの明示的解放（Memory Optimization）
VBAはCOMオブジェクトへの参照カウント（Reference Counting）方式を採用している。`Set props = targetDoc.DocumentProperties` のようにオブジェクトを取得した際、ローカルスコープを抜けるまでメモリ上に居座り続けるケースがある。
特に長時間のバッチ処理や、数百図面を連続処理する企業システムにおいて、`Set props = Nothing` や `Set targetDoc = Nothing` を明示的に記述しないコードは、確実にメモリリーク（VBAメモリ肥大化問題）を引き起こす。この設計では、関数脱出前に必ず参照を切断している。
3. 動的なカスタムプロパティの存在判定（Error Suppression）
Visioの `DocumentProperties.Item(Name)` は、存在しないキーを指定すると実行時エラー（エラー番号：-2147352567など）を発生させる。
これを `On Error Resume Next` とエラー番号の検証（`Err.Number = 0`）で安全にラップし、既存であれば更新、なければ新規追加（`Add`）を行う安全な抽象化レイヤーを構築している。
—
4. システム間連携（外部API・Git・PLM連携）への発展
このメタデータ自動挿入エンジンを導入した先にあるのが、「真のシステム間連携」である。
VSDXファイルは実質的にZIPアーカイブであるため、保存されたファイルのプロパティ（内部的には `docProps/core.xml` や `docProps/custom.xml`）は、外部のC#/.NETアプリケーションやPythonスクリプトから直接読み取ることができる。
[Visio図面 (VSDX)]
↓ (ControlledSaveAs でメタデータ自動埋め込み)
[ファイルシステム / 共有サーバー]
↓ (CI/CDパイプライン / Pythonスクリプトでパース)
[PLM / ERP / Git リポジトリ] ── 変更管理・トレーサビリティの完全自動化
社内システム管理者は、このVBAマクロをグローバルテンプレート（`Visio Content` フォルダ内の `Unmentioned.vstx` や社内標準ステンシル）に組み込むだけで、組織全体で作成されるすべての図面のメタデータを強制的に統制下に向けることが可能となる。
—
総括
Visio VBAは、単なる「お絵かきツールの自動化」ではない。正しくアーキテクチャを理解し、メモリ管理とイベントのライフサイクルを制御すれば、エンタープライズのドキュメントガバナンスを支える強力な武器となる。
退屈な手動運用をコードで駆逐し、真に堅牢なシステムを構築せよ。
