Visio VBAを掌握する極限の知見：Page.Layersのセキュリティ保護とレイヤーロック機構の構築
Visioの真価は、単なるお絵描きツールではなく、構造化されたデータを内包する「ビジュアル・データベース」である点にある。特にプラントの配管図、建築の躯体図、あるいは複雑な電気回路図において、背景となるマスタ構造や基幹配線が、現場のオペレーターや若手エンジニアの誤操作によって移動・削除されるインシデントは、業務上の致命傷となり得る。
VisioのUI上には「レイヤーのプロパティ」として「ロック（Lock）」のチェックボックスが存在する。しかし、これを巨大なマルチページ図面に対して手動で適用し続けることは、エンジニアリングの放棄に等しい。さらに、Visio VBAのオブジェクトモデルにおける `Layers` コレクションの挙動や、背後にあるCOMのメモリ管理、UIの再描画コストを理解していない者が安易にコードを書けば、メモリリークや「Not Responding（応答なし）」の悪夢を見る羽目になる。
本稿では、特定の重要レイヤー（回路図・躯体図など）に属する全図形を一括して不可侵領域へと変貌させ、誤操作を物理的・論理的に根絶する、実務レベルの堅牢なレイヤーセキュリティ制御マクロを解説する。
—
1. Visioオブジェクトモデルの深層：LayersとShapeの交点
Visioのレイヤー（`Layer` オブジェクト）は、単なる可視化のグループではない。実体としては、`Page` オブジェクトが保持する `Layers` コレクションの一部であり、各 `Shape` はその `CellsSRC`（Cell Sheet Row Column）を通じてレイヤーとの結びつきを維持している。
レイヤー自体をロック（`Layer.Stat` または `Lock` プロパティの操作）することもあるが、より確実かつ細粒度な制御を行うためには、「ターゲットとなるレイヤーに所属する全シェイプを走査し、それらの位置・サイズ・テキスト編集に関するセル（CellsU）を一括してロックする」アプローチが実務上最も堅牢である。Visioのデフォルトのレイヤーロックは、UI上の選択を避けることはできても、VBAや一部の外部連携からの意図せぬ変更を防ぎきれない場合があるためだ。
誤操作を防ぐための保護マスタプラン
1. 対象レイヤーの特定: 指定したページ内から、保護対象のレイヤー名（例: `”躯体図_Base”`, `”回路図_Primary”`）を厳密に一意検索する。
2. 所属シェイプの列挙: `Page.Shapes` を総当たりするのではなく、レイヤーのメンバーシップを判定して効率的に抽出すべきだが、Visio VBAの仕様上、シェイプがどのレイヤーに属するかは `Shape.CellsU(“LayerMember”)` の文字列パース、またはレイヤーの `Region` 判定を伴う。
3. セルプロパティのハードロック: 該当シェイプの `LocPinX`, `PinX`, `LocPinY`, `PinY`, `Width`, `Height`, `Angle` などの空間プロパティ、および `LockDelete`, `LockVtxEdit`, `LockRotate` などのガードセルを強制的に書き換える。
—
2. 実装コード：堅牢性とパフォーマンスを極めたレイヤーロック・エンジン
以下に、実務の現場で即座に稼働させられる、メモリ最適化とエラーハンドリングを極めたプロダクション品質のVBAコードを提示する。
Option Explicit
‘ ==============================================================================
‘ 処理名 : ToggleLayerSecurityEngine
‘ 概要 : 指定したページの特定重要レイヤーに属する全図形を完全ロック/解除する
‘ 備考 : COMオブジェクトの明示的解放、画面描画抑制による高速化を実装
‘ ==============================================================================
Public Sub ToggleLayerSecurityEngine()
‘ 1. 宣言とパフォーマンス最適化の準備
Dim vsoApp As Visio.Application
Set vsoApp = Application
‘ 画面描画とイベントを一時停止（爆発的な速度向上と画面チラツキ防止）
Dim originalScreenUpdating As Boolean
Dim originalEventEnabled As Boolean
originalScreenUpdating = vsoApp.ScreenUpdating
originalEventEnabled = vsoApp.EventEnabled
vsoApp.ScreenUpdating = False
vsoApp.EventEnabled = False
‘ エラーハンドリングの安全ネット
On Error GoTo ErrorHandler
Dim vsoPage As Visio.Page
Set vsoPage = vsoApp.ActivePage
If vsoPage Is Nothing Then
MsgBox “アクティブなページが存在しません。”, vbCritical, “レイヤーセキュリティエラー”
GoTo Finally
End If
‘ 2. パラメータ設定（実務ではフォームや外部設定ファイルから取得を推奨）
Const TARGET_LAYER_NAME As String = “躯体図_基幹”
Const LOCK_OPERATION As Boolean = True ‘ True: ロック, False: ロック解除
‘ 3. レイヤーブジェクトの検索
Dim vsoLayer As Visio.Layer
Set vsoLayer = GetLayerByName(vsoPage, TARGET_LAYER_NAME)
If vsoLayer Is Nothing Then
MsgBox “指定されたレイヤー ‘” & TARGET_LAYER_NAME & “‘ がアクティブページに見つかりません。”, vbExclamation, “レイヤー不一致”
GoTo Finally
End If
‘ 4. レイヤー自体の保護プロパティ設定
‘ ※ VisioのレイヤーのLockプロパティはUI上の選択・スナップ等を制御する
‘ vsoLayer.CellsC(visLayerLock) = IIf(LOCK_OPERATION, 1, 0) ‘ 必要に応じて有効化
‘ 5. 所属シェイプの一括走査とロック適用
Dim vsoShapes As Visio.Shapes
Set vsoShapes = vsoPage.Shapes
Dim i As Long
Dim vsoShape As Visio.Shape
Dim affectedCount As Long
affectedCount = 0
‘ 逆順ループは不要だが、コレクションのパフォーマンスを考慮
Dim totalShapes As Long
totalShapes = vsoShapes.Count
For i = 1 To totalShapes
Set vsoShape = vsoShapes(i)
‘ シェイプがターゲットレイヤーに所属しているか判定
If IsShapeInLayer(vsoShape, TARGET_LAYER_NAME) Then
Call ApplyShapeLock(vsoShape, LOCK_OPERATION)
affectedCount = affectedCount + 1
End If
‘ ループ内のオブジェクト参照を都度解放（メモリリーク対策）
Set vsoShape = Nothing
Next i
‘ トランザクション完了のログ出力（イミディエイトウィンドウ）
Debug.Print “レイヤー [” & TARGET_LAYER_NAME & “] のセキュリティ保護を適用しました。処理図形数: ” & affectedCount
MsgBox “レイヤー ‘” & TARGET_LAYER_NAME & “‘ のセキュリティ保護処理が完了しました。” & vbCrLf & _
“対象図形数: ” & affectedCount & ” 件”, vbInformation, “レイヤーセキュリティ”
Finally:
‘ 6. 資源の確実な解放と環境復元
Set vsoShape = Nothing
Set vsoShapes = Nothing
Set vsoLayer = Nothing
Set vsoPage = Nothing
vsoApp.ScreenUpdating = originalScreenUpdating
vsoApp.EventEnabled = originalEventEnabled
Set vsoApp = Application
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error Number: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “致命的エラー”
Resume Finally
End Sub
‘ ==============================================================================
‘ 補助関数 : ページ内から名前でレイヤーを取得する
‘ ==============================================================================
Private Function GetLayerByName(ByVal vsoPage As Visio.Page, ByVal layerName As String) As Visio.Layer
Dim vsoLayers As Visio.Layers
Set vsoLayers = vsoPage.Layers
Dim i As Long
For i = 1 To vsoLayers.Count
If vsoLayers(i).Name = layerName Then
Set GetLayerByName = vsoLayers(i)
Exit Function
End If
Next i
Set GetLayerByName = Nothing
End Function
‘ ==============================================================================
‘ 補助関数 : シェイプが指定レイヤーに属しているかを判定
‘ ==============================================================================
Private Function IsShapeInLayer(ByVal vsoShape As Visio.Shape, ByVal layerName As String) As Boolean
IsShapeInLayer = False
‘ Shape.LayerMember プロパティはセミコロン区切りのレイヤー名を返す
On Error Resume Next
Dim layerMemberStr As String
layerMemberStr = vsoShape.CellsU(“LayerMember”).ResultStr(“”)
If Err.Number <> 0 Then
Exit Function
End If
On Error GoTo 0
If InStr(1, layerMemberStr, layerName, vbTextCompare) > 0 Then
IsShapeInLayer = True
End If
End Function
‘ ==============================================================================
‘ 補助関数 : シェイプに対する個別のロック/ロック解除セルの書き込み
‘ ==============================================================================
Private Sub ApplyShapeLock(ByVal vsoShape As Visio.Shape, ByVal isLock As Boolean)
Dim lockValue As Integer
lockValue = IIf(isLock, 1, 0)
On Error Resume Next
With vsoShape
‘ 位置・サイズの固定
.CellsU(“LockPinX”).FormulaU = lockValue
.CellsU(“LockPinY”).FormulaU = lockValue
.CellsU(“LockWidth”).FormulaU = lockValue
.CellsU(“LockHeight”).FormulaU = lockValue
.CellsU(“LockAngle”).FormulaU = lockValue
‘ 削除・グループ化・構造変更の禁止
.CellsU(“LockDelete”).FormulaU = lockValue
.CellsU(“LockVtxEdit”).FormulaU = lockValue
.CellsU(“LockTextEdit”).FormulaU = lockValue
.CellsU(“LockCrop”).FormulaU = lockValue
.CellsU(“LockFormat”).FormulaU = lockValue
End With
On Error GoTo 0
End Sub
—
3. シニアエンジニアが知るべき「メモリ最適化」と「API連携」の極意
上記のコードを見れば分かる通り、単にVBAの構文を並べただけではない。実務の巨大図面（数万シェイプを持つ図面）を扱う上で避けて通れない、アーキテクチャ上の核心に触れておこう。
1. `ScreenUpdating = False` と `EventEnabled = False` の絶対的意義
Visioは、1つのシェイプのプロパティ（CellsU）を書き換えるたびに、内部で再描画や変更イベントの発火を試みる。数千個のシェイプを持つレイヤーに対してこれを無防備に行うと、OSのリソースを食いつぶし、完了までに数十分を要するか、あるいはフリーズする。
描画とイベントをプログラムの入口で完全に遮断し、最後に一括して復元する手法は、大規模CAD/CAM系VBAにおける鉄則である。
2. COMオブジェクトのライフサイクル管理とメモリリーク防衛
VBAのランタイムはガベージコレクションを持たない。`ForEach` ループ内でオブジェクト変数に次々と参照を代入していくと、参照カウントが適切にデクリメントされず、ExcelやVisioプロセスが終了してもメモリ上に残存する「ゾンビプロセス化」を引き起こす。
本コードでは、ループの都度 `Set vsoShape = Nothing` を明示的に行い、プロシージャの終端で全てのオブジェクト参照を抹消している。この厳格な規律こそが、何日も連続稼働する社内サーバーや常駐型アドインの土台となる。
3. レガシー環境とシステム間連携（外部データベース・外部CADとの統合）
このレイヤーロック機能は、単独のマクロとして動かすだけではなく、外部のPLM（製品ライフサイクル管理）システムや、PDM、BIM/CADサーバーからのWebhook / REST API連携のトリガーとして組み込むべきである。
例えば、外部の設計管理システムから「図面ステータス：承認済み（Approved）」というステータス変更シグナルを受け取った際、COMインターフェース経由でこのVBAマクロ（あるいはVB.NETで書かれたVisio Automation Add-in）をバックグラウンド実行する。これにより、人間の手作業を一切介在させず、承認された瞬間に基幹レイヤーが改ざん不能な「イミュータブル（不変）な図面」へと昇華される。
—
4. 結言：信頼性の高い自動化基盤のために
VBAは「レガシーな言語」と揶揄されることがある。しかし、Visioのオブジェクトモデルを直に叩き、図面のライフサイクルを支配するアプローチにおいて、そのパフォーマンスと親和性は他の近代言語のCOMラッパーをも凌駕するポテンシャルを秘めている。
今回紹介したレイヤーセキュリティ保護の知見とコードは、単なる「誤操作防止の小技」ではない。図面の信頼性を担保し、エンジニアリングデータの資産価値を守るための防壁そのものである。現場の阿鼻叫喚を生むヒューマンエラーをコードの力で完全に封じ込め、真に価値のある設計作業に集中できる環境を構築してほしい。
