Visio VBAを掌握する極限の知見：`Document.HeaderFooter`で図面メタデータを完全統制する
図面管理において「誰が、いつ、どの機密区分で作成したか」の担保は、製造業からITインフラの設計図に至るまで、コンプライアンス上の絶対要件だ。しかし、これを手動運用に頼っている現場がいかに多いことか。設計者が変わるたびにヘッダーのフォントが崩れ、改訂日が抜け、PDF出力後に「機密」のスタンプを忘れている――そんな泥臭いミスを、プロのエンジニアが許すはずがない。
Visio VBAにおける `Document.HeaderFooter` オブジェクトは、このドキュメント全体のメタデータを一網打尽にし、全ページへ強制同期させるための最強の武器である。今回は、単なるプロパティの解説にとどまらず、実務の現場でバグを生まない堅牢な設計と、外部データ連携を見据えたプロダクションコードを授けよう。
—
1. Visioヘッダー・フッター制御の「深淵」と設計思想
多くの初学者が陥る罠が、「各ページの `Page.PageSheet` を直接いじってテキストボックスを配置しようとする」アプローチだ。これは最悪の悪手である。
ページごとに図形を配置する方法では、ページ追加・削除のたびにマクロを走らせる必要があり、Zオーダー（重なり順）の競合や、図面領域（Page Width/Height）変更時の座標ズレという地獄を見る。
プロの正解は `Document.HeaderFooter` を使うことだ。
Visioのバックグラウンドエンジンに直接ヘッダー・フッターの描画命令を流し込むため、ページ数が増減しようとも、レイアウト変更を行おうとも、システム側が完璧に同期・描画してくれる。パフォーマンスの重みもゼロに等しい。
セキュリティとメタデータの標準化
エンタープライズ環境では、以下の3点を自動挿入することが求められる。
1. 作成者 / 担当組織: `Document.Creator` や外部DBから取得した文字列
2. 改訂日: ファイルの最終更新日、または明示的なバージョン日付
3. 機密区分: 社外秘（Confidential）、社内限定などのセキュリティレーベル
これらをVBAで一元管理することで、「マクロを実行するだけで、全ページのヘッダー・フッターが社内標準に準拠する」状態を作り上げる。
—
2. 【実践】堅牢なプロダクションコード
以下のコードは、単にプロパティに値を代入するだけではない。エラーハンドリング、ドキュメントの変更検知、そして外部データ（今回はダミーとして設定ファイルや環境変数に見立てたロジック）との連携を想定した、実戦投入可能なモジュールだ。
Option Explicit
‘ ==============================================================================
‘ 処理名 : ApplyEnterpriseHeaderFooter
‘ 概要 : アクティブドキュメントのヘッダー・フッターに社内標準のメタデータを強制適用する
‘ 備考 : 冗長なエラーハンドリングとオブジェクトのライフサイクル管理を実装
‘ ==============================================================================
Public Sub ApplyEnterpriseHeaderFooter()
‘ 1. 宣言とイニシャライゼーション
Dim targetDoc As Visio.Document
Set targetDoc = ActiveDocument
‘ ドキュメントが開かれていない、またはステンシル等の場合は処理を中断
If targetDoc Is Nothing Then
MsgBox “処理対象のドキュメントが存在しません。”, vbCritical, “致命的エラー”
Exit Sub
End If
‘ 2. 外部データ（またはドキュメントプロパティ）からのメタデータ取得
‘ 実務ではここでDBやINIファイル、Excelから最新の改訂情報を取得する
Dim strAuthor As String
Dim strRevisionDate As String
Dim strSecurityClass As String
strAuthor = GetCorporateAuthor(targetDoc)
strRevisionDate = Format(Date, “YYYY/MM/DD”) ‘ またはファイルの更新日時
strSecurityClass = “【社外秘 / CONFIDENTIAL】”
‘ 3. 画面描画のロック（パフォーマンス劇的向上のおまじない）
targetDoc.Application.ScreenUpdating = False
On Error GoTo ErrorHandler
‘ 4. HeaderFooterオブジェクトの制御
‘ VisioのHeaderFooterは Left, Center, Right の Header / Footer が用意されている
With targetDoc.HeaderFooter
‘ — ヘッダー設定 —
‘ 左側：機密区分（赤字や強調を想定したプレフィックス）
.HeaderLeft = strSecurityClass
‘ 中央：空白（必要に応じてドキュメント名などを配置）
.HeaderCenter = “”
‘ 右側：作成者
.HeaderLeftMargin = 0.25 ‘ マージン調整（インチ単位）
.HeaderRight = “Author: ” & strAuthor
‘ — フッター設定 —
‘ 左側：ファイル名
.FooterLeft = “File: ” & targetDoc.Name
‘ 中央：ページ番号（Visioの予約語マクロを使用）
‘ ※ &p はページ番号、&P は総ページ数を表すVisio組み込みコード
.FooterCenter = “Page &p of &P”
‘ 右側：改訂日
.FooterRight = “Rev. Date: ” & strRevisionDate
‘ フォント設定の強制（全社統一のフォントファミリを指定）
.MarginFont.Name = “Meiryo UI”
.MarginFont.Size = 8.5 ‘ pt
End With
‘ 5. 変更の確定と画面描画の復元
targetDoc.Application.ScreenUpdating = True
MsgBox “ヘッダー・フッターのメタデータ適用が完了しました。”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常系のクリーンアップ
targetDoc.Application.ScreenUpdating = True
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “実行時エラー”
End Sub
‘ ==============================================================================
‘ 補助関数 : 組織標準の作成者情報を取得する
‘ ==============================================================================
Private Function GetCorporateAuthor(ByVal doc As Visio.Document) As String
Dim author As String
author = doc.BuiltinDocumentProperties(VisBuiltInProperty.visPropAuthor)
‘ プロパティが空の場合は、Windowsのログオンユーザー名をフォールバックとする
If Trim(author) = “” Then
author = Environ$(“USERNAME”)
End If
GetCorporateAuthor = author
End Function
—
3. コードの急所：プロが解説するアーキテクチャのポイント
なぜこのコードが「堅牢」と言えるのか。エンジニアリングの観点から3つのキーストロークを解説する。
① `ScreenUpdating = False` による描画コストの排除
Visioはオブジェクトのプロパティ（特にレイアウトやドキュメント全体に関わるもの）を変更するたびに、内部で画面の再描画を試みる。これを怠ると、ページ数が多いドキュメント（50ページ超のネットワーク構成図など）を処理する際に激しいフリーズを引き起こす。
コードの冒頭で描画を止め、処理が終わった瞬間に復元する。この一手間がプロとアマの境界線だ。
② Visio組み込みマクロ文字列（`&p` / `&P`）の活用
フッター中央に設定している `Page &p of &P` は、ただの文字列ではない。Visioがレンダリング時に動的に「現在のページ番号 / 総ページ数」に置き換える予約語である。
これを自前のVBAループで各ページのフッターにハードコーディングしようとすると、ページが追加された瞬間に破綻する。Visioのネイティブな仕組みに委ねるのが最もバグを生まない。
③ データベース・外部ファイル連携への拡張性
`GetCorporateAuthor` 関数に注目してほしい。今回は `BuiltinDocumentProperties` と環境変数（`Environ`）をフォールバックとして使っているが、実務ではここに「社内Active Directory連携」や「PLM/PDMシステムからのメタデータ取得API呼び出し」を組み込む。
ヘッダー・フッターの値をハードコーディングするのではなく、外部の信頼できるシングル・ソース・オブ・トゥルース（SSOT）から動的に引っ張ってくる設計にすることで、組織変更や担当者変更にも1秒で追従できる。
—
4. 現場へ導入する際の実践的アドバイス
このVBAマクロを単体の `.vsdm` ファイルに閉じ込めておくのはもったいない。
全社展開するのであれば、以下のいずれかの形態をとるべきだ。
1. Visioアドイン（COMアドイン / VSTO）化:
すべての新規作成図面の「保存時（BeforeSave）」または「印刷時（BeforePrint）」イベントをフックし、自動的にこのスクリプトを裏でサイレント実行させる。ユーザーに意識させずに社内標準を強制できる。
2. 組織テンプレート（.vstm）への組み込み:
定型フォーマットとなるテンプレートファイルにあらかじめこのマクロを仕込み、リボンUIにカスタムボタンを配置する。
「ルールをマニュアルで縛るな、コードで自動化しろ。」
属人化しやすい図面の品質管理とセキュリティ表記を、この `Document.HeaderFooter` の制御ロジックで完全にハックし、あなたのチームの業務効率を次の次元へと引き上げてほしい。
