Visio VBAを極める：レイヤー制御で「多層的な図面管理」を自動化する
こんにちは。自動化の世界へようこそ。
「マクロの記録」ボタンを押して生成された、冗長で脆いコードに悩まされていませんか？
Visioの真のパワーは、図形をただ配置することではなく、「レイヤー」という概念をコードで自在に操ることで引き出されます。今回は、Visio VBAにおいて避けては通れない「Layerオブジェクト」を支配し、ドキュメントの表示・非表示を意のままに操る極意を伝授します。
—
1. なぜ「レイヤー」をコードで制御するのか？
大規模な図面や、設備管理、ネットワーク構成図を作成する際、すべての図形をひとつのレイヤーで扱うのは、言うなれば「すべての書類をひとつの引き出しに放り込む」ようなものです。
レイヤーをプログラムで制御できるようになると、以下のことが可能になります。
- 「非表示」にする： 施工図から注釈のみを瞬時に消す。
- 「ロック」する： 背景の構造物を操作不可にして、前景の図形だけを編集可能にする。
- 「カテゴリ分け」： サーバー、ケーブル、ラックなど、属性ごとに表示を一括切り替えする。
これを手動で行うのは時間の浪費です。VBAで自動化すれば、クリックひとつで「欲しい情報だけ」を表示できるドキュメントに変貌します。
—
2. Layerオブジェクトの基本構造
Visioの階層は、以下のピラミッドで構成されています。
- Document（ファイル）
- Page（ページ）
- Layers（レイヤーの集合体）
- Layer（個別のレイヤー）
特定のレイヤーを操作するには、まず「どのページのレイヤーか？」を特定し、そこから名前やインデックスで目的のレイヤーを呼び出す必要があります。
—
3. 実践：特定のレイヤーを切り替える自動化コード
以下のコードは、アクティブなページ内にある指定した名前のレイヤーを、「表示/非表示」および「ロック」する汎用的なプロシージャです。
‘ ———————————————————
‘ 指定したレイヤーの表示状態を切り替えるプロシージャ
‘ @param layerName : 操作対象のレイヤー名
‘ @param isVisible : 表示するかどうか(True/False)
‘ @param isLocked : ロックするかどうか(True/False)
‘ ———————————————————
Public Sub ToggleLayerSettings(layerName As String, isVisible As Boolean, isLocked As Boolean)
Dim vsoPage As Visio.Page
Dim vsoLayer As Visio.Layer
‘ 現在のページを取得（エラーハンドリングの基本）
Set vsoPage = ActivePage
On Error Resume Next ‘ レイヤーが存在しない場合のエラー回避
Set vsoLayer = vsoPage.Layers.Item(layerName)
On Error GoTo 0
If vsoLayer Is Nothing Then
MsgBox “レイヤー ‘” & layerName & “‘ が見つかりません。”, vbExclamation
Exit Sub
End If
‘ プロパティの操作
‘ Visible: 表示状態, Lock: 編集不可状態
vsoLayer.CellsC(visLayerVisible).FormulaU = IIf(isVisible, 1, 0)
vsoLayer.CellsC(visLayerLock).FormulaU = IIf(isLocked, 1, 0)
‘ 画面を最新の状態に更新
ActiveWindow.DeselectAll
End Sub
‘ 実行用テストマクロ
Public Sub Example_Usage()
‘ 「注釈レイヤー」を非表示にし、編集不可にロックする
Call ToggleLayerSettings(“注釈”, False, True)
End Sub
コードのポイント解説
- `CellsC` メソッド： レイヤーのプロパティ（表示、ロック、印刷など）は、内部的にはセルとして管理されています。`visLayerVisible` などの定数を使うのがVisio VBAの作法です。
- エラーハンドリング： `On Error Resume Next` を使うのは「指定した名前のレイヤーが存在しない」という事故を防ぐための防御的プログラミングです。必ず `Is Nothing` でオブジェクトの存在を確認する癖をつけてください。
—
4. 陥りやすい罠と解決策
① 「名前」で指定するリスク
レイヤー名を直接指定すると、図面作成者がレイヤー名を変更した瞬間にコードが動かなくなります。
対策： 運用ルールとしてレイヤー名を固定するか、可能であれば `vsoPage.Layers(1)` のようにインデックスで管理する（ただし順序変更に注意が必要）などの工夫をしましょう。
② 変更が画面に反映されない
コードで値を書き換えても、Visioの表示が即座に追従しないことがあります。
対策： `ActiveWindow.DeselectAll` を実行したり、必要に応じて `Application.ActiveWindow.ViewFit = visFitPage` を挟むことで、描画エンジンに再描画を促すことができます。
—
最後に：エンジニアとして一歩先へ
レイヤーの自動化は、Visioの「お絵かきソフト」としての側面を、「情報システム」としての側面へと昇華させる第一歩です。
このコードをベースに、ボタンを配置して「全非表示」「全表示」のダッシュボードを作ってみてください。それだけで、あなたの職場におけるVisioの使い勝手は劇的に向上します。
分からないことがあれば、いつでもまた聞きに来てください。あなたの自動化の旅を、これからも全力でサポートします。
