【Visio VBA】テンプレートの呪縛を断つ ― 「完全なる無」から描画を制御する極限の作法
Visioの自動化において、多くのエンジニアが陥る罠がある。それは「標準テンプレートへの依存」だ。`Documents.Add`に何も考えず引数を渡せば、勝手にグリッド設定や謎のステンシルが混入し、メモリを浪費する。
大規模なドキュメント生成エンジンや、外部DBと連携した自動作図システムを構築する際、この「余計なお世話」はシステムの足かせとなる。真のアーキテクトならば、キャンバスは常にクリーンであるべきだ。
本稿では、テンプレートの呪縛を排除し、完全な「空」からVisioドキュメントを立ち上げるための、最も純粋で効率的な実装を解説する。
—
1. なぜ「テンプレートなし」が最強なのか
Visioの`Documents.Add`メソッドに引数を与えない場合、デフォルトのテンプレートが適用される。しかし、これは業務システムにおいてはノイズでしかない。
- 無駄なStencilのロード: 不要なマスターシェイプがメモリを占有し、ファイルサイズが肥大化する。
- 予期せぬ設定: ページサイズや単位設定が環境によって揺らぐリスクを排除できない。
- パフォーマンス: 不要なバックグラウンドプロセスが走る時間を極限まで削る。
「完全な空」から始めることで、あなたはキャンバスの神となり、すべての挙動をコードで支配できる。
—
2. 最小構成コード：極限のクリーン生成
以下のコードは、既存のテンプレートを一切参照せず、メモリを汚染しないための最小実装である。
Option Explicit
”’
”’
Public Sub CreateCleanDrawing()
Dim vsoApp As Visio.Application
Dim vsoDoc As Visio.Document
‘ Applicationオブジェクトは参照の取り回しに注意
Set vsoApp = Application
‘ Documents.Addメソッドに空文字列を渡すことで、テンプレートなしの新規作成を行う
‘ これにより、不要なステンシルやデフォルト設定の混入を防ぐ
Set vsoDoc = vsoApp.Documents.Add(“”)
‘ ここで初めて必要な環境設定をコードベースで適用する
With vsoDoc.Pages(1)
.PageSheet.Cells(“PageWidth”).Formula = “297mm”
.PageSheet.Cells(“PageHeight”).Formula = “210mm”
End With
‘ 【重要】オブジェクトの明示的解放（VBAのメモリ管理の鉄則）
Set vsoDoc = Nothing
Set vsoApp = Nothing
End Sub
—
3. チーフアーキテクトの視点：安定稼働のための深層知見
オブジェクトのライフサイクルとメモリ解放
VBAは参照カウンタ方式でメモリを管理しているが、Visioのオブジェクトモデルは複雑だ。特に`Application.Documents`のようなコレクションをループ処理する際は、必ず`Nothing`代入による明示的な解放を行え。さもなくば、ガベージコレクションが走るタイミングが予測できず、バックグラウンドプロセスがゾンビ化する。
外部連携における「隠れプロセスの撲滅」
もし君が、WSHや外部アプリからVisioを操作しているなら、`Application.Quit`を呼び出す前に、生成した`Document`を`Saved = True`に設定することを忘れるな。これを怠ると、終了時に「保存しますか？」というダイアログが背後で立ち上がり、システムが永久に終了しなくなる。
‘ 外部からの操作時は強制終了の作法を徹底する
vsoDoc.Saved = True
vsoDoc.Close
vsoApp.Quit
Windows APIの介入（推奨レベル：高）
高精度の自動化を求める場合、たまにVisioの描画イベントがWindowsのメッセージキューと衝突することがある。描画の安定性を担保したい場合は、`Sleep` APIを介在させて描画スレッドに余裕を持たせるのが、レガシー環境で生き残るための生存戦略だ。
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
—
結びに：コードは「状態」を制御するためにある
テンプレートを使わないということは、面倒な設定をすべて自分で書くということだ。しかし、それは「ブラックボックス」を排除し、システムの挙動が常にコードと一対一で対応することを意味する。
トラブルが発生したとき、原因が自分の書いたコードにあるのか、それとも謎のテンプレート設定にあるのか――その切り分けに時間をかけるのはエンジニアの仕事ではない。最初から「透明なキャンバス」を用意し、その上に自らのロジックを描き出せ。
これこそが、Visio自動化の第一歩であり、唯一の正解である。
