こんにちは。Visioの世界へようこそ。
「マクロの記録」ボタンを押して生成された、冗長で意味不明なコードの羅列に絶望したことはありませんか？大丈夫です。それは誰もが通る道。今日、あなたは単なる「記録係」から、Visioを意のままに操る「アーキテクト」へと進化します。
今回は、現場で最も重宝されるスキルの一つ、「PDF出力時のレイヤー制御」をマスターしましょう。印刷用には詳細な寸法線を入れ、配布用には機密情報や注釈を消す。この切り替えを瞬時に行う術を伝授します。
—
1. なぜ「レイヤー」をコードで触るのか？
Visioのレイヤー（Layer）は、単なるグループ化ではありません。「図面上のオブジェクトを、論理的な属性で切り分けるフィルター」です。
手動でレイヤープロパティを開いてチェックを外すのは、非効率な上にミスを誘発します。VBAを使えば、「配布用PDFを作成する」というボタン一つで、以下の工程を自動化できます。
1. 現在の状態を退避する
2. 特定のレイヤー（例：配布用には不要な「内部メモ」）を非表示にする
3. PDFとしてエクスポートする
4. 設定を元に戻す
これができれば、ヒューマンエラーはゼロになります。
—
2. 核心に迫る：レイヤー操作のコード
まずは、特定のレイヤーを非表示にしてPDFを出力する実用コードを見てください。
Sub ExportPDFWithoutSensitiveLayers()
Dim doc As Visio.Document
Dim page As Visio.Page
Dim layerObj As Visio.Layer
Dim pdfPath As String
‘ PDFの保存先（環境に合わせて変更してください）
pdfPath = ThisDocument.Path & “Distribution_View.pdf”
Set doc = ThisDocument
Set page = doc.ActivePage
‘ 1. 特定のレイヤーを非表示にする（例: “InternalNotes” という名前のレイヤー）
‘ ここでエラー処理を入れるのが「玄人」の証です
On Error Resume Next
Set layerObj = page.Layers.Item(“InternalNotes”)
On Error GoTo 0
If Not layerObj Is Nothing Then
layerObj.Visible = False
End If
‘ 2. PDFエクスポート実行
‘ visFixedFormatPDF はVisioの組み込み定数です
doc.ExportAsFixedFormat visFixedFormatPDF, pdfPath
‘ 3. レイヤーを元に戻す（重要：後始末を忘れない）
If Not layerObj Is Nothing Then
layerObj.Visible = True
End If
MsgBox “配布用PDFの生成が完了しました！”, vbInformation
End Sub
—
3. ここでつまずく！初心者が陥りやすい3つの罠
コードを書く際、以下のポイントを意識するだけで、あなたのコードの信頼性は劇的に向上します。
① レイヤー名が存在しない場合のエラー
`page.Layers.Item(“名前”)` は、その名前のレイヤーがないと容赦なくエラーで停止します。上記のコードのように `On Error Resume Next` で囲むか、ループで全レイヤーを走査して名前を照合するロジックを組むのが安全です。
② VisibleプロパティとPrintingプロパティの混同
Visioには `Visible`（画面表示）と `Printing`（印刷可否）の2つの属性があります。「画面からは消したいが、PDFには残したい」というケースも現場では多々あります。要件に応じてプロパティを使い分けてください。
③ 戻し忘れ（State Leakage）
処理が途中でエラー終了すると、レイヤーが非表示のまま保存されてしまう恐れがあります。本格的な開発では、`On Error GoTo ErrorHandler` を使い、どんなエラーが起きても必ず最後にレイヤーを元に戻す「クリーンアップ処理」を組み込みましょう。
—
4. アーキテクトからのアドバイス
Visio VBAを使いこなすコツは、「オブジェクトの階層構造を意識すること」です。
`Document` → `Page` → `Layers` → `Layer`。
この階層を理解していれば、今後、図形の色を変えたり、位置を自動整列させたりする際にも、迷子になることはありません。
最初は難しく感じるかもしれませんが、一度この「自動化の快感」を知れば、二度と手動でレイヤーをポチポチ切り替える日々には戻れないはずです。
次のステップへの挑戦
もし余裕があれば、「特定のレイヤーだけを非表示にする」という処理を「関数（Function）」に切り出してみてください。 そうすれば、複数のページがある図面でも、ループ処理で一括PDF化することが可能になります。
ここをクリアすれば、あなたはもうVisio自動化の中級者です。自信を持って、次のコードを書いてみてください。応援しています！
