【Visio VBA】レイヤー制御でPDF出力を完全自動化せよ：配布用と社内用の「見せ方」を瞬時に切り替える極意
Visioをただの作図ツールだと思っているなら、それは大きな誤解だ。Visioは「データ駆動型の図面エンジン」である。
業務でVisioを使っていると必ずぶつかる壁がある。それは、「社内用の詳細情報（機密情報や開発用メモ）を載せた図面」と、「顧客向けのクリーンな図面」を別々に管理し、都度手作業でPDF化するという、あまりにも非生産的な作業だ。
今回は、レイヤーの`Visible`プロパティを操り、PDF出力時に動的に出力を制御する「堅牢なVBAアーキテクチャ」を伝授する。
—
なぜ「手動レイヤー切り替え」が地獄への入り口なのか
多くの人間は、レイヤーを手動でクリックして非表示にし、名前を付けて保存し、PDFを出力する。これには二つの致命的なリスクがある。
1. ヒューマンエラー： 非表示にし忘れたレイヤーが、そのまま顧客へ渡る（情報漏洩の最大要因）。
2. 保守性の欠如： 図面が100枚に増えた時、この作業を繰り返すのか？ 否、自動化すべきは「操作」ではなく「状態の管理」だ。
我々エンジニアが目指すべきは、「出力対象の状態をコードで定義し、実行時にその状態を強制的に適用する」というアプローチである。
—
プロダクションコード：Layer Controllerの設計
以下のコードは、特定のレイヤーのみを制御し、PDFをエクスポートする実務的なモジュールだ。エラーハンドリングと、処理後の状態復元（重要！）を組み込んでいる。
Option Explicit
‘ ———————————————————
‘ 目的: 指定したレイヤー構成でPDFを出力する
‘ ———————————————————
Public Sub ExportPDFByLayerConfiguration(ByVal targetPath As String, ByVal hiddenLayerName As String)
Dim doc As Visio.Document
Dim page As Visio.page
Dim layer As Visio.layer
Dim originalVisibility As Boolean
Set doc = ActiveDocument
‘ エラーハンドリングの要：処理の中断時にレイヤー状態を戻すために必須
On Error GoTo Cleanup
‘ 1. 対象レイヤーの特定と制御
‘ ページ単位で処理を行うのがVisioの鉄則
For Each page In doc.Pages
Set layer = page.Layers.Item(hiddenLayerName)
If Not layer Is Nothing Then
‘ 現在の状態を退避（処理後に戻すため）
originalVisibility = layer.Visible
‘ 非表示に強制設定
layer.Visible = False
End If
Next
‘ 2. PDF出力（Visioの標準APIを利用）
‘ FixedFormatDocumentType.visFixedFormatPDF を指定
doc.ExportAsFixedFormat visFixedFormatPDF, targetPath, _
visDocFromAllPages, visDocAllPages
MsgBox “PDF出力を完了しました: ” & targetPath, vbInformation
Cleanup:
‘ 3. 状態の復元：これを忘れると「開くたびにレイヤーが消えている」というクレームの元になる
If Not layer Is Nothing Then
layer.Visible = originalVisibility
End If
If Err.Number <> 0 Then
MsgBox “エラー発生: ” & Err.Description, vbCritical
End If
End Sub
—
設計の急所：ここを理解せずに書くな
1. レイヤー復元（Cleanup）の徹底
VBAで最も恐ろしいのは、マクロ実行後に「ファイルの状態が変わってしまうこと」だ。PDFを出力した後に、レイヤーが非表示のまま保存されたらどうなるか。ユーザーはパニックに陥る。必ず `On Error GoTo` を駆使し、処理の成否に関わらず状態をロールバックせよ。
2. `Page.Layers` のインデックス管理
`page.Layers.Item(name)` は便利だが、レイヤー名が重複しているとインデックスがずれる可能性がある。堅牢なシステムを組むなら、レイヤー名だけでなく、特定のレイヤーグループをIDやプロパティで管理する仕組み（あるいは命名規則の厳格化）を併用することを推奨する。
3. パフォーマンスとファイル連携
大量の図面を自動処理する場合、`Application.ScreenUpdating = False` を使うのが定石だが、VisioのPDF出力においては、レンダリングエンジンの都合上、あまり効果がないケースも多い。むしろ、「出力対象ファイルリストをExcelやDBで管理し、外部からVBAを呼ぶ」といった、データ駆動型の設計に舵を切るべきだ。
結び：エンジニアとしての矜持
レイヤーを制御することは、図面の「情報の重層化」をコントロールすることに他ならない。
今回提示したロジックは、単なるPDF出力の自動化ツールではない。「情報の見せ方をロジックで制御する」という、設計図の管理における高度な自動化の第一歩である。
君たちが作るツールが、単なる作業の代替品ではなく、業務プロセスを劇的に変える武器になることを期待している。さあ、実装に取り掛かろう。
