【実務・中級編】【中級者向け】ページ内の全シェイプを走査し、レイヤー設定が空のシェイプを自動的に「デフォルトレイヤー」へ移動する整理術 – Visio VBA解析バイブル

Visio VBA

2026.11.06

Visio VBAを掌握する：レイヤー統治による図面品質の極限管理

Visio VBAを掌握する：レイヤー統治による図面品質の極限管理

多くのエンジニアがVisio VBAを「単なる自動作図ツール」と考えている。だが、それは大きな間違いだ。

プロフェッショナルな業務自動化において、作図はプロセスの入り口に過ぎない。真の戦いは、その後の「保守性」と「管理性」にある。数千のシェイプが乱舞する巨大な図面において、レイヤー設定が疎かになったシェイプ（いわゆる「迷子シェイプ」）が混在していることは、設計図としての信頼性を著しく損なう。

今回は、ページ内の全シェイプを走査し、レイヤー設定が空（または不適切）なシェイプを強制的に「デフォルトレイヤー」へ集約する、堅牢な整理術を伝授する。

単なるループ処理で満足してはいけない。オブジェクトのライフサイクルと、Visio特有のレイヤー構造という「罠」を完全に制御せよ。

1. アーキテクチャ設計：なぜ「単純なループ」では不十分なのか

初心者は、`For Each shp In Page.Shapes` で回してプロパティを書き換えればいいと考える。しかし、実務レベルのツールでそれをやると、以下の3つの壁にぶち当たる。

① レイヤーの「多対多」関係という罠

Visioのシェイプは、単一のレイヤーに属するのではない。「複数のレイヤーに同時に所属できる」という仕様だ。単に `shp.Layer` を参照しても、それは「最初に見つかったレイヤー名」を返しているに過ぎない。完全な統制を行うには、レイヤーの所属状態を厳密に判定する必要がある。

② 存在しないレイヤーへの参照エラー

「デフォルトレイヤー」に移動させようとしたとき、そのレイヤーが図面内に存在しなければ、VBAは無慈悲にランタイムエラーを吐く。実行前に「レイヤーの存在確認」と「動的生成」を組み込むのがプロの設計だ。

③ パフォーマンスの劣化

数千個のシェイプに対して個別にレイヤー変更を行い、その都度画面を再描画させていれば、処理時間は指数関数的に増大する。描画更新の制御（Freeze）は必須である。

2. プロダクションコード：堅牢なるレイヤー整理エンジン

以下に、保守性と堅牢性を極限まで高めた実装例を示す。このコードは、単なる機能実装ではなく、エラーハンドリングとリソース管理を組み込んだ「製品レベル」の構造になっている。

Option Explicit

''' <summary>
''' ページ内の未分類シェイプを特定の管理レイヤーへ強制移動させる
''' </summary>
''' <param name="targetLayerName">集約先のレイヤー名</param>
Public Sub OrganizeShapesToDefaultLayer(ByVal targetLayerName As String)
    Dim vpg As Visio.Page
    Dim vshp As Visio.Shape
    Dim vlyr As Visio.Layer
    Dim shapeCount As Long
    Dim movedCount As Long
    
    ' 現在のアクティブページを対象とする
    Set vpg = ActivePage
    
    On Error GoTo ErrorHandler
    
    ' --- [最適化] 描画更新の停止 ---
    ' VisioにはExcelのようなScreenUpdatingがないため、
    ' 大量変更時はウィンドウの更新を抑制する工夫が必要
    ActiveWindow.Freeze = True
    
    ' --- [整合性チェック] ターゲットレイヤーの存在確認と生成 ---
    Set vlyr = GetOrCreateLayer(vpg, targetLayerName)
    
    ' 全シェイプを走査
    ' 注: Shapesコレクションを直接ループさせる際、
    ' 構造変更を伴う場合はインデックス指定が安全だが、
    ' 今回は属性変更のみのため For Each で高速に処理する
    shapeCount = 0
    movedCount = 0
    
    For Each vshp In vpg.Shapes
        shapeCount = shapeCount + 1
        
        ' シェイプがどのレイヤーにも所属していないか、
        ' あるいはデフォルトの背景レイヤーのみに所属しているかを判定
        ' ※Visioの内部仕様として、完全にレイヤーがない状態は稀だが、
        ' 管理外のシェイプを特定するロジックをここに実装する
        If IsShapeUnclassified(vshp) Then
            ' ターゲットレイヤーに追加
            ' AddToLayerメソッドは、既存の所属を消さずに「追加」する
            vshp.AddToLayer targetLayerName
            
            ' 他の不要なレイヤーから切り離したい場合は、
            ' ここで全レイヤーを走査してRemoveFromLayerを行う（要件に応じて）
            
            movedCount = movedCount + 1
        End If
    Next vshp
    
    ' --- [後処理] ---
    ActiveWindow.Freeze = False
    MsgBox "整理完了。" & vbCrLf & _
           "走査数: " & shapeCount & " 個" & vbCrLf & _
           "移動数: " & movedCount & " 個", vbInformation, "Layer Governance"

    Exit Sub

ErrorHandler:
    ActiveWindow.Freeze = False
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical, "System Error"
End Sub

''' <summary>
''' 指定したレイヤーが存在するか確認し、なければ作成して返す
''' </summary>
Private Function GetOrCreateLayer(ByRef vpg As Visio.Page, ByVal layerName As String) As Visio.Layer
    On Error Resume Next
    Set GetOrCreateLayer = vpg.Layers.Item(layerName)
    On Error GoTo 0
    
    If GetOrCreateLayer Is Nothing Then
        ' レイヤーが存在しない場合は新規作成
        Set GetOrCreateLayer = vpg.Layers.Add(layerName)
        Debug.Print "Layer created: " & layerName
    End If
End Function

''' <summary>
''' シェイプが「未分類（管理外）」であるかを判定する
''' </summary>
Private Function IsShapeUnclassified(ByRef vshp As Visio.Shape) As Boolean
    ' 実務上の判定基準: 
    ' 1. 特定の管理レイヤーに属していない
    ' 2. または、デフォルトの「Background」レイヤーのみに属している
    ' ここでは例として、特定のキーワード（例: "Layer"）を含むレイヤーに属していない場合にTrueとする
    
    Dim lName As String
    lName = vshp.Layer
    
    ' Visioのshp.Layerは最初に割り当てられたレイヤー名を返す。
    ' これが空、もしくはデフォルト名である場合に「未分類」とみなす。
    If lName = "" Or lName = "Background" Then
        IsShapeUnclassified = True
    Else
        IsShapeUnclassified = False
    End If
End Function

3. チーフアーキテクトの視点：実装の急所

このコードを単なる「コピペ」で終わらせず、エンジニアとして理解すべきポイントを解説する。

1. `ActiveWindow.Freeze` の戦略的利用

Visio VBAにおいて、大量のシェイプ操作を行う際に最もボトルネックとなるのは画面の再描画だ。`ActiveWindow.Freeze = True` を設定することで、内部的な計算のみを先行させ、最後に一括して描画させる。これにより、処理速度が劇的に向上し、ユーザー体験（UX）としての「フリーズ感」を排除できる。

2. `GetOrCreateLayer` による冪等性（Idempotency）の確保

ツールを二度、三度と実行したとき、同じレイヤーが重複して作成されたり、エラーで停止したりしてはならない。「あれば取得し、なければ作る」というパターンを関数化し、メインロジックから切り離すことで、コードの可読性と堅牢性を両立させている。

3. `AddToLayer` と `RemoveFromLayer` の使い分け

Visioのレイヤー操作は「追加」と「削除」の組み合わせである。

`vshp.AddToLayer “Layer1″` $\rightarrow$ Layer1への所属フラグを立てる。
`vshp.RemoveFromLayer “Layer2″` $\rightarrow$ Layer2への所属フラグを折る。

もし、「他のすべてのレイヤーから排除して、デフォルトレイヤーだけにしたい」という厳格な要件がある場合は、`vpg.Layers` コレクションをループし、`targetLayerName` 以外のすべてのレイヤーから `RemoveFromLayer` を実行するロジックを追加せよ。

4. 運用上の注意点と拡張性

このツールを実務に投入する際、以下の点に留意せよ。

グループシェイプの扱い:

グループシェイプの場合、グループ自体にレイヤーが設定されていても、内部のサブシェイプが個別のレイヤーを持っている場合がある。再帰的に走査する必要があるか、設計要件を再確認せよ。

外部データベース連携:

もしレイヤー名を図面外のExcelやDBで管理している場合は、`targetLayerName` を引数として外部から注入する設計にする。これにより、ハードコーディングを排除し、管理コストを最小化できる。

ロックされたシェイプ:

保護（Protection）がかかっているシェイプに対してレイヤー変更を試みるとエラーになる。必要に応じて `vshp.Protect = 0` で一時的に保護を解除する処理を組み込め。

結びに

自動化の真価は、「動くこと」ではなく「壊れないこと」にある。
特にVisioのような複雑なオブジェクトモデルを持つアプリケーションでは、仕様の隙間に潜む罠を先読みし、防御的なコーディングを行うことが不可欠だ。

このレイヤー整理術を起点に、図面全体のガバナンスを自動化せよ。それが、単なる「マクロ書き」から「業務自動化エンジニア」へと昇華する唯一の道である。