【入門編】【中級者向け】特定のレイヤーのみを「印刷不可」に設定し、注釈やガイドラインを非表示でPDF出力する自動化ルーチン – Visio VBA解析バイブル

Visio VBA

2026.11.06

印刷の「ノイズ」を消し去る：Visio VBAでレイヤーの印刷制御をマスターする

印刷の「ノイズ」を消し去る：Visio VBAでレイヤーの印刷制御をマスターする

こんにちは。Visio VBAの世界へようこそ。

「マクロの記録」を使って、ボタン一つで図形を動かす。そこまでは素晴らしい一歩です。しかし、実務の現場で「プロ」と呼ばれるエンジニアが直面するのは、もっと泥臭く、かつ繊細な要求です。

例えば、こんな場面です。
「設計図面には詳細な注釈（アノテーション）やガイドラインが書き込まれているけれど、クライアントに送るPDFには、それらを見せずにスッキリとした完成図だけを出力したい」

手動でレイヤー設定を開き、一つずつ「印刷」のチェックを外して……なんて作業を、もし100ページある図面に対して行っていたら？考えるだけで胃が痛くなりますよね。

今日は、そんな「手作業の限界」を突破するために、特定のレイヤーだけを動的に「印刷不可」に設定し、美しくPDF出力する自動化ルーチンを伝授します。

ここをクリアすれば、あなたは「単に操作を記録する人」から、「Visioの内部構造を操るエンジニア」へと進化できるはずですよ。

1. 本質を知る：レイヤーは「プロパティ」ではなく「セル」でできている

まず、多くの初中級者が陥る誤解を解いておきましょう。

「レイヤーを非表示にしたいなら、`Layer.Visible = False` でいいじゃないか」と思うかもしれません。しかし、「画面に見えること（Visible）」と「印刷されること（Print）」は、全く別の概念です。

Visioのレイヤーは、内部的にはShapeSheet（シェイプシート）という、Excelのセルに近い構造を持っています。レイヤーの「印刷するかどうか」という設定は、レイヤーオブジェクトそのものの単純なプロパティではなく、レイヤーが持つ特定の「セル（Cells）」の値として管理されているのです。

今回私たちが操るのは、このセルの中にある `visLayerPrint` という特殊な定数です。

`visLayerPrint` の値が `1` (True) $\rightarrow$ 印刷される
`visLayerPrint` の値が `0` (False) $\rightarrow$ 印刷されない

この「セルの値を書き換える」という感覚を掴めるかどうかが、Visio VBAを掌握する分水嶺となります。

2. 実装の核心：`CellsC` メソッドの使い方

では、具体的にどうやってコードを書くのか。鍵となるのが `CellsC` メソッドです。

' レイヤーの印刷設定を切り替えるイメージ
vsoLayer.CellsC(visLayerPrint).Formula = "0"

ここで使っている `CellsC` の `C` は、「Constant（定数）」を意味します。`visLayerPrint` というVisioが用意してくれた定数を使って、レイヤーの内部セルへ直接アクセスしているのです。

では、これを実戦で使えるレベルの、堅牢なコードに落とし込んでみましょう。

3. 【実践】注釈レイヤーを除外してPDF出力する自動化ルーチン

以下のコードは、指定した名前のレイヤーを「印刷不可」に設定し、PDFとして保存した後、元の設定（印刷可能状態）に自動で戻すという、非常に実用的な設計にしています。

「設定を変えっぱなしにして、後で図面が壊れていた」というミスを防ぐための、プロの作法です。

Option Explicit

''' <summary>
''' 特定のレイヤーを印刷対象から除外して、PDFを出力する
''' </summary>
''' <param name="targetFileName">出力するPDFのフルパス</param>
''' <param name="excludeLayerName">印刷したくないレイヤーの名前</param>
Sub ExportCleanPDF(targetFileName As String, excludeLayerName As String)
    Dim vsoDoc As Visio.Document
    Dim vsoPage As Visio.Page
    Dim vsoLayer As Visio.Layer
    Dim vsoLayers As Visio.Layers
    Dim i As Integer
    Dim layerFound As Boolean
    Dim originalPrintStatus As Boolean
    
    Set vsoDoc = ActiveDocument
    Set vsoLayers = vsoDoc.Layers
    layerFound = False
    
    On Error GoTo ErrorHandler

    ' --- STEP 1: 指定したレイヤーを探し、印刷設定をオフにする ---
    For i = 1 To vsoLayers.Count
        Set vsoLayer = vsoLayers.Item(i)
        
        ' レイヤー名が一致するかチェック
        If vsoLayer.Name = excludeLayerName Then
            layerFound = True
            
            ' 現在の印刷設定を覚えておく（後で元に戻すため）
            ' CellsC(...).Result を使うことで、現在の値を数値として取得できる
            If vsoLayer.CellsC(visLayerPrint).Result(visWhyFormula) = 1 Then
                originalPrintStatus = True
            Else
                originalPrintStatus = False
            End If
            
            ' 印刷設定を「OFF (0)」にする
            vsoLayer.CellsC(visLayerPrint).Formula = "0"
            Exit For
        End If
    Next i

    ' レイヤーが見つからなかった場合の処理
    If Not layerFound Then
        MsgBox "指定されたレイヤー '" & excludeLayerName & "' が見つかりませんでした。", vbExclamation
        Exit Sub
    End If

    ' --- STEP 2: PDFとしてエクスポート ---
    ' Exportメソッドを使用。形式は visFormatPDF を指定
    Debug.Print "PDF出力中: " & targetFileName
    vsoDoc.Export targetFileName, visFormatPDF

    MsgBox "PDFの出力が完了しました！", vbInformation

CleanUp:
    ' --- STEP 3: 設定を元に戻す（ここが重要！） ---
    ' ユーザーが作業を続けられるよう、レイヤーの状態を復元する
    If layerFound Then
        If originalPrintStatus = True Then
            vsoLayer.CellsC(visLayerPrint).Formula = "1"
        Else
            vsoLayer.CellsC(visLayerPrint).Formula = "0"
        End If
    End If
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

''' <summary>
''' 実行用メインルーチン
''' </summary>
Sub RunAutomation()
    ' 保存先パスと、除外したいレイヤー名を指定してください
    Dim pdfPath As String
    Dim layerToHide As String
    
    ' 例: デスクトップに "Output.pdf" という名前で保存する場合
    pdfPath = Environ("USERPROFILE") & "\Desktop\Clean_Drawing.pdf"
    layerToHide = "注釈" ' ← ここに非表示にしたいレイヤー名を正確に入力
    
    Call ExportCleanPDF(pdfPath, layerToHide)
End Sub

4. 陥りやすいエラーと、エンジニアの知恵

このコードを動かす際、あるいは自分でカスタマイズする際に、気を付けてほしいポイントが3つあります。

① レイヤー名の「完全一致」の罠

`vsoLayer.Name = excludeLayerName` は、スペース一つ、全角半角一つ違うだけで `False` になります。
実務では、`InStr` 関数を使って「名前に『注釈』が含まれていたら」といった、少し柔軟な判定ロジックを入れることも検討してください。

② 「元に戻す」処理の重要性（ステート管理）

私がコード内で `originalPrintStatus` という変数を用意したのは、「もともと印刷不可に設定されていたレイヤー」まで、強制的に印刷可能に戻してしまわないためです。
プログラムが「良かれと思って」行った変更が、後続の作業者の邪魔をしてはいけません。これを「副作用の制御」と呼びます。

③ パフォーマンスの重み

もし、ページごとに異なるレイヤーを制御したい場合は、`vsoDoc.Pages` をループで回す必要があります。その際、ページごとに `CellsC` を書き換えると、Visioの再描画（リフレッシュ）が走り、動作が重くなることがあります。
大量のページを処理する場合は、`Application.ScreenUpdating = False`（画面更新停止）を検討しましょう。

まとめ：一歩先の自動化へ

いかがでしたか？
単に「マクロを記録」するだけでは辿り着けない、「オブジェクトの内部状態（ShapeSheet）を直接操作する」という手法。これが、Visio VBAを真に使いこなすための鍵です。

今回の `CellsC(visLayerPrint)` をマスターしたあなたは、もう「印刷設定をいちいち手動で変える作業」から解放されました。次は、レイヤーの透明度を制御したり、図形の寸法を自動計算して書き込んだり……。

Visioの内部構造は、まるで魔法の箱のように、あなたの命令を待っています。
一歩ずつ、楽しみながら進んでいきましょう。応援していますよ！