記号の錬金術：カスタムステンシルを動的に生成する「マスター・エンジニアリング」の極意
こんにちは。現場の最前線で、複雑怪奇な業務プロセスをコードという名の魔法で解き明かしてきたチーフアーキテクトです。
「マクロの記録」を使って、なんとか自動化の第一歩を踏み出したあなた。素晴らしい。その一歩が、後に巨大なシステムを構築する礎となります。しかし、もしあなたが「決まった図形を何度も手動でステンシルに登録し直している」のだとしたら、それはエンジニアとしての才能を、単純作業という名の沼に捨てているのと同じです。
今日のテーマは、Visio VBAにおける「中級への登竜門」。
「既存のシェイプを解析し、新しいマスターシェイプとして抽出し、独自のステンシルファイル（.vssx）として自動生成・保存する」という、極めて実戦的なワークフローをマスターしましょう。
これを習得すれば、あなたは「図形を描く人」から、「図形のルールを定義する設計者」へと進化します。準備はいいですか？
1. 概念の再定義：Shape（シェイプ）と Master（マスター）の違い
コードを書く前に、まず脳内のオブジェクトモデルを整理しましょう。ここを混同していると、VBAの迷宮で必ず遭難します。
- Shape（シェイプ）: ページ上に存在する「実体」です。座標を持ち、色を持ち、今まさにそこに「ある」ものです。
- Master（マスター）: ステンシルの中に格納された「設計図」です。ページ上のシェイプは、この設計図（マスター）をコピーして生まれます。
今回のミッションは、「ページ上の特定のシェイプ（実体）を、新しい設計図（マスター）へと昇華させ、ステンシルという名の書庫に収める」ことです。
2. 実装のグランドデザイン
動的なステンシル生成には、以下の4つのフェーズが必要です。
1. ターゲットの捕捉: どのシェイプをマスターにするのか、選択されたオブジェクトを取得する。
2. ステンシル・コンテナの準備: 新しいステンシルファイル（Documentオブジェクト）をメモリ上に展開する。
3. マスターの転写: 選択したシェイプの情報を、ステンシルのマスターコレクションへと流し込む。
4. 永続化: メモリ上のデータを、物理ファイル（.vssx）として書き出す。
3. 実践：マスター生成のコア・コード
それでは、魂を込めたコードを見ていきましょう。このコードは、単に動くだけでなく、エラーハンドリングとオブジェクトのライフサイクルを考慮した「プロ仕様」の構成にしています。
''' <summary>
''' 選択したシェイプを新しいマスターとして、独自のステンシルファイルに保存する
''' </summary>
Sub CreateCustomStencilFromSelection()
Dim targetShape As Visio.Shape
Dim stencilDoc As Visio.Document
Dim newMaster As Visio.Master
Dim savePath As String
Dim stencilName As String
' --- 1. 前提条件のチェック ---
' 何も選択されていない状態で実行するとエラーになるため、ガードをかける
If ActiveWindow.Selection.Count = 0 Then
MsgBox "マスターにしたいシェイプを一つ選択してください。", vbExclamation, "エラー"
Exit Sub
End If
' 選択された最初のシェイプをターゲットとする
Set targetShape = ActiveWindow.Selection.Item(1)
' --- 2. 保存先の定義 ---
' ここではデスクトップに保存する設定にしています（実務ではダイアログを使うのが理想）
stencilName = "MyCustomStencil_" & Format(Now, "yyyymmdd_hhnnss") & ".vssx"
savePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & stencilName
On Error GoTo ErrorHandler
' --- 3. ステンシル・コンテナの生成 ---
' 新しいステンシル形式のドキュメントを作成
' Visioにおいてステンシルは一種のDocumentオブジェクトとして扱われます
Set stencilDoc = Documents.Add("")
' ※注意: Documents.Add("") で作成されたドキュメントは、
' そのままでは単なる図面ファイルです。これをステンシルとして機能させるには
' 適切な保存形式（.vssx）で保存する必要があります。
' --- 4. マスターの追加（ここが錬金術の核心） ---
' 選択したシェイプを、新しいステンシルのマスターコレクションに追加します。
' Addメソッドにシェイプを渡すことで、その形状を設計図として登録できます。
Set newMaster = stencilDoc.Masters.Add(targetShape.Name, targetShape.Name)
' 成功メッセージ
Debug.Print "Master Created: " & newMaster.Name
' --- 5. 永続化（ファイルへの書き出し） ---
' 最後に、作成したドキュメントをステンシル形式で保存します。
' Visioの保存形式指定において、ステンシルは非常に重要です。
stencilDoc.SaveAs savePath
MsgBox "新しいステンシルが完成しました！" & vbCrLf & _
"保存先: " & savePath, vbInformation, "成功"
CleanUp:
' オブジェクトの解放（メモリリーク防止）
Set newMaster = Nothing
Set stencilDoc = Nothing
Set targetShape = Nothing
Exit Sub
ErrorHandler:
MsgBox "予期せぬエラーが発生しました。" & vbCrLf & _
"エラー番号: " & Err.Number & vbCrLf & _
"内容: " & Err.Description, vbCritical, "致命的エラー"
Resume CleanUp
End Sub4. アーキテクトの視点：陥りやすい「落とし穴」と回避策
このコードを動かしてみて、「あれ？」と思うことがあるかもしれません。プロの現場では、以下の3点に細心の注意を払います。
① ShapeSheet（シェイプシート）の遺失
単に見た目をコピーするだけなら上記コードで十分ですが、もしそのシェイプに「複雑な計算式（ShapeSheet）」や「カスタムプロパティ」が埋め込まれていた場合、マスター化した際にそれらが正しく引き継がれるかを確認する必要があります。
`Masters.Add` メソッドは、シェイプの構造を強力にコピーしますが、一部の動的な挙動は、マスター化のプロセスで再検証が必要です。
② ファイルのロック（Lifecycle Management）
`stencilDoc.SaveAs` を行った後、そのドキュメントは開いたままになります。大量のステンシルを自動生成するループ処理を書く場合、`stencilDoc.Close` を忘れると、メモリを食いつぶし、ファイルが「使用中」でロックされてしまうという悪夢に襲われます。
必ず `CleanUp` セクションでオブジェクトを解放する癖をつけてください。
③ ユーザー体験（UX）の欠如
上記のコードでは保存先をデスクトップに固定していますが、実務用のツールにするなら `Application.FileDialog(msoFileDialogSaveAs)` を使い、ユーザーに保存場所を選ばせるのが「一流の仕事」です。
5. 次のステップへ：ここをクリアすれば、基本はバッチリ
お疲れ様でした。あなたは今、Visio VBAにおける「資産の自動管理」という、極めて高度な領域に足を踏み入れました。
「マクロの記録」は、いわば「既にある道」をなぞるだけの作業です。
しかし、今回学んだように「オブジェクトを生成し、その構造を操作し、ファイルとして永続化させる」というフローを理解することは、「道そのものを作る」能力を手に入れたことを意味します。
ここをクリアすれば、Visio VBAの基本はバッチリですよ。
次は、作成したマスターシェイプに対して、VBAから動的に「カスタムプロパティ」を注入する技術に挑戦してみてください。それが、さらに高度な「自動設計システム」への鍵となります。
また次のコードでお会いしましょう。Happy Coding!
