Visio VBAの深淵へ：PageSheetとDocumentSheetで図面の「OS」を書き換える
こんにちは。自動化の世界へようこそ。
「マクロの記録」ボタンを押して、生成されたコードを眺めて満足していませんか？ それはまだ、Visioという巨大な氷山の一角を撫でているに過ぎません。
Visioを真に操るということは、「図形（Shape）」の向こう側にある「環境（Sheet）」を支配するということです。今日は、プロのエンジニアが必ず通る、しかし多くの初心者が迷い込む「PageSheet」と「DocumentSheet」の真実について紐解いていきましょう。
—
1. 「Sheet」とは何か？：Visioの隠れた設定層
Visioのすべてのオブジェクト（ページ、ドキュメント、図形）には、実は「ShapeSheet」という強力なメタデータ領域が隠されています。
- PageSheet: ページ全体の振る舞い（縮尺、ルーラー、グリッド設定、印刷の向きなど）を司る「司令塔」。
- DocumentSheet: ドキュメント全体の振る舞い（スタイルの定義、独自のカスタムプロパティ、図面設定）を管理する「憲法」。
これらをVBAで操作することは、図面の設定画面をポチポチ操作するのとは次元が違います。「環境そのものをコードで定義する」という、堅牢な自動化の第一歩なのです。
—
2. 実践：VBAでPageSheetを操る（ページ単位の制御）
例えば、「特定のページだけグリッドの挙動を変えたい」あるいは「ページ単位で印刷設定を強制的に固定したい」といったケース。これはPageSheetの出番です。
コード例：アクティブページのグリッド間隔を制御する
Sub CustomizeActivePageSettings()
Dim pg As Visio.Page
Dim shpPage As Visio.Shape
‘ アクティブページを取得
Set pg = ActivePage
‘ PageSheet（ページの設定情報）をShapeオブジェクトとして取得
‘ ここが最大のポイントです！ページ設定は「Shape」としてアクセスします
Set shpPage = pg.PageSheet
‘ グリッドの細かさ（X方向）をセル単位で書き換える
‘ CellsUは「単位に依存しない名前（Universal Name）」を使うのが鉄則
shpPage.CellsU(“GridSpacingX”).Formula = “0.5 in”
‘ ページ名を変更するついでに、メタデータもいじってみる
pg.Name = “AutoGenerated_Page”
Debug.Print “ページ設定の書き換え完了：” & pg.Name
End Sub
ここで陥りやすい罠：`Cells` vs `CellsU`
初心者が必ずハマるのが `Cells` と `CellsU` の使い分けです。
- Cells: Windowsの言語設定に依存する（日本語版なら「グリッド間隔X」と書かなければならない）。
- CellsU: 世界共通の内部名（GridSpacingX）。エンジニアなら迷わず `CellsU` を使いましょう。 これを使わないと、他のPCで動かした瞬間にコードが死にます。
—
3. 実践：DocumentSheetで図面全体を支配する
DocumentSheetは、そのファイル全体に適用される「大域的な設定」です。図面を開いた瞬間の挙動や、テンプレート的な制約を設ける際に重宝します。
コード例：ドキュメント全体の保護設定
Sub LockDocumentSettings()
Dim doc As Visio.Document
Dim shpDoc As Visio.Shape
Set doc = ThisDocument
‘ DocumentSheetを取得
Set shpDoc = doc.DocumentSheet
‘ ドキュメントのスタイルや設定を保護する（例：ロック）
‘ セルが存在しない場合もあるため、エラーハンドリングは必須
On Error Resume Next
shpDoc.CellsU(“LockStyleSheet”).Formula = “1”
On Error GoTo 0
MsgBox “ドキュメントのスタイル設定を保護しました。”
End Sub
—
4. なぜ「PageSheet」を使う必要があるのか？
「設定画面から変えればいいじゃないか」という声が聞こえてきそうですね。しかし、想像してください。
- 100ページある図面の印刷設定を統一しなければならない時
- 特定の条件を満たすページだけ、背景色やグリッドを自動変更したい時
手動で行えば数時間の作業も、この「Sheet」を直接叩くロジックを組めば、ボタン一つで、しかもヒューマンエラーゼロで完了します。これが、自動化エンジニアが持つ「時間」という武器の正体です。
—
5. 伝説のアーキテクトからのアドバイス
最後に、これからVisio VBAを深掘りするあなたへ、3つの心得を授けます。
1. ShapeSheetウィンドウを表示せよ: 開発タブにある「ShapeSheetの表示」をONにしてください。コードで触っている `CellsU(“…”)` が、GUIのどこに対応しているかが見えるようになると、成長速度が10倍になります。
2. エラーハンドリングを怠るな: `CellsU` は存在しない名前を指定すると即座にエラーになります。`If shp.CellExistsU(“名前”, 0) Then` を使って、セルが存在するか確認してから書き込むのがプロの流儀です。
3. 「マクロの記録」は答えではない: マクロの記録は、あくまで「どのオブジェクトを触ればいいかのヒント」に過ぎません。そこからコードを洗練させ、ループ処理や条件分岐を組み込むのが、本当のエンジニアリングです。
Visioのオブジェクトモデルを掌握すれば、あなたは図面を描くのではなく、「図面が自動生成される仕組み」を作るアーキテクトになれます。
迷ったらまたここへ戻ってきてください。次はさらに深い「イベント駆動型」の世界へご案内しましょう。応援していますよ。
