【Visio VBA極限解説】ActiveWindowを制する者がUI制御を制す：プレゼンテーションモード一括切り替えマクロの設計
こんにちは。業務自動化エンジニアのチーフアーキテクトだ。
Visioを使った図面管理やレビューの現場において、こんなストレスを抱えたことはないだろうか？
「レビュー時は無駄なガイドラインや接続ポイントを消して図面を美しく見せたいが、編集時は当然それらが必要になる。毎回メニューからポチポチと表示切替を行うのは、エンジニアのすることではない」
世の中の入門書やブログ記事は、「ボタンを押したら図形が動く」「マクロの記録で生成したコードをそのまま貼る」といった、お遊戯レベルのコードばかりだ。しかし、実務の現場で求められるのは、「複数ウィンドウが存在するドキュメントコンテキストでも誤作動せず、描画負荷を最小限に抑え、一瞬でUI状態を切り替える堅牢なコード」である。
今回は、`Application.ActiveWindow` プロパティを極限まで使いこなし、グリッド・ルーラー・ガイド・接続ポイントを一括制御する「プレゼンテーションモード切り替えマクロ」の全貌を伝授しよう。
—
1. なぜ「愚直なプロパティ操作」は現場で破綻するのか？
まず、初心者が陥るアンチパターンを見てほしい。
‘ 【非効率なアンチパターンの例】
Sub BadToggle()
ActiveWindow.ShowGrid = False
ActiveWindow.ShowRulers = False
ActiveWindow.ShowGuides = False
ActiveWindow.ShowConnects = False
End Sub
このコードの何が問題か？ プロジェクトの規模が大きくなり、Visioのドキュメントアーキテクチャを深く理解するにつれて、致命的な欠点が露呈する。
1. ActiveWindowへの盲目的な依存
ユーザーが別のVisioウィンドウ（あるいは別ドキュメント）にフォーカスを移した瞬間、`ActiveWindow` の指す実体が変わり、意図しないウィンドウの表示設定が書き換わる。
2. 描画更新の抑制（ScreenUpdating）の欠落
プロパティを変更するたびにVisioのUI再描画走るため、画面がチラつき、最悪の場合はCOM例外やフリーズの原因になる。
3. トグル（状態反転）のロジックがない
「ONにする」「OFFにする」が固定されており、現在の状態を判定して切り替える「スマートなUIトグル」になっていない。
プロのアーキテクトが書くべきコードは、これらすべてのリスクを事前にねじ伏せたものでなければならない。
—
2. 堅牢なUI制御ロジックの設計思想
今回のツールでは、以下の要件を満たす設計を行う。
- 安全なウィンドウ特定: 単なる `ActiveWindow` の呼び出しではなく、現在アクティブなウィンドウが存在するか（`Nothing` ではないか）を厳格にガードする。
- 状態の判定と一括トグル: 現在のグリッド表示状態などをフラグとして取得し、ワンアクションで「プレゼンテーションモード（全非表示）」と「編集モード（全表示）」を往復できるようにする。
- 高速描画（パフォーマンス最適化）: `Application.ScreenUpdating` を制御し、一瞬で描画を完了させる。
—
3. 【プロダクションコード】プレゼンテーションモード一括切り替えマクロ
以下のコードを、VisioのVBAエディタ（Standard Module）にそのまま貼り付けてほしい。実務の現場でそのまま稼働する、エラーハンドリング完備のプロダクションコードだ。
Option Explicit
‘ ==============================================================================
‘ 模块名: ModPresentationMode
‘ 概要 : Visioウィンドウの表示要素（グリッド・ルーラー・ガイド・接続ポイント）
‘ をプレゼンテーションモードと編集モードの間で一括切り替える
‘ ==============================================================================
Public Sub TogglePresentationMode()
‘ エラーハンドリングの標準設定
On Error GoTo ErrorHandler
Dim vsoWindow As Visio.Window
Set vsoWindow = ActiveWindow
‘ ウィンドウがアクティブでない、または存在しない場合のガード節
If vsoWindow Is Nothing Then
MsgBox “有効なVisioウィンドウがアクティブではありません。”, vbExclamation, “UI制御エラー”
Exit Sub
End If
‘ 描画停止によるパフォーマンス劇的向上とチラつき防止
Application.ScreenUpdating = False
‘ 現在のグリッド表示状態を基準に、モードを判定（グリッドが見えていれば編集モードとみなす）
Dim isCurrentlyEditing As Boolean
isCurrentlyEditing = vsoWindow.ShowGrid
If isCurrentlyEditing then
‘ ————————————————————————–
‘ 【プレゼンテーションモードへの移行】（すべての補助UIを隠す）
‘ ————————————————————————–
vsoWindow.ShowGrid = False ‘ グリッド線非表示
vsoWindow.ShowRulers = False ‘ ルーラー（定規）非表示
vsoWindow.ShowGuides = False ‘ ガイド非表示
vsoWindow.ShowConnects = False ‘ 接続ポイント非表示
‘ ステータスバーに現在のモードを表示（ユーザーフレンドリーな配慮）
Application.StatusBar = “プレゼンテーションモード: ON (閲覧最適化)”
Else
‘ ————————————————————————–
‘ 【編集モードへの復帰】（すべての補助UIを表示する）
‘ ————————————————————————–
vsoWindow.ShowGrid = True ‘ グリッド線表示
vsoWindow.ShowRulers = True ‘ ルーラー表示
vsoWindow.ShowGuides = True ‘ ガイド表示
vsoWindow.ShowConnects = True ‘ 接続ポイント表示
Application.StatusBar = “編集モード: ON (開発・レイアウト最適化)”
End If
CleanUp:
‘ 描画の再開（絶対に忘れてはならない）
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
‘ 予期せぬエラー時のフォールバック
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
—
4. コードの深層解説：なぜこの実装が「プロフェッショナル」なのか？
① `Application.ScreenUpdating` の厳格なライフサイクル管理
VisioのCOMオブジェクト操作において、UIの再描画は最もコストが高い処理の1つだ。プロパティを4つ連続で書き換える際、描画がオンのままだと画面がバグったように点滅する。
コード内では、処理の最初に `False` にし、エラーが発生しようとも必ず `CleanUp` ラベルを経由して `True` に戻す構造（Try-FinallyイディオムのVBA実装）をとっている。これにより、「マクロを実行したら画面がフリーズしたように動かなくなった」という最悪の事故を完全に防止している。
② 状態のスマートなトグル判定
`isCurrentlyEditing = vsoWindow.ShowGrid` という一行に注目してほしい。
「現在のグリッドが表示されているか」をブール値として取得し、それを分岐の条件にしている。これにより、別途フラグ用ファイルを外部に持たなくても、現在のウィンドウ状態を正確に読み取って「真逆の状態へスムーズにスイッチする」スマートな挙動が実現できる。
—
5. 業務自動化をさらに加速させるための応用ヒント
このマクロをリボン（RibbonX）やクイックアクセスツールバーに組み込めば、ワンクリックで図面の表情を切り替える強力なツールが完成する。
さらに高度な要件として、「ドキュメントを開いた瞬間に自動でプレゼンテーションモードにしたい」という場合は、`ThisDocument` モジュールの `Document_DocumentOpened` イベントに上記のロジックを組み込めばよい。
‘ ThisDocument モジュールに記述する例
Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
‘ ドキュメントオープン時に自動実行するフック
Call TogglePresentationMode ‘ ※必要に応じて調整
End Sub
最後に：ツール作成の本質
業務効率化ツールを作る際、動けばいいという妥協はエンジニアのプライドが許さない。
今回紹介した `ActiveWindow` の制御とコンテキストの保護は、Visio VBAに限らず、ExcelやWordなどのOffice Automation全般に通じる極めて重要な作法だ。
あなたの開発するVisioツールにこの知見を組み込み、周囲をうならせる洗練された自動化環境を構築してほしい。健闘を祈る。
