Visio Webエクスポートの深淵：VBAから「SaveAsWeb」を完全制御する極限の自動化
Visioの「Web保存」機能。GUIからポチポチと設定を繰り返し、出力先のパスに悩み、巨大な図面でハングアップする……そんな非効率なワークフローを続けているのであれば、今すぐその思考を捨てていただきたい。
我々エンジニアが対峙すべきは「GUI」ではなく「オブジェクトモデル」だ。Visioには `VisSaveAsWeb` という、あまりにも強力だが、同時にドキュメントが極めて少ない隠れたインターフェースが存在する。今回は、この機能をVBAから掌握し、全自動でインタラクティブなWeb図面パッケージを生成するアーキテクチャを紐解く。
—
1. なぜ「標準機能」の自動化が難しいのか？
VisioのWeb保存機能は、内部的に `VisSaveAsWeb` オブジェクトを使用する。しかし、多くのエンジニアが躓くのは、このオブジェクトが通常の `SaveAs` メソッドとは異なり、「設定（Settings）」と「出力（Operations）」が分離された非同期的な構造を持っているからだ。
メモリ管理を怠れば、Visioインスタンスは即座にゾンビ化する。特に大規模なダイアグラムを扱う場合、オブジェクトの明示的解放は「作法」ではなく「生存戦略」である。
—
2. 実装：Webエクスポートを制御するファクトリコード
以下のコードは、単に保存するだけでなく、パン・ズーム、検索機能、そしてブラウザでの表示最適化をプログラム的に強制注入する。
Option Explicit
”’
”’
Public Sub ExportToInteractiveWeb(ByVal targetDoc As Visio.Document, ByVal outputPath As String)
Dim vsoSaveAsWeb As VisSaveAsWeb
Dim vsoWebSettings As VisWebPageSettings
‘ 1. オブジェクトの生成：ここでメモリを確保
Set vsoSaveAsWeb = Visio.Application.VisSaveAsWeb
Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
‘ 2. エクスポートオプションの注入（ここが肝）
With vsoWebSettings
.ProjectName = “Diagram_” & Format(Now, “yyyyMMdd_HHmm”)
.TargetDirectory = outputPath
.StoreInFolder = True
‘ インタラクティブ機能の強制有効化
.IncludePanAndZoom = True ‘ パン・ズーム操作
.IncludeSearch = True ‘ 検索機能
.IncludeDetails = True ‘ プロパティ表示
‘ パフォーマンス最適化：レンダリング設定
.ImageFormat = visImageFormatPNG
.ScreenSize = visScreenSize1280x1024
End With
‘ 3. 出力実行
‘ 巨大なファイルの場合はDoEventsで制御が必要な場合がある
On Error GoTo Cleanup
vsoSaveAsWeb.CreatePages targetDoc
Cleanup:
‘ 4. オブジェクトの明示的解放：メモリリークを許すな
Set vsoWebSettings = Nothing
Set vsoSaveAsWeb = Nothing
If Err.Number <> 0 Then
Debug.Print “Error: ” & Err.Description
End If
End Sub
—
3. シニアエンジニアが意識すべき「罠」と最適化
① プロセス間通信（IPC）の重さ
`CreatePages` メソッドは非常に重い。数千のシェイプを持つ図面を処理する場合、VBAのスレッドが停止するように見える。もしGUI連携システムを構築しているなら、`DoEvents` を適切に挟むか、あるいは別プロセスから呼び出すような非同期ラッパーを構築すべきだ。
② Windows APIとの連携（パスの正規化）
VBAの `Path` 操作は時として不安定だ。特にネットワークドライブ上のパスを扱う場合、`GetFullPathName` APIを呼び出し、パスを完全に解決してから `TargetDirectory` に渡すことを推奨する。そうしなければ、Visioは稀に「ファイルが見つかりません」という不可解な例外を吐き出す。
③ レガシー環境での保守性
もしあなたがこの仕組みを社内基盤として展開するなら、「テンプレートとなる設定XML」を外部に分離せよ。`VisWebPageSettings` の各プロパティをハードコードするのは悪手だ。設定値をJSONやXMLからロードする構成にすれば、要件変更のたびにコードを再コンパイルする必要はなくなる。
—
4. 最後に：自動化の真髄
「コードを書く」のではない。「自動化するためのフレームワークを設計する」のだ。
VisioのWeb保存機能は、現代のWebフロントエンドから見ればレガシーな技術かもしれない。しかし、複雑なネットワーク図やプロセスフローを即座に共有可能なHTMLに変換するこの能力は、依然として企業内でのドキュメント運用において最強の武器だ。
オブジェクトのライフサイクルを管理し、エラーハンドリングを完璧に施し、誰が叩いても同じ品質のHTMLが生成される……。このレベルの堅牢性を実現して初めて、「エンジニア」を名乗る資格がある。
さあ、あなたの環境でこのコードを走らせてみてほしい。GUIのクリック回数がゼロになった瞬間、あなたは「Visioを操作する人」から「Visioを制御するアーキテクト」へと昇華するはずだ。
