Visio VBAの深淵：`SaveAsWeb` を完全制御し、自動化の壁を突破する
業務自動化の世界において、Visioの「Web保存機能」ほど、GUI操作に依存しすぎて自動化の恩恵を放棄されている機能はない。多くのエンジニアが「手動でエクスポートしてフォルダ分けする」という低生産な作業を繰り返しているが、それはVisioのオブジェクトモデルに対する敬意が足りない証拠だ。
今日は、`Document.SaveAsWeb` オブジェクトをVBAから完全に掌握し、パン・ズームや検索機能が組み込まれた高品質なHTMLパッケージを、一括で爆速出力する「プロフェッショナルな設計術」を伝授する。
—
1. なぜ「標準機能の自動化」で躓くのか？
`SaveAsWeb` は、Visioの通常メソッドとは異なり、`VisSaveAsWeb` という専用のCOMオブジェクトを介して制御する必要がある。これを知らずに「マクロの記録」で生成される不完全なコードを信じていると、環境によってパスが解決できなかったり、設定が反映されなかったりと、本番環境で確実に炎上する。
堅牢な自動化を実現するための鉄則は以下の3点だ。
- 完全パスの正規化: 相対パスは禁忌。`Scripting.FileSystemObject` を使い、絶対パスで管理する。
- 設定のシリアライズ: 設定値はハードコーディングせず、定数管理するか、INI/JSONから読み込む設計にする。
- 例外処理の注入: Web出力はファイルI/Oが激しい。エラーを握りつぶさず、ログに吐き出す構造が必須。
—
2. プロダクション品質のコード：SaveAsWeb 自動出力エンジン
以下に、実務でそのまま使える堅牢なクラスモジュール風の関数を示す。これを標準モジュールに配置し、呼び出すだけでいい。
Option Explicit
‘ Visio SaveAsWeb機能を制御するメインプロシージャ
Public Sub ExportToWebAutomated(ByVal docPath As String, ByVal outputPath As String)
Dim vsoSaveAsWeb As VisSaveAsWeb
Dim vsoWebSettings As VisWebPageSettings
‘ FSOでパスの整合性を担保
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(fso.GetParentFolderName(outputPath)) Then
MsgBox “出力先フォルダが存在しません。”, vbCritical
Exit Sub
End If
‘ VisSaveAsWebオブジェクトの生成
Set vsoSaveAsWeb = Application.SaveAsWebObject
Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
‘ Web出力設定の緻密な制御
With vsoWebSettings
.LongFileNames = True ‘ 長いファイル名対応
.StoreInFolder = True ‘ 関連ファイルをサブフォルダへ
.PrintNotes = False ‘ 不要な注釈は除外
.PanAndZoom = True ‘ パン・ズーム機能（必須）
.Search = True ‘ 検索機能の有効化
.Target = “IE5” ‘ 現代ではEdge/Chrome互換を考慮しつつ指定
End With
‘ 出力実行
On Error GoTo ErrHandler
vsoSaveAsWeb.AttachToDoc ActiveDocument
vsoSaveAsWeb.CreatePages outputPath
Debug.Print “HTML出力完了: ” & outputPath
Exit Sub
ErrHandler:
MsgBox “出力失敗: ” & Err.Description, vbCritical
End Sub
—
3. アーキテクトからの助言：実務運用における「隠れた罠」
① キャッシュと一時ファイルの掃除
`SaveAsWeb` は実行時に一時的なキャッシュを大量に生成する。一括出力する際は、`CreatePages` の後に適切な待機時間（`DoEvents`）を入れるか、あるいは出力先フォルダが既に存在する場合、前回の残骸が競合しないよう事前にクリーンアップする設計にしておかなければならない。
② ファイル名と文字コードの問題
VisioのWeb出力は、日本語のファイル名や特殊記号が含まれると、稀にリンク切れを起こすことがある。自動化スクリプト内では、ファイル名を必ず英数字とアンダースコアのみにサニタイズ（置換）する関数を通すのが、トラブルを未然に防ぐ大人の作法だ。
③ データベース連携との親和性
もし君が「どのドキュメントを、どの設定で出力するか」を管理したいなら、ExcelやAccessを「設定DB」として使うことを推奨する。
- 列A: ドキュメントパス
- 列B: 出力先フォルダ
- 列C: 検索機能フラグ (True/False)
これをループで回し、`ExportToWebAutomated` を順次呼び出す。この「設定駆動型（Configuration-driven）」のアーキテクチャこそが、変更に強いメンテナンス可能な自動化基盤となる。
—
結びに：なぜ私たちは自動化するのか
コードを書き、手作業を排除するのは、単に楽をするためではない。「人間にしかできない、より高次元な設計やレビューに時間を割くため」だ。
Visioという、古くも強力なアプリケーションのポテンシャルを引き出すのは、ツールではなく君のコードだ。この `SaveAsWeb` の制御が、君の現場の業務プロセスを劇的に変えるきっかけになることを確信している。
何か壁にぶつかったら、また戻ってきなさい。次の最適解を用意して待っている。
