マスターの鍵を手に取る：Visio VBAで「保護されたシェイプ」を自在に操る技術
こんにちは。Visio VBAの世界へようこそ。
「マクロの記録」を使って、一歩ずつ自動化の階段を登ってきたあなた。素晴らしい進歩です。しかし、いざ自分でコードを書き始めると、ある「壁」にぶつかることがあります。
それは、「プログラムから操作しようとしたのに、なぜかエラーが出る（あるいは変更が反映されない）」という現象です。
その原因の多くは、図形に設定された「保護（Protection）」にあります。
Visioのテンプレートやステンシルに含まれるマスターシェイプは、ユーザーが誤って形を崩さないよう、移動やサイズ変更、テキストの書き換えがロックされていることがよくあります。
今日は、この「ロックされたマスター」を、まるで魔法のように一時的に解錠し、必要な加工を施した後、再び元の完璧な状態へと封印する——そんなプロフェッショナルな制御術を伝授しましょう。
ここをクリアすれば、あなたの書くコードは「ただ動くもの」から「設計思想を持った堅牢なもの」へと進化しますよ。
1. なぜ「保護」があなたのコードを拒むのか？
Visioのシェイプには、多くの属性（プロパティ）があります。位置、大きさ、色、テキスト……。これらを勝手に変えられないように制限をかける仕組みが「Protection」です。
プログラミング初学者が陥りやすい罠は、「すべての保護を一度に解除して、最後にすべてを再設定しようとする」ことです。
これでは、元々設定されていた「移動はさせたいけど、サイズ変更は禁止」といった、繊細な設計（プロパティの組み合わせ）を破壊してしまいます。
アーキテクトの視点：ビット演算の重要性
Visioの保護設定は、内部的には「ビットフラグ」という形式で管理されています。
例えば、「位置の保護」が1番目のスイッチ、「サイズ変更の保護」が2番目のスイッチ……というように、複数のスイッチが重なり合って一つの値を作っています。
プロのエンジニアは、このスイッチを「全部オフ」にするのではなく、「特定のスイッチだけを一時的にオフにし、作業後にそのスイッチだけを元に戻す」というアプローチを取ります。
2. 実践：保護設定を「スマートに」切り替えるコード
それでは、具体的なコードを見ていきましょう。
単に保護を消すのではなく、「現在の状態を記憶し、作業後に完璧に復元する」という、実務でそのまま使える堅牢なパターンを紹介します。
Option Explicit
''' <summary>
''' マスターシェイプの保護を一時的に解除し、内容を書き換えてから保護を再設定する
''' </summary>
''' <param name="targetShape">操作対象のシェイプ</param>
Sub UpdateProtectedMasterShape(targetShape As Visio.Shape)
Dim originalProtection As Long
' --- STEP 1: 現在の保護状態を「記憶」する ---
' これがプロの仕事です。元の状態を壊さないためのバックアップです。
originalProtection = targetShape.Protection
On Error GoTo ErrorHandler
' --- STEP 2: 特定の保護を「解除」する ---
' And Not を使うことで、特定のビット（スイッチ）だけをオフにします。
' ここでは「位置(Pin)」「サイズ(X,Y)」「テキスト」の保護を一時的に解除します。
targetShape.Protection = targetShape.Protection And Not (visProtectionPin Or _
visProtectionX,Y Or _
visProtectionText)
' --- STEP 3: シェイプの加工を行う ---
' ここであなたのやりたい自動化処理を行います。
Debug.Print "Shape '" & targetShape.Name & "' を加工中..."
targetShape.Text = "自動更新済み: " & Now
targetShape.CellsU("FillForegnd").FormulaU = "RGB(100, 150, 255)" ' 色を変更
' --- STEP 4: 保護を「復元」する ---
' 記憶しておいた originalProtection をそのまま戻すことで、
' 元々設定されていた他の保護設定（例：削除禁止など）を一切壊さずに済みます。
targetShape.Protection = originalProtection
Debug.Print "加工と復元が完了しました。"
Exit Sub
ErrorHandler:
' エラーが発生した場合でも、可能な限り元の保護状態に戻すよう試みます
targetShape.Protection = originalProtection
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub
''' <summary>
''' テスト実行用のメインルーチン
''' </summary>
Sub TestMasterUpdate()
Dim vsoPage As Visio.Page
Dim vsoShape As Visio.Shape
Set vsoPage = ActivePage
' ページ上の最初のシェイプを対象にする例
If vsoPage.Shapes.Count > 0 Then
Set vsoShape = vsoPage.Shapes(1)
Call UpdateProtectedMasterShape(vsoShape)
Else
MsgBox "ページにシェイプがありません。"
End If
End Sub3. コードの徹底解説：何が「プロ」の動きなのか
このコードには、現場で通用するための3つのエッセンスが詰まっています。
① `And Not` による精密な解除
`targetShape.Protection = targetShape.Protection And Not visProtectionPin`
ここが一番の肝です。
もし `targetShape.Protection = 0` と書いてしまうと、すべての保護が消え、ユーザーが勝手に消せる図形になってしまいます。
`And Not` を使うことで、「既存の保護状態を維持したまま、指定した項目だけをピンポイントでオフにする」という高度な操作を実現しています。
② ライフサイクル管理（記憶と復元）
`originalProtection = targetShape.Protection`
変数のスコープ（有効範囲）とオブジェクトの属性を理解しているエンジニアは、必ず「元の状態」を保持します。
「加工する」ことと「元の状態を守る」ことは、自動化において同等の重要性を持ちます。
③ エラーハンドリングの哲学
`On Error GoTo ErrorHandler`
もし加工中にエラー（例えば、存在しないプロパティにアクセスした等）が起きても、そのままプログラムが止まると、「保護が解除されたままの図形」がページに残ってしまいます。これは図面管理において致命的なミスです。
エラー時に `originalProtection` を適用し直すことで、システム全体の整合性を守っています。
4. 陥りやすいエラーと回避策
学習を進める中で、以下の点に注意してください。
- 「マスター」そのものをいじっているか、「インスタンス」をいじっているか？
ステンシルのマスターシェイプそのものを書き換えると、そのステンシルからドロップされるすべての図形に影響が出ます。意図的な設計変更でない限り、ページ上のコピー（インスタンス）に対して操作を行うよう設計しましょう。
- 定数のスペルミス
`visProtectionPin` などの定数は、Visio VBAのライブラリに定義されています。これを打ち間違えると、コンパイルエラーになります。IntelliSense（入力補完）を賢く使いましょう。
最後に：ここをクリアすれば、あなたはもう初級者ではない
いかがでしたか？
「保護を解除する」という単純な作業に見えても、その裏側にはビット演算による精密な制御と、オブジェクトの整合性を守るための設計思想が隠されています。
この「状態を記憶し、加工し、元に戻す」というパターンは、Visioに限らず、あらゆる高度なプログラミングにおける基本原則です。
これがスムーズに書けるようになれば、あなたはもう「マクロの記録」の枠を飛び出し、Visioという巨大なキャンバスを自在に操る「自動化エンジニア」への道を歩み始めています。
自信を持って、次のコードを書き進めてください。応援していますよ！
