Visio VBAを掌握する極限の知見：PDF出力時の「しおり」をシェイプテキストから動的生成するアーキテクチャ
Visioの標準機能によるPDFパブリッシュは、実務において往々にしてフラストレーションの源泉となる。特に、図面の構造化において「ページ名＝ドキュメントの目次（しおり）」という制約は、大規模なプラント図や複雑なネットワーク図を扱う現場では悪夢でしかない。
ページ名には管理用のバージョンや内部コード（例: `P&ID_Rev.03_Sec2`）を付番しつつ、PDFのしおり（アウトライン）にはエンドユーザーが直感的に理解できる正式なタイトルシェイプ（例: `系統3：冷却水供給メインライン`）を動的にマッピングしたい――。
本稿では、Visioのドキュメント構造とPDFエクスポートエンジンの裏側を突き詰め、ページ内の特定のシェイプテキストをしおりのツリー構造へと強制的にねじ込むための極限のVBAソリューションを提示する。
—
1. Visio PDFパブリッシュの限界とアーキテクチャ上のアプローチ
Visioの `Document.Export` メソッド（あるいは `Application.ActiveDocument.ExportAsFixedFormat`）は、内部的にOfficeの共通PDF/XPSコンバーターを呼び出す。しかし、このネイティブなエクスポート機能は「ページ名としおりの完全な同期」を強制するため、シェイプテキストをしおりのプライマリソースとして直接指定するパラメーターを持たない。
この壁を突破するため、シニアエンジニアが取るべきアプローチは以下の2択に絞られる。
1. Acrobat SDKのCOM連携によるPDF直接操作（生成後にPDFのしおりツリーを書き換える）
2. Visio側のメタデータ制御とサードパーティ製仮想プリンタ/PDFドライバのAPI制御
大規模なエンタープライズ環境や、クライアント端末にAcrobatがインストールされていない状況を考慮すると、「 Visio VBA内でページ構造を一時的に操作し、標準エクスポート後にPDFメタデータをアドホックに修復する」、あるいは「ドキュメントのページプロパティをエクスポート直前に動的書き換え、PDF化後に即座にロールバックする」というトランザクショナルな手法が最も堅牢かつエレガントである。
今回は、実務で最も汎用性が高く、外部依存を最小限に抑える「エクスポート時の一時的ページ名置換と、ネイティブPDFエンジンのフック」の実装コードを公開する。
—
2. 実装コード：シェイプテキストをしおりに化けさせるVBAモジュール
以下のコードは、各ページの特定レイヤーまたは特定IDを持つ「タイトルシェイプ」を走査し、そのテキストを一時的にVisioのページ名に転記した上でPDFを出力、直後に元のページ名へ完全復元するトランザクショナル・パブリッシャーである。
メモリリークを防ぐため、VisioのCOMオブジェクトのライフサイクル管理（`Set obj = Nothing` の徹底）を極限まで意識した設計としている。
Option Explicit
‘ ==============================================================================
‘ 模块名: ModPdfOutlineInjector
‘ 概要: 指定されたシェイプのテキストをページ名に一時同期させ、
‘ 意図した「しおり」を持つPDFを生成するエンタープライズ向けモジュール。
‘ ==============================================================================
Public Sub ExportPdfWithCustomOutlines()
Dim vsoDoc As Visio.Document
Set vsoDoc = ActiveDocument
Dim vsoPages As Visio.Pages
Set vsoPages = vsoDoc.Pages
Dim originalPageNames() As String
ReDim originalPageNames(1 To vsoPages.Count)
Dim i As Long
Dim targetShapeText As String
Dim targetShapeTag As String
targetShapeTag = “PDF_TITLE_SHAPE” ‘ ターゲットとするシェイプのUser.Tagまたは特定条件
On Error GoTo ErrorHandler
‘ 画面描画の凍結による爆発的なパフォーマンス向上（画面ちらつき防止）
Application.ScreenUpdating = False
Application.Settings.ShowChanges = False
‘ 1. トランザクション開始：現在のページ名を退避し、シェイプテキストで置換
For i = 1 To vsoPages.Count
Dim vsoPage As Visio.Page
Set vsoPage = vsoPages(i)
‘ 元のページ名を退避
originalPageNames(i) = vsoPage.Name
‘ ページ内からタイトルシェイプを探索してテキストを取得
targetShapeText = GetTitleShapeText(vsoPage, targetShapeTag)
If Len(targetShapeText) > 0 Then
‘ 予約文字やファイルシステム的に危険な文字のサニタイズ処理
targetShapeText = SanitizePageName(targetShapeText)
‘ Visioの制約（一意性）を回避しつつページ名を一時変更
‘ ※同一名称のエラーを防ぐため、インデックスを付与するか一意にする
vsoPage.Name = targetShapeText & ” [” & i & “]”
End If
‘ オブジェクトの明示的解放
Set vsoPage = Nothing
Next i
‘ 2. PDFエクスポートの実行
Dim pdfPath As String
pdfPath = vsoDoc.Path & Replace(vsoDoc.Name, “.vsdx”, “”) & “_Structured.pdf”
‘ 既存ファイルの存在チェックと削除（エラーハンドリング）
If Dir(pdfPath) <> “” Then
Kill pdfPath
End If
‘ Visio 2013以降のネイティブPDFエクスポートAPI
vsoDoc.ExportAsFixedFormat Visio.VisFixedFormatTypes.visFixedFormatPDF, _
pdfPath, _
Visio.VisPrintOutae.visPrintAll, _
Visio.VisCurrentView.visCVPage
MsgBox “PDFのエクスポートが完了しました。” & vbCrLf & pdfPath, vbInformation, “アーキテクチャ・パブリッシャー”
CleanUp:
‘ 3. ロールバック：ページ名を完全に元の状態へ復元
If Not vsoPages Is Nothing Then
For i = 1 To vsoPages.Count
Set vsoPage = vsoPages(i)
vsoPage.Name = originalPageNames(i)
Set vsoPage = Nothing
Next i
End If
‘ 描画の復元
Application.ScreenUpdating = True
Application.Settings.ShowChanges = True
‘ 参照の完全解放
Set vsoPages = Nothing
Set vsoDoc = Nothing
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “System Error”
Resume CleanUp
End Sub
‘ ——————————————————————————
‘ 補助関数: ページ内から特定のタグを持つシェイプを走査しテキストを回収
‘ ——————————————————————————
Private Function GetTitleShapeText(ByVal vsoPage As Visio.Page, ByVal tagString As String) As String
Dim vsoShapes As Visio.Shapes
Set vsoShapes = vsoPage.Shapes
Dim shp As Visio.Shape
Dim foundText As String
foundText = “”
Dim j As Long
For j = 1 To vsoShapes.Count
Set shp = vsoShapes(j)
‘ シェイプのカスタムプロパティやセル（例: User.Tag）を評価
‘ ※ここでは簡易的にシェイプ名またはテキストの先頭一致で判定する例、
‘ 実務では shp.CellExists(“User.PDF_Bookmark”, False) などの判定を推奨
If InStr(1, shp.Name, “Title”, vbTextCompare) > 0 Then
foundText = Trim(shp.Text)
Set shp = Nothing
Exit For
End If
Set shp = Nothing
Next j
GetTitleShapeText = foundText
Set vsoShapes = Nothing
End Function
‘ ——————————————————————————
‘ 補助関数: PDFページ名として不正な文字のサニタイズ
‘ ——————————————————————————
Private Function SanitizePageName(ByVal rawText As String) As String
Dim invalidChars As Variant
Dim i As Long
‘ Visioのページ名に使用できない文字の排除 (\ / ? [ ] : )
invalidChars = Array(“\”, “/”, “?”, “”, “[“, “]”, “:”)
For i = LBound(invalidChars) To UBound(invalidChars)
rawText = Replace(rawText, invalidChars(i), “_”)
Next i
‘ 改行コードの除去
rawText = Replace(rawText, vbCrLf, ” “)
rawText = Replace(rawText, vbCr, ” “)
rawText = Replace(rawText, vbLf, ” “)
SanitizePageName = rawText
End Function
—
3. チーフアーキテクトが指摘する「実務運用の罠」とメモリ最適化の極意
上記のコードベースを本番環境（数百ページに及ぶ巨大なVSDXファイル）に投入する際、シニアエンジニアが必ず考慮すべき3つの鉄則を授ける。
① 画面描画の完全なブロック（ScreenUpdating）
Visio VBAにおいて、ページ名をループ内で動的に変更する処理は、GUIの再描画ツリーを強制的にインバリデート（無効化）する。`Application.ScreenUpdating = False` を記述しない場合、Windowsのメッセージキューが飽和し、実行速度が数十倍遅延するだけでなく、最悪の場合はCOM例外（エラー番号 `-2034645248` 等）を引き起こしてVBEごと強制終了する。プロシージャの最初と最後での制御を絶対に怠ってはならない。
② オブジェクトチェーンの完全な切り離し
VBAのガベージコレクタは極めて脆弱である。特にVisioのオブジェクトモデル（`Document` -> `Pages` -> `Page` -> `Shapes` -> `Shape`）では、階層の途中で変数の解放を怠ると、参照カウントが残存し、ExcelやVisioプロセスがバックグラウンド（タスクマネージャー上）にゾンビプロセスとして居座り続ける。
本コードの `CleanUp` ラベルやループの末尾にある `Set xxx = Nothing` は、単なる作法ではなく、メモリリークを防ぐための必須の防壁である。
③ しおりの階層構造（親子関係）の制御
本稿で紹介した手法は「フラットなPDFしおり（すべてルート階層）」を生成する。もし「大見出しシェイプ」「小見出しシェイプ」を検出し、PDF上で厳密なツリー構造（アウトラインの階層化）を構築したい場合は、Visioのエクスポート機能単体では限界を迎える。
その領域に踏み込む場合は、生成されたPDFのバイナリ構造（PDFスペシフィケーションに基づくOutlines Dictionary）を直接操作するか、Python等の外部スクリプト（`PyMuPDF`や`pdfminer`）をVBAから `WScript.Shell` 経由でキックし、PDFメタデータをポストプロセスで再構築するパイプラインアーキテクチャを構築するのが、真にスケーラブルなシステム設計と言える。
—
結言
Visio VBAはレガシーな技術と揶揄されがちだが、そのCOMインターフェースの奥底を理解し、OSのリソース管理とアプリケーションのライフサイクルを完全に制御下に置くことができれば、手作業では数時間かかるドキュメント生成・構造化プロセスを、一瞬のトランザクションへと昇華させることが可能だ。
技術の限界に甘んじることなく、コードによってVisioを意のままに操り続けよ。
