Visio VBAを掌握する極限の知見：起動時に「理想の作業環境」を自動構築する
「マクロの記録」ボタンを押し、生成された長いコードを眺めては「これ、どういう意味なんだろう？」と立ち止まってしまう。そんな経験はありませんか？
もしあなたが今、その段階にいるのなら、おめでとうございます。あなたは「単なる操作の記録」から、「システムを設計するエンジニア」への脱皮を始めた瞬間です。
今日のテーマは、「Visioを立ち上げた瞬間、あらかじめ決まったステンシル（図形セット）が自動的にロードされている状態を作る」ことです。
これは単なる時短テクニックではありません。「ユーザーが何もしなくても、常に正しいツールが揃った、ミスが起きようのない標準化された環境を提供する」という、業務自動化における極めて重要な設計思想に基づいています。
さあ、一緒に「プロの自動化」への第一歩を踏み出しましょう。
1. 概念の理解：なぜ「スタートアップ」が必要なのか？
通常、VBAは「特定のファイル」を開いた時に動くように作ります。しかし、今回の目的は「Visioというアプリケーションそのもの」の挙動を変えることです。
Visioには、起動時に自動的に読み込まれる「Startup（スタートアップ）フォルダ」という仕組みが存在します。ここに特定のテンプレート（.vst）やステンシル（.vssx）を配置しておくと、Visioは起動時にそれらを「自身の構成要素」として取り込みます。
この「自動で読み込まれるファイル」の中に、「開いたらこのステンシルも一緒にロードせよ」という命令（VBA）を仕込んでおく。これが、今回のアーキテクチャの全体像です。
2. 環境構築：コマンドセンター（Startupフォルダ）を特定する
まずは、魔法のファイルを置く場所を特定しましょう。Windowsの標準的なパスは以下の通りです。
パスの探し方：
1. `Win + R` キーを押し、「ファイル名を指定して実行」を開きます。
2. `%AppData%\Microsoft\Visio\Startup` と入力してEnterを押してください。
ここに、私たちが作成する「自動起動用ファイル」を格納します。
3. 実装：ステンシルを自動ロードする黄金のコード
では、実際にコードを書いていきましょう。ここでは、「特定のステンシルが既に開いている場合は二重に開かない」という、プロの現場で必須となる「堅牢性（エラーへの強さ）」を組み込んだコードを提示します。
手順
1. 新規のVisioファイルを作成します。
2. `Alt + F11` を押してVBAエディタを開きます。
3. 左側のプロジェクトエクスプローラーで `ThisDocument` をダブルクリックして開きます。
4. 以下のコードを貼り付けてください。
Option Explicit
' =================================================================
' プロシージャ名: Document_Open
' 概要: このファイル（テンプレート/ステンシル）が開かれた際、
' 指定した特定のステンシルを自動的にロードする。
' =================================================================
Private Sub Document_Open()
' --- 設定領域 ---
' ロードしたいステンシルのフルパスを指定してください
' ※ファイルパスはご自身の環境に合わせて書き換えてください
Const TARGET_STENCIL_PATH As String = "C:\Users\YourName\Documents\MyCustomStencil.vssx"
' ----------------
Dim vsoApplication As Visio.Application
Dim vsoStencil As Visio.Document
Dim isAlreadyOpen As Boolean
Set vsoApplication = Visio.Application
isAlreadyOpen = False
' 1. 【防御策】既にそのステンシルが開いていないかチェックする
' 同じものを何度も開こうとするとエラーになるため、このチェックは必須です。
Dim doc As Visio.Document
For Each doc In vsoApplication.Documents
' ファイル名（またはパス）を比較
If LCase(doc.FullName) = LCase(TARGET_STENCIL_PATH) Then
isAlreadyOpen = True
Exit For
End If
Next doc
' 2. 【実行】開いていなければロードする
If Not isAlreadyOpen Then
On Error GoTo ErrorHandler
' ステンシルを追加（AddStencilメソッドを使用）
' これにより、ユーザーが手動で開く手間をゼロにします
vsoApplication.Documents.AddStencil TARGET_STENCIL_PATH
Debug.Print "Success: " & TARGET_STENCIL_PATH & " をロードしました。"
Else
Debug.Print "Info: ステンシルは既にロード済みです。"
End If
Exit Sub
ErrorHandler:
' 3. 【エラーハンドリング】パスが間違っている場合やファイルが壊れている場合
MsgBox "ステンシルの自動ロードに失敗しました。" & vbCrLf & _
"パスを確認してください: " & TARGET_STENCIL_PATH, vbCritical, "自動化エラー"
Debug.Print "Error: " & Err.Description
End Subコードの解説：ここが「プロ」のポイント
- `Option Explicit`:
変数の宣言を強制する魔法の言葉です。これがないと、タイポ（打ち間違い）によるバグを見逃してしまいます。エンジニアのたしなみです。
- `For Each doc In vsoApplication.Documents`:
「今、何が開いているか？」を一つずつ確認しています。これを怠ると、Visioを起動するたびに同じステンシルが何重にも重なって開かれるという、ユーザーにとってストレスフルな挙動を招いてしまいます。
- `On Error GoTo ErrorHandler`:
もしファイルパスが間違っていたら？ もしファイルが削除されていたら？ プログラムは即座にクラッシュします。それを防ぎ、「何が起きたか」を優しくユーザーに伝えるのが、このエラーハンドラーの役割です。
4. 仕上げ：Startupフォルダへの設置
コードが書けたら、最後の大事な儀式です。
1. 作成したファイルを 「Visio マクロ有効テンプレート (.vstm)」 または 「Visio マクロ有効ステンシル (.vssm)」 として保存します。
2. 保存したファイルを、最初に確認した `%AppData%\Microsoft\Visio\Startup` フォルダへ移動させます。
3. Visioを一度完全に終了し、再度起動してください。
おめでとうございます！ あなたが指定したステンシルが、まるで最初からそこにあったかのように、Visioの横に並んでいるはずです。
5. 陥りやすい落とし穴（エンジニアの備忘録）
ここまで辿り着いたあなたへ、現場でよく遭遇するトラブルを共有しておきます。
- パスの書き間違い:
`\`（バックスラッシュ/円マーク）が抜けていたり、ユーザー名が違っていたりしませんか？ コード内の `TARGET_STENCIL_PATH` は必ず「絶対パス」で記述してください。
- セキュリティ設定:
Visioの「セキュリティセンター」の設定で、マクロが無効化されていると動きません。「すべてのマクロを有効にする（推奨はしませんが、テスト時は便利）」か、「デジタル署名されたマクロを許可する」設定になっているか確認しましょう。
- オブジェクトのライフサイクル:
`Application.Documents.AddStencil` は、新しい `Document` オブジェクトを生成します。もし、このステンシル自体を操作したい場合は、戻り値を変数に格納して管理する必要があります。
最後に：次は「設計」のフェーズへ
これで、あなたは「Visioを起動するたびに環境を整える」という、自動化の基盤を手に入れました。
マクロの記録から脱却し、このように「アプリケーションの挙動をコントロールする」という視点を持てたなら、あなたのエンジニアとしての視界は一気に開けたはずです。
次は、ロードしたステンシル内の特定のシェイプを、自動で配置したり、色を変えたりするロジックに挑戦してみてください。そこには、さらに深く、面白い世界が待っていますよ。
「一歩ずつ、確実に。コードの裏側にある思想を大切に。」
また次の記事でお会いしましょう。応援しています！
