【テクニカル・上級編】Document.TemplateとPathの評価：テンプレートファイルからの新規図面自動生成と初期化マクロの構築 – Visio VBA解析バイブル

Visio VBAの深淵：テンプレート起点の自動生成と「メモリの呪縛」を解く

Visioの自動化において、`Documents.Add`を安易に呼び出すだけのコードは、もはや「プロトタイプ」ですらありません。特に社内標準テンプレート（.vstx）を起点とした業務自動化においては、オブジェクトのライフサイクルを制御し、メモリリークを根絶し、かつOSのファイルシステムと直接対峙する「アーキテクチャの気概」が求められます。

本稿では、レガシーな環境においても堅牢に動作する、プロフェッショナルな図面生成エンジンの設計指針を授けます。

—

1. Document.Addの「真実」：テンプレートの評価とパスの罠

多くの初心者は `Documents.Add(“C:\Path\To\Template.vstx”)` と書きます。しかし、ここには重大な落とし穴があります。パスの静的記述は環境移行時に必ず破綻します。

また、`Documents.Add` は、テンプレートからコピーを作成する際、メモリ上に「無題のDocumentオブジェクト」を生成します。これを制御下に置かなければ、Visioのインスタンスは徐々に肥大化し、最悪の場合、オートメーションエラーを招きます。

解決策：環境依存を排したパス解決と初期化

VBAでパスを扱う際は、常に `ThisWorkbook.Path` や `Environ(“AppData”)` を利用し、実行時のコンテキストを動的に評価してください。

‘ テンプレートのフルパスを取得し、安全にドキュメントを生成する
Public Function CreateDrawingFromTemplate(ByVal templateName As String) As Visio.Document
Dim doc As Visio.Document
Dim templatePath As String

‘ パス解決にはFileSystemObjectを使用して堅牢性を確保
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ 実行用テンプレート格納場所を規定（例：共有ドライブやAppData）
templatePath = fso.BuildPath(ThisDocument.Path, “Templates\” & templateName)

If Not fso.FileExists(templatePath) Then
Err.Raise vbObjectError + 1000, “TemplateLoader”, “テンプレートファイルが見つかりません: ” & templatePath
End If

‘ ドキュメント生成（テンプレートから）
Set CreateDrawingFromTemplate = Visio.Documents.Add(templatePath)

‘ 後始末
Set fso = Nothing
End Function

—

2. オブジェクトのライフサイクルとメモリ最適化

Visioのオブジェクトモデルは、参照カウント方式のCOMです。特に `Shape` や `Selection` オブジェクトをループ処理する際、`.Item` へのアクセスで内部的に作成される一時オブジェクトがメモリを食いつぶします。

「明示的解放」という美学

「VBAだから自動で消える」というのは幻想です。大規模な図面生成では、以下のプラクティスを徹底してください。

1. ループ内のオブジェクト生成を避ける: ループ内で `Set shp = …` を繰り返す場合は、必ずループ内で解放します。
2. Nothingの徹底: スコープを抜ける前に、必ず `Set obj = Nothing` を記述する。これは単なるマナーではなく、COMの参照カウントを強制的にゼロにするための防衛手段です。

‘ メモリ効率を意識したShape走査の例
Private Sub CleanUpShapes(ByVal targetPage As Visio.Page)
Dim shp As Visio.Shape
Dim i As Long

For i = targetPage.Shapes.Count To 1 Step -1
Set shp = targetPage.Shapes.Item(i)

‘ ロジック処理
If shp.CellExists(“User.IsDisposable”, 0) Then
shp.Delete
End If

‘ 明示的解放
Set shp = Nothing
Next i
End Sub

—

3. レガシー環境との共存：Windows APIの活用

システム連携において、Visio単体で完結させることは稀です。例えば「生成した図面を特定のフォルダに保存し、PDFとして書き出し、さらに共有ドライブのパスをクリップボードにコピーする」といった要件が頻出します。

Windows APIを駆使してクリップボードを直接操作することで、ユーザーのUXは劇的に向上します。

If VBA7 Then
Private Declare PtrSafe Function OpenClipboard Lib “user32” (ByVal hwnd As LongPtr) As Long
Private Declare PtrSafe Function EmptyClipboard Lib “user32” () As Long
‘ ※他、SetClipboardData等の宣言を記述
Else
‘ 32bit環境用の宣言
End If

このように、VBA7（64bit）とそれ以前の環境を `#If` コンパイルディレクティブで分岐させることは、シニアエンジニアとして「当然の義務」です。

—

アーキテクトからの最終助言：疎結合な設計を

最後に、コードをテンプレートに直書きするのは止めましょう。
ビジネスロジック（メタデータの流し込み、命名規則の適用）は、クラスモジュール（`Class Module`）へカプセル化してください。

• DocumentFactory クラス: ドキュメント生成とテンプレート評価を担当
• MetadataEngine クラス: CustomProperties（ShapeData）の書き込みを抽象化
• Main モジュール: 処理のオーケストレーションのみを行う

このレイヤー構造により、将来的な要件変更（例：テンプレートファイルの仕様変更）に対して、システム全体を改修することなく、最小限のインパクトで追従が可能となります。

Visio VBAは「古い技術」ではありません。オブジェクトモデルを極めれば、OSのリソースを自在に操る強力な武器になります。妥協なきコードで、現場に真の自動化を実装してください。