Visio VBAの真髄：PDF出力の「出し分け」を完全自動化する極意
こんにちは。現場で「なぜか動かない」「なぜか重い」というVisioの闇と戦い続けてきた皆さん。今日は、皆さんの手作業を劇的に減らす、「PDF出力のレイヤー制御」という実務の壁を突破する技術を伝授します。
「マクロの記録」ボタンを押して生成されたコードを眺める段階はもう卒業しましょう。Visioのオブジェクトモデルを正しく理解すれば、図面はあなたの意のままに操れます。
—
なぜ「レイヤー制御」が必要なのか
図面には、「自分たちだけが見るべきメモ（非表示レイヤー）」と「クライアントに渡す図面（表示レイヤー）」が混在することがありますよね。これを毎回手動でレイヤーのプロパティを開いてチェックを外し、PDFとして保存する……そんな退屈な作業は、今日で終わりにしましょう。
実装の鍵：Layerオブジェクトの作法
Visioにおける「レイヤー」は、`Page`オブジェクトの中に存在する`Layers`コレクションとして管理されています。
重要なのは、`Visible`プロパティを操作した後に、画面を再描画（またはPDF化）させるという順序です。
実践！レイヤー切り替え＆PDF出力ロジック
以下のコードは、実務でそのまま使える堅牢なテンプレートです。
Sub ExportFilteredPDF()
Dim doc As Visio.Document
Dim pg As Visio.Page
Dim lyr As Visio.Layer
Dim targetLayerName As String
‘ 設定：非表示にしたいレイヤー名を指定
targetLayerName = “Internal_Memo”
Set doc = ActiveDocument
Set pg = ActivePage ‘ 現在開いているページを対象
‘ 1. レイヤーを見つけて非表示にする
On Error Resume Next ‘ レイヤーが存在しない場合のエラー回避
Set lyr = pg.Layers.Item(targetLayerName)
If Not lyr Is Nothing Then
lyr.Visible = False ‘ ここで対象レイヤーを隠す
‘ 2. PDFエクスポートを実行
‘ 引数：ファイル形式(1=PDF), ファイルパス
doc.ExportAsFixedFormat visFixedFormatPDF, _
“C:\Exports\Output_Distribution.pdf”, _
visDocExAllPages, visPrintAllPages
‘ 3. 後処理：元に戻す（重要！）
lyr.Visible = True
Else
MsgBox “指定したレイヤーが見つかりません。”, vbCritical
End If
On Error GoTo 0
MsgBox “PDF出力が完了しました！”, vbInformation
End Sub
—
ここをクリアすればプロの仲間入り：注意すべき3つの罠
コードを動かす前に、以下のポイントを心に刻んでください。これを知っているか否かで、エンジニアとしての格が変わります。
1. レイヤー名は「完全一致」が鉄則
`pg.Layers.Item(“名前”)` は、文字列が1文字でも違えばエラーになります。全角半角のミスはVBAのデバッグで最も多い死因です。まずは `Debug.Print` を使って、全てのレイヤー名をイミディエイトウィンドウに出力し、名前を確認する癖をつけましょう。
2. 「戻し忘れ」の恐怖（状態管理）
コードの中で`lyr.Visible = False`にしたら、必ず処理の最後で`True`に戻してください。これを忘れると、「PDFを出力したら画面からオブジェクトが消えた！」という悲鳴をあげることになります。`Err`ハンドラを使って、異常終了時でも元の状態に戻るような設計にするのが上級者のたしなみです。
3. PDFエクスポートのパス問題
`ExportAsFixedFormat`のパスには、必ずフォルダが存在することを確認してください。フォルダが存在しない状態で実行すると、VBAは無慈悲にエラーを吐きます。`Dir`関数を使ってフォルダの存在確認を行うロジックを前段に入れるのが、安定した自動化の第一歩です。
—
次のステージへ
今回学んだのは「レイヤーのVisible制御」という小さなパーツですが、これは「図面の状態をプログラムで定義する」という自動化の核心です。
もしこれがマスターできたら、次は「複数の図面ファイルを順番に開いて、特定のレイヤーだけ消して全てPDFにする」というバッチ処理に挑戦してみてください。
Visioは、ただの作図ソフトではありません。あなたが設計したロジックを、そのままビジュアルとして出力する「オートメーションのプラットフォーム」です。
皆さんの業務が、明日から少しでもクリエイティブなものになりますように。何か詰まったら、いつでもまた聞きに来てくださいね！
