【実務直結】Visioを「ただの図」から「検索可能な資産」へ。ページプロパティ一括更新の極意
こんにちは。現場の自動化を支えるアーキテクトです。
Visioを使って複雑なネットワーク構成図や業務フロー図を作成していると、ある時、大きな壁にぶつかることがあります。それは、「作った図面は増え続けるが、どれが最新のどのプロジェクトのものか、検索しても全く見つからない」という問題です。
多くの人は、ファイル名に「プロジェクト名_ver2_最終.vsdx」といった名前を付けて凌ごうとします。しかし、これはプロフェッショナルのやり方ではありません。
真のドキュメント管理とは、「メタデータ（属性情報）」を正しく埋め込むことです。
Visioには、ファイル全体に付与する「ドキュメントプロパティ」と、各ページごとに設定できる「ページプロパティ」が存在します。これらをVBAで一括制御できれば、あなたのVisioファイルは、ドキュメント管理システム（DMS）から瞬時に検索可能な「生きた資産」へと進化します。
今日は、マクロの記録から一歩踏み出し、「オブジェクトの構造」を理解して、プロパティを一括更新する術を伝授しましょう。ここをクリアすれば、Visio VBAの基本はバッチリですよ。
1. 概念の整理：ドキュメントとページの「階層」を理解する
コードを書く前に、必ず「地図」を持ってください。VBAにおいて、対象となるオブジェクトの階層構造を理解することは、エラーを防ぐ最大の防御策です。
Visioのプロパティは、大きく分けて2つの階層に存在します。
1. Documentレベル（ファイル全体）
- ファイルそのものが持つ情報です（タイトル、件名、作成者、キーワードなど）。
- `ActiveDocument.BuiltinDocumentProperties` というコレクションを通じてアクセスします。
2. Pageレベル（各ページごと）
- 「ページ1」「ページ2」といった個別のシートが持つ情報です。
- `Page.Properties` というコレクションを通じてアクセスします。
「マクロの記録」を使っていると、これらが混ざってしまい、後で修正が困難なコードになりがちです。私たちは、「今、私はどの階層の、どのプロパティを操作しているのか」を常に意識してコードを組み立てます。
2. 実践：プロパティを一括更新する黄金のテンプレート
それでは、実際に使えるコードを見ていきましょう。
単に「値を書き換える」だけでなく、実務でそのまま使えるよう、「エラーハンドリング」と「ユーザーへの通知」を組み込んだプロフェッショナルな構成にしています。
以下のコードを、VisioのVBAエディタ（Alt + F11）の標準モジュールに貼り付けてみてください。
Option Explicit
''' <summary>
''' ドキュメントと全ページのプロパティを一括更新するメインルーチン
''' </summary>
Sub UpdateDocumentAndPageMetadata()
Dim doc As Visio.Document
Dim pg As Visio.Page
Dim targetTitle As String
Dim targetSubject As String
' --- 設定エリア ---
' 本来はダイアログやセルから取得するのが理想ですが、
' 今回は学習用に直接指定します。
targetTitle = "【重要】次世代基幹システム ネットワーク構成図"
targetSubject = "プロジェクトID: PRJ-2023-001"
' ------------------
Set doc = ActiveDocument
' 1. エラーハンドリングの開始
' 予期せぬエラー（読み取り専用ファイルなど）で止まらないようにします
On Error GoTo ErrorHandler
' 画面更新を停止（パフォーマンス向上とチラつき防止）
' ※VisioではExcelほど劇的な効果はないですが、作法として重要です
Application.ScreenUpdating = False
' ---------------------------------------------------------
' STEP 1: ドキュメント（ファイル全体）のプロパティ更新
' ---------------------------------------------------------
Debug.Print "Updating Document Properties..."
' BuiltinDocumentPropertiesを使用して、標準的なプロパティにアクセス
' msoPropertyTitle (タイトル), msoPropertySubject (件名) を使用
doc.BuiltinDocumentProperties(msoPropertyTitle).Value = targetTitle
doc.BuiltinDocumentProperties(msoPropertySubject).Value = targetSubject
' ---------------------------------------------------------
' STEP 2: 全ページのプロパティ更新（ループ処理）
' ---------------------------------------------------------
Debug.Print "Updating All Pages..."
For Each pg In doc.Pages
' 各ページのプロパティにアクセス
' ページプロパティは、PageオブジェクトのPropertiesコレクションを使用します
' ※注意: ページにはBuiltinプロパティという概念がドキュメントほど明確ではないため、
' 一般的には「Title」などの名前でアクセスします。
On Error Resume Next ' 特定のページにプロパティがない場合のエラーをスキップ
pg.Properties("Title").Value = targetTitle
pg.Properties("Subject").Value = targetSubject
On Error GoTo ErrorHandler ' エラーハンドリングを元に戻す
Debug.Print " - Page: " & pg.Name & " updated."
Next pg
' ---------------------------------------------------------
' 完了処理
' ---------------------------------------------------------
Application.ScreenUpdating = True
MsgBox "メタデータの更新が完了しました！" & vbCrLf & _
"タイトル: " & targetTitle, vbInformation, "成功"
Exit Sub
ErrorHandler:
' エラーが発生した場合の処理
Application.ScreenUpdating = True
MsgBox "エラーが発生しました。" & vbCrLf & _
"番号: " & Err.Number & vbCrLf & _
"内容: " & Err.Description, vbCritical, "エラー"
End Sub3. アーキテクトの視点：陥りやすい「3つの罠」
このコードを動かす際、あるいは自分で拡張する際に、初心者が必ずと言っていいほどハマるポイントを解説します。ここを知っているだけで、あなたのデバッグ時間は激減します。
① 「読み取り専用」の罠
ドキュメントが「読み取り専用」として開かれている場合、`BuiltinDocumentProperties` への書き込みはエラーになります。実務用のツールを作るなら、最初に `If doc.ReadOnly Then` でチェックを入れるのが、一流の設計です。
② プロパティ名の「タイポ（打ち間違い）」
`pg.Properties(“Title”)` の `”Title”` という文字列は、一文字でも間違えると、VBAは「そんなプロパティは存在しません」と怒ります。
これを防ぐために、プロフェッショナルはプロパティ名を定数（`Const`）として定義し、コード内で使い回します。
③ オブジェクトの生存期間（ライフサイクル）
`Set doc = ActiveDocument` と書いたとき、`doc` という変数にはドキュメントへの「参照」が格納されます。もし、コードの途中で `Documents.Close` を実行してファイル自体を閉じてしまうと、`doc` 変数は「中身のない幽霊（Nothing）」を指すことになり、その後の操作ですべてクラッシュします。
「操作対象を消す前に、操作を終える」。これは基本中の基本です。
4. まとめ：次なるステップへ
お疲れ様でした！
今回学んだことは、単に「文字を書き換える方法」ではありません。
- オブジェクトの階層構造（Document vs Page）を理解すること
- ループ処理（For Each）を使って、大量のデータを一括制御すること
- エラーハンドリングを組み込み、堅牢なコードにすること
これらは、Visio VBAに限らず、あらゆる自動化エンジニアリングの根幹をなすスキルです。
「マクロの記録」は、あくまで「動作の断片」を教えてくれるガイドに過ぎません。今回のように、「構造」を理解して「意図」を持って書くことができれば、あなたはもう、ただのユーザーではなく、エンジニアの入り口に立っています。
さあ、このコードをベースに、次は「Excelのリストからプロパティを読み取って、Visioに流し込む」といった、より高度な連携に挑戦してみてください。応援していますよ！
