Visio VBAの深淵：PageSheetとDocumentSheetで「図面の挙動」を支配せよ
多くのエンジニアがVisio VBAで挫折するのは、Shape（図形）の操作に終始し、Visioの「メタデータ層」を無視するからだ。
図形ひとつひとつの座標をいじり回すのは、庭の草むしりに過ぎない。真の自動化エンジニアは、PageSheet（ページ設定）とDocumentSheet（ドキュメント設定）という「図面のOS」を掌握し、キャンバスそのものの挙動をコードで制御する。
今回は、この不可視の領域を叩き、堅牢な自動化を実現するためのアーキテクチャを伝授する。
—
1. なぜ「ShapeSheet」だけでは不十分なのか
Visioにおいて、すべてのオブジェクトは「ShapeSheet」というスプレッドシート形式のデータ構造を持つ。しかし、以下の二つは別格だ。
- PageSheet: ページのサイズ、背景、グリッド設定、印刷設定などを司る。
- DocumentSheet: テンプレートの定義、図面全体の単位系、マクロの有効化フラグなどを司る。
これらは `ActivePage.PageSheet` や `ActiveDocument.DocumentSheet` というプロパティ経由でアクセスする。図形を個別に動かす前に、この「土台」をVBAで叩くことが、バグを生まない自動化の鉄則だ。
—
2. 実践：ページ単位のカスタム設定を掌握する
例えば、大量の図面を生成する際、ページごとに「印刷時の縮尺」や「グリッドの細かさ」を動的に制御したいケースがあるだろう。手動で設定してはならない。以下のコードは、ページ単位で設定を強制適用するテンプレートだ。
‘ ページの設定をプログラムから強制的に最適化するプロシージャ
Public Sub OptimizePageSettings(ByVal targetPage As Visio.Page)
Dim pgSheet As Visio.Shape
Set pgSheet = targetPage.PageSheet
‘ エラーハンドリング：保護された設定や、型違いのセルへのアクセスを防ぐ
On Error Resume Next
‘ ページ単位でグリッドを強制的に非表示にし、スナップを有効にする
‘ Cellの存在確認なしに書き込むのはNG。存在しない可能性を考慮した設計を。
With pgSheet
.Cells(“GridSizeX”).Formula = “0.5 in”
.Cells(“GridSizeY”).Formula = “0.5 in”
.Cells(“SnapEnabled”).Formula = “1”
End With
On Error GoTo 0
End Sub
【極限の知見】なぜ `Formula` を使うのか
`Value` ではなく `Formula` を使うこと。Visio内部では数式が評価されて値を生成している。値を直接書き込むと、Visioの「数式連動による自動計算」を破壊し、予期せぬ挙動（数式が固定値化して更新されなくなる等）を引き起こす。自動化の目的は、Visioのエンジンを殺すことではなく、エンジンを利用することにある。
—
3. DocumentSheetによる「プロジェクトの標準化」
ドキュメント全体の設定を管理する `DocumentSheet` は、大規模な開発で特に重要だ。全図面で共通の「隠しメタデータ」を保持させたり、単位系を統一したりする際に使う。
‘ ドキュメント全体の設定を管理するアーキテクチャ例
Public Sub ApplyStandardDocumentConfig(ByVal doc As Visio.Document)
Dim docSheet As Visio.Shape
Set docSheet = doc.DocumentSheet
‘ ユーザー定義セル（User-defined Cells）を作成・設定する
‘ これにより、図面ファイル自体に「バージョン管理情報」を埋め込める
If Not docSheet.CellExists(“User.AppVersion”, False) Then
docSheet.AddNamedRow visSectionUser, “AppVersion”, visTagDefault
End If
docSheet.Cells(“User.AppVersion”).Formula = Chr(34) & “1.0.4” & Chr(34)
End Sub
プロダクション環境での注意点
- データベース連携: `DocumentSheet` にデータベースの主キーを埋め込んでおけば、Visioファイル単体から「どのDBレコードに基づいているか」を逆引きできる。これは保守において非常に強力な武器になる。
- リソース管理: `AddNamedRow` は一度実行すれば永続化される。二重作成を避けるために `CellExists` でチェックするロジックは必須だ。
—
4. 堅牢な設計のために：アーキテクトからの助言
1. 「触るな」の原則: ユーザーが手動でいじりそうな設定（レイヤー設定や色など）をPageSheetで強制上書きし続けると、ユーザー体験を損なう。設定は「初期生成時」か「明示的な更新ボタン押下時」に限定せよ。
2. 型安全性の確保: `CellExists` によるガード節は、コードの行数は増えるが、将来的な「セルが存在しません」という実行時エラーを撲滅する。これはデバッグコストを下げるための「投資」だ。
3. イベント駆動の罠: `DocumentSheet` の変更は、`DocumentChanged` イベントを過剰に発火させる可能性がある。イベントループ（無限ループ）に入らないよう、操作前後のフラグ管理を徹底すること。
結びに代えて
Visio VBAを単なるマクロの集合体と捉えてはいけない。あなたはVisioというアプリケーションの「内部設定」を書き換えるプログラマーだ。PageSheetとDocumentSheetを操ることで、あなたはVisioの挙動そのものを設計する立場に立てる。
ここにある知見を武器に、誰がメンテナンスしても壊れない、強固な自動化基盤を構築してほしい。健闘を祈る。
