Visio VBAの真髄：レジストリを操り、カスタムステンシルを「常駐」させる技術
こんにちは。現場の設計から自動化基盤の構築まで、数々の複雑なシステムを設計してきたチーフアーキテクトです。
「マクロの記録」で書かれたコードを、ただコピペして動かしている段階……。もしあなたが今そこにいるなら、まずは自分を褒めてあげてください。それは自動化への第一歩です。しかし、真のエンジニアリングとは「動くものを作る」ことではなく、「ユーザーの環境に左右されず、美しく、堅牢な仕組みを構築する」ことにあると考えています。
今日のテーマは、中級者への登竜門。「Visioのステンシル検索パスを、VBAからレジストリ操作によって自動登録する」という手法です。
「ステンシルを開くコードなんて、`Application.OpenStencil` で十分じゃないですか？」
そう思ったあなた。その考えは正しい。しかし、それは「その時だけ」開くコードです。私たちが作りたいのは、「ユーザーがVisioを起動した瞬間、すでに準備が整っている環境」です。
さあ、レジストリという「OSの心臓部」に触れる、少し刺激的で、とても実用的な旅へ出かけましょう。
1. なぜ「検索パス」の追加が必要なのか？
通常、Visioで独自のステンシル（.vssxファイル）を使いたい場合、以下のいずれかの操作が必要です。
1. 毎回、VBAでファイルパスを指定して開く。
2. ユーザーが手動で「ファイル」→「オプション」からパスを追加する。
しかし、企業内で数百人のユーザーに展開するツールを想像してください。「各自のPCでパスを通しておいてください」なんて言えるでしょうか？ 答えはNOです。
「ツールを実行した瞬間に、Visioの設定そのものを書き換えて、専用のステンシルがいつでも探せる状態にする」
これができれば、ユーザーは何も意識することなく、あなたの作ったカスタムシェイプを使い始めることができます。これが「プロの仕事」です。
2. アーキテクトの視点：レジストリという領域
Visioの設定（検索パス、表示設定、ユーザー情報など）は、Windowsのレジストリというデータベースに格納されています。
ステンシルの検索パスは、一般的に以下の場所に格納されています（バージョンにより多少異なりますが、基本構造は同じです）。
`HKEY_CURRENT_USER\Software\Microsoft\Visio\Settings\StencilSearchPaths`
ここを直接書き換えるということは、Visioの「脳」に直接命令を下すことを意味します。非常に強力ですが、一歩間違えると設定が壊れるリスクもあります。だからこそ、「事前のチェック」と「エラーハンドリング」が不可欠なのです。
3. 実装コード：ステンシルパス自動登録エンジン
それでは、実際に使えるコードを見ていきましょう。単なる書き込みではなく、「既に登録されていないか？」「パスは実在するか？」を検証する、堅牢なロジックを組み込んでいます。
Option Explicit
''' <summary>
''' 指定したフォルダをVisioのステンシル検索パスに自動追加する
''' </summary>
''' <param name="newPath">追加したいフォルダのフルパス</param>
''' <returns>成功すればTrue、失敗すればFalse</returns>
Public Function AddStencilSearchPath(ByVal newPath As String) As Boolean
Dim shell As Object
Dim regKey As String
Dim currentPaths As String
Dim visioVersion As String
On Error GoTo ErrorHandler
' 1. パスの妥当性チェック（ここがエンジニアの誠実さです）
If Dir(newPath, vbDirectory) = "" Then
MsgBox "指定されたフォルダが存在しません: " & newPath, vbCritical
AddStencilSearchPath = False
Exit Function
End If
' 2. WScript.Shell オブジェクトの生成（レジストリ操作の鍵）
Set shell = CreateObject("WScript.Shell")
' 3. Visioのバージョンを取得（例: 16.0）
' Application.Version は "16.0" のような文字列を返します
visioVersion = Application.Version
' 4. レジストリキーの構築
' 注意: 構造は環境により微差があるため、自身の環境で確認を推奨します
regKey = "HKEY_CURRENT_USER\Software\Microsoft\Visio\Settings\StencilSearchPaths"
' 5. 現在登録されているパスを読み取る
' 読み取れない場合（初回など）は空文字として扱う
On Error Resume Next
currentPaths = shell.RegRead(regKey)
On Error GoTo ErrorHandler
' 6. 重複チェックと書き込み
' すでにパスが含まれている場合は、何もしない（二重登録を防ぐ）
If InStr(1, currentPaths, newPath, vbTextCompare) > 0 Then
Debug.Print "既にパスが登録されています: " & newPath
AddStencilSearchPath = True
Exit Function
End If
' 7. 新しいパスを連結して書き込む
' 既存のパスがある場合はセミコロンで区切る
Dim updatedPaths As String
If currentPaths = "" Then
updatedPaths = newPath
Else
updatedPaths = currentPaths & ";" & newPath
End If
' レジストリに書き込みを実行
shell.RegWrite regKey, updatedPaths, "REG_SZ"
Debug.Print "ステンシルパスを更新しました: " & updatedPaths
AddStencilSearchPath = True
Set shell = Nothing
Exit Function
ErrorHandler:
MsgBox "レジストリ操作中にエラーが発生しました。" & vbCrLf & _
"エラー番号: " & Err.Number & vbCrLf & _
"内容: " & Err.Description, vbCritical
AddStencilSearchPath = False
Set shell = Nothing
End Function
''' <summary>
''' テスト実行用メインルーチン
''' </summary>
Sub Test_AddPath()
Dim targetFolder As String
' あなたのカスタムステンシルが入っているフォルダを指定してください
targetFolder = "C:\MyCustomStencils"
If AddStencilSearchPath(targetFolder) Then
MsgBox "設定完了！次回Visio起動時から、自動的にステンシルが検索対象になります。", vbInformation
Else
MsgBox "設定に失敗しました。管理者権限やパスを確認してください。", vbExclamation
End If
End Sub4. コードの解説と、陥りやすい「落とし穴」
このコードをただコピペするだけでは、あなたはまだ「ユーザー」です。中身を理解して「エンジニア」になりましょう。
① `WScript.Shell` の活用
VBA標準の機能だけではレジストリの深い場所へは届きません。Windowsのシェル機能（`WScript.Shell`）を借りることで、外部環境への干渉が可能になります。
② 重複登録の防止 (`InStr` 関数)
ここが非常に重要です。もし重複チェックをせずに、ボタンを押すたびにパスを追加するコードを書いてしまったら……ユーザーのレジストリは、同じパスで埋め尽くされ、Visioの動作が極端に重くなるでしょう。「冪等性（べきとうせい）」、つまり「何度実行しても同じ結果になる」という性質をコードに持たせることが、プロの作法です。
③ 陥りやすいエラー：権限の問題
レジストリ、特に `HKEY_LOCAL_MACHINE`（PC全体の設定）を操作しようとすると、管理者権限がないためにエラーになります。幸い、今回使用している `HKEY_CURRENT_USER` はユーザー個別の領域なので、通常は問題ありません。しかし、社内ポリシーでレジストリ操作が制限されている環境ではエラーになるため、必ず `On Error GoTo` によるエラーハンドリングが必要です。
5. まとめ：一歩上のステージへ
今回のテクニックを使えば、あなたは「Visioで図面を描くツール」を作っているのではなく、「Visioというアプリケーションの挙動を制御するシステム」を作っていることになります。
1. パスの存在確認（ユーザーへの優しさ）
2. 重複の排除（システムの堅牢性）
3. レジストリ操作（環境への適応力）
これらを意識するだけで、あなたの書くコードの価値は劇的に跳ね上がります。
「ここをクリアすれば、Visio VBAの基本はバッチリですよ」
そう言える日が来るのを、楽しみにしています。もしエラーが出たら、それは成長のチャンスです。レジストリの構造を、もっと深く探求してみてください。
応援していますよ。頑張ってくださいね。
