「マクロの記録」から卒業しよう。Visio VBAでステンシルを自在に操るための第一歩
こんにちは。今日は、Visio VBAの世界へ一歩踏み出そうとしているあなたへ、少しだけ「本質的」な話をさせてください。
多くの人が、最初にVisioの自動化に挑戦するとき、「マクロの記録」機能を使います。確かに、それは素晴らしい入り口です。しかし、記録されたコードを眺めていて、「なぜここでこんなに長い命令が並んでいるんだろう？」「もっとスマートに、特定の部品（マスターシェイプ）だけを呼び出す方法はないのかな？」と疑問に思ったことはありませんか？
もしそう感じたなら、あなたはもう「記録されたコードの消費者」ではなく、「自動化エンジニア」への階段を登り始めています。
今回のテーマは、自動化の要となる「ステンシル（Stencil）の制御」です。特定のステンシルファイルをプログラムから呼び出し、使い終わったら綺麗に片付ける。この「ライフサイクル管理」をマスターすれば、あなたの作るツールは格段にプロフェッショナルなものになります。
準備はいいですか？ 一緒に、コードの裏側にある「設計思想」を学んでいきましょう。
1. ステンシルとは何か？ —— Visioにおける「部品箱」の正体
まず、用語の整理から始めましょう。Visioにおいて、図形（シェイプ）は単体で存在するのではなく、多くの場合「ステンシル」というファイルの中に格納されています。
プログラミングの視点で見ると、ここが重要なポイントです。
「ステンシルファイル（.vssx）も、図面ファイル（.vsdx）と同じ『Document』オブジェクトである」
Visio VBAにおいて、ステンシルを開くということは、新しい図面を開くのと基本的には同じ操作です。しかし、単に開くだけではなく、「図形をドラッグ＆ドロップするためのパネル（ステンシルペイン）として表示させる」という、少し特別な作法が必要になります。
2. `Documents.OpenEx` メソッド：魔法の鍵
初心者の方が最初につまずくのが、`Documents.Open` と `Documents.OpenEx` の違いです。
「記録されたマクロ」では、単純な `Open` が使われることが多いですが、プロの現場では `OpenEx` を好んで使います。なぜなら、`OpenEx` には「オプション（フラグ）」を指定できるからです。
ステンシルを扱う場合、このオプションが決定的な意味を持ちます。
なぜ `OpenEx` なのか？
ステンシルを「ただのファイル」として開くのではなく、「図形を取り出すためのツール（ドッキングされた状態）」として開くためには、`visOpenDocked` というフラグを指定する必要があります。これを使わずに開くと、ステンシルが背後でファイルとして開くだけで、画面上のステンシルペインに表示されず、操作が非常に困難になることがあるのです。
3. 実践：ステンシルを管理する「黄金のルーチン」
それでは、実際に使えるコードを見てみましょう。
単に「開く」だけでなく、「エラーが起きても確実に閉じる」という、エンジニアとして最も大切な「後片付け」を含めた設計にしています。
' =================================================================
' プログラム名：StencilManagementRoutine
' 概要：特定のステンシルを開き、マスターシェイプを操作した後、確実に閉じる
' =================================================================
Sub ManageStencilExample()
Dim stencilPath As String
Dim stencilDoc As Visio.Document
Dim targetMaster As Visio.Master
' 1. ステンシルのパスを指定（ご自身の環境に合わせて書き換えてください）
stencilPath = "C:\Users\YourName\Documents\MyCustomStencil.vssx"
' エラーハンドリングの開始
' 万が一、ファイルが見つからないなどのトラブルが起きても、
' プログラムが暴走せずに「後片付け」へ移行できるようにします。
On Error GoTo ErrorHandler
' 2. ステンシルを「ドッキング状態」で開く
' visOpenDocked フラグを使うことで、ステンシルペインに表示されます。
Set stencilDoc = Documents.OpenEx(stencilPath, visOpenDocked)
Debug.Print "ステンシルを開きました: " & stencilDoc.Name
' -------------------------------------------------------------
' 3. 【ここがメイン処理】ステンシル内のマスターを操作する例
' -------------------------------------------------------------
' 例として、ステンシル内の「Square」という名前のマスターを取得します。
' ※実際に存在するマスター名に変更してください。
On Error Resume Next ' マスターが見つからない場合のための局所的なエラー回避
Set targetMaster = stencilDoc.Masters("Square")
On Error GoTo ErrorHandler ' エラーハンドリングを元の状態に戻す
If Not targetMaster Is Nothing Then
Debug.Print "マスター '" & targetMaster.Name & "' を見つけました。"
' ここで図面への貼り付けなどの処理を行うことができます。
Else
MsgBox "指定されたマスターが見つかりませんでした。", vbExclamation
End If
' -------------------------------------------------------------
' 4. 使い終わったら、確実に閉じる
' ステンシルを閉じ忘れると、Visioのメモリを圧迫し、動作が重くなる原因になります。
stencilDoc.Close
Set stencilDoc = Nothing
Debug.Print "ステンシルを正常に閉じました。"
MsgBox "処理が完了しました。", vbInformation
Exit Sub
ErrorHandler:
' エラーが発生した場合の処理
MsgBox "エラーが発生しました。" & vbCrLf & _
"エラー番号: " & Err.Number & vbCrLf & _
"エラー内容: " & Err.Description, vbCritical
' 【重要】エラーが起きても、開いてしまったステンシルがあれば閉じる
If Not stencilDoc Is Nothing Then
stencilDoc.Close
Set stencilDoc = Nothing
End If
End Sub4. ここをクリアすれば、Visio VBAの基本はバッチリですよ
このコードには、私が現場で培ってきた「失敗しないための知恵」が詰まっています。復習しておきましょう。
① 「オブジェクト変数」を使いこなす
`Dim stencilDoc As Visio.Document` のように、開いたステンシルを必ず変数に格納してください。これにより、「どのファイルを閉じるのか」をプログラムが明確に認識できるようになります。
② `On Error GoTo` は「保険」ではなく「設計」
初心者のうちは「エラーなんて起きないだろう」と考えがちですが、ファイルパスの間違い、ファイルが使用中、権限不足……エラーは必ず起きます。
「エラーが起きたら、開いたファイルを閉じてから終了する」。この一連の流れをセットで書くことが、安定したシステムを作る唯一の道です。
③ リソースの解放（ライフサイクル管理）
ステンシルは「道具」です。使った道具を机に放りっぱなしにする職人は、一流とは言えません。`stencilDoc.Close` は、プログラムの整合性を保つための儀式だと思ってください。
おわりに
いかがでしたか？
「マクロの記録」を眺めていたときよりも、少しだけVisioの仕組みがクリアに見えてきたのではないでしょうか。
最初は難しく感じるかもしれませんが、一つひとつのオブジェクトが「何のために存在し、どう扱われるべきか」を意識するだけで、あなたのコードの質は劇的に向上します。
次は、このステンシルから取得したマスターを使って、実際に図面にシェイプを配置するステップに進んでみましょう。その時、あなたはもう、立派な自動化エンジニアの仲間入りです。
応援していますよ。また次のレッスンでお会いしましょう！
