【入門編】【中級者向け】特定のレイヤーに属するシェイプのみを「非ロック」にする一括解除スクリプト – Visio VBA解析バイブル

Visio VBA

2026.10.31

マクロ記録の壁を越えろ。特定のレイヤーだけを「解放」する、プロフェッショナルの極意

マクロ記録の壁を越えろ。特定のレイヤーだけを「解放」する、プロフェッショナルの極意

こんにちは。現場の設計と自動化を司るチーフアーキテクトです。

Visioを使って大規模な構成図やフローチャートを描いていると、ある時「壁」にぶつかることがあります。それは、「うっかり、動かしてはいけない背景の枠線をマウスで掴んで動かしてしまった！」という、あの絶望的な瞬間です。

これを防ぐために「レイヤー」でロックをかけるのは定石ですが、いざ作業を始めようとした時、「特定のレイヤー（例えば、注釈レイヤー）だけを編集したいのに、全部ロックされていて不便だ」と感じたことはありませんか？

「マクロの記録」機能を使えば、その操作を自動化できるかもしれません。しかし、記録されたコードは、あなたが「たまたま選んだ特定の図形」に対してのみ有効な、非常に脆いものです。

今日は、マクロ記録という「点」の操作から脱却し、オブジェクトの構造を理解して、全ページを自在に操る「線」のプログラミングへとステップアップしましょう。

1. なぜ「マクロの記録」では足りないのか？

多くの初学者が陥る罠が、「マクロの記録」をそのまま実戦投入してしまうことです。

記録されたコードを覗いてみてください。おそらく `ActivePage.Shapes(“Rectangle.123”).Cells(“LockEnabled”).ResultIU = 0` のような、特定の名前を持った図形に対する命令が並んでいるはずです。

しかし、設計図は常に変化します。図形の名前は変わるし、ページが増えるし、配置も変わります。
私たちが目指すべきは、「図形の名前」ではなく、「図形が属する属性（レイヤー）」に注目して、条件に合うものを一括で処理するロジックです。

2. 核心となる概念：オブジェクトの階層構造と「再帰」

今回のミッションは、「特定のレイヤーに属するシェイプだけをアンロックし、それ以外はすべてロックする」ことです。

ここで、プロのエンジニアとして絶対に知っておいてほしい概念が2つあります。

① オブジェクトの階層（Hierarchy）

Visioのデータは、`Application`（アプリ） $\rightarrow$ `Document`（文書） $\rightarrow$ `Page`（ページ） $\rightarrow$ `Shape`（図形）という階層で管理されています。全ページを対象にするなら、まずページをループし、その中で図形をループするという構造が必要になります。

② 「グループ」という名の迷宮（Recursion）

ここが最大の難所です。Visioにおいて、図形は「グループ化」されていることが多々あります。
通常の `Page.Shapes` というコレクションは、「一番上の階層にある図形」しか見ることができません。グループの中に隠れている図形は、そのままでは見つけられないのです。

これを解決するのが、「再帰（Recursion）」というテクニックです。
「図形を見つける $\rightarrow$ もしそれがグループだったら、その中身をまた探しに行く」という処理を自分自身に繰り返させることで、迷宮の隅々まで探索が可能になります。

3. 実戦：特定レイヤーのみ解放する究極のスクリプト

では、魂を込めて書いたコードを公開します。このコードは、指定したレイヤー名に属する図形だけを「編集可能」にし、それ以外を「ロック」します。

Option Explicit

''' <summary>
''' メイン処理：全ページの図形をスキャンし、特定のレイヤー以外をロックする
''' </summary>
Public Sub UnlockSpecificLayerOnly()
    Dim targetLayerName As String
    Dim pg As Visio.Page
    Dim targetLayer As Visio.Layer
    
    ' --- 設定エリア ---
    ' 解放したいレイヤーの名前を指定してください
    targetLayerName = "Annotation" 
    ' ------------------

    On Error Resume Next
    ' 指定した名前のレイヤーが存在するかチェック
    Set targetLayer = ActiveDocument.Layers.Item(targetLayerName)
    On Error GoTo 0

    If targetLayer Is Nothing Then
        MsgBox "エラー: レイヤー '" & targetLayerName & "' が見つかりません。", vbCritical
        Exit Sub
    End If

    ' 処理高速化のための定石：画面更新を停止
    Application.ScreenUpdating = False

    ' 全ページをループ
    For Each pg In ActiveDocument.Pages
        ' 各ページ内の図形に対して、再帰的な処理を開始
        ' Page.Shapes は最上位の図形のみを返すため、再帰関数を呼び出す
        Call ProcessShapesRecursive(pg.Shapes, targetLayer)
    Next pg

    ' 画面更新を再開
    Application.ScreenUpdating = True
    
    MsgBox "完了しました！「" & targetLayerName & "\" 以外の図形をロックしました。", vbInformation
End Sub

''' <summary>
''' 再帰関数：グループ化された図形の中まで潜り込んで処理を行う
''' </summary>
''' <param name="shpRange">探索対象の図形範囲</param>
''' <param name="targetLayer">解放対象のレイヤーオブジェクト</param>
Private Sub ProcessShapesRecursive(ByVal shpRange As Visio.Shapes, ByVal targetLayer As Visio.Layer)
    Dim shp As Visio.Shape
    Dim i As Integer

    ' 指定された範囲内の図形を一つずつ確認
    For Each shp In shpRange
        
        ' 【重要】もし図形がグループなら、その中身をさらに探索（再帰呼び出し）
        If shp.Type = visTypeGroup Then
            Call ProcessShapesRecursive(shp.Shapes, targetLayer)
        End If

        ' --- ロック/アンロックのロジック ---
        ' 図形がターゲットのレイヤーに属しているか判定
        If IsShapeInLayer(shp, targetLayer) Then
            ' ターゲットレイヤーに属していれば、ロックを解除 (0 = False)
            shp.Cells("LockEnabled").ResultIU = 0
        Else
            ' それ以外は、ロックをかける (1 = True)
            ' ※注意: 親のグループ自体がロックされていると、中の図形操作は制限されます
            shp.Cells("LockEnabled").ResultIU = 1
        End If
    Next shp
End Sub

''' <summary>
''' ヘルパー関数：図形が特定のレイヤーに属しているかを判定する
''' </summary>
Private Function IsShapeInLayer(ByVal shp As Visio.Shape, ByVal targetLayer As Visio.Layer) As Boolean
    Dim i As Integer
    ' 図形が持つレイヤーのインデックスを走査
    For i = 1 To shp.LayerCount
        If shp.Layer(i).Name = targetLayer.Name Then
            IsShapeInLayer = True
            Exit Function
        End If
    Next i
    IsShapeInLayer = False
End Function

4. コードの深層解説：ここが「プロ」の視点

このコードをただコピペするだけではもったいない。エンジニアとして、以下の3点に注目してください。

1. `Application.ScreenUpdating = False` の重み

大量の図形をループで処理する際、Visioが毎回画面を描画し直すと、処理時間は数倍、数十倍に膨れ上がります。これを「止める」だけで、パフォーマンスは劇的に向上します。これは自動化エンジニアの必須テクニックです。

2. 再帰呼び出しによる「グループの克服」

`If shp.Type = visTypeGroup Then Call ProcessShapesRecursive(…)`
この一行が、このコードの心臓部です。グループという入れ子構造を、関数が自分自身を呼び出すことで、どんなに深い階層でも「掘り進める」ことができるようになっています。

3. `ResultIU` プロパティの利用

`shp.Cells(“LockEnabled”).ResultIU = 0`
Visioのセル操作では、`ResultIU` (Integer Unit) を使うのが最も確実です。これはセルの値を「整数」として直接書き込む手法で、型エラーを回避し、確実にフラグを制御できます。

5. 陥りやすいエラーと対策

このスクリプトを動かす際、以下の点に注意してください。

レイヤー名の不一致: `targetLayerName = “Annotation”` の部分は、実際のVisio内のレイヤー名と一文字一句（大文字小文字含め）一致させる必要があります。
親グループのロック: もし、図形が属する「親グループ」自体が強力にロックされている場合、中の図形の `LockEnabled` を操作しようとしても拒否されることがあります。その場合は、まず親グループのロックを解除するロジックを検討してください。
権限の問題: 保護された文書（読み取り専用など）では動作しません。

最後に

「マクロの記録」は、あくまで「動作の断片」を教えてくれるガイドに過ぎません。
そこから一歩踏み出し、「オブジェクトがどう構成されているか」「どうすれば漏れなく探索できるか」という設計思想を持つことで、あなたのVBAは「便利なツール」から「信頼できる武器」へと進化します。

ここをクリアすれば、Visio VBAの基本はバッチリですよ。
さあ、次はさらに複雑な、条件分岐を伴う自動レイアウトに挑戦してみましょう！応援しています。