Visioを「不可侵のダッシュボード」へ変貌させる：UI制御とメモリ管理の極意
工場ラインや現場の監視用端末において、Visioは最強の可視化エンジンになり得る。しかし、デフォルトのVisioインターフェースはあまりに「事務的」であり、現場のオペレーターには不要な複雑さを強いる。
我々エンジニアが目指すべきは、Visioを単なるドローイングツールから、「ユーザーが触れられない、しかし直感的な情報表示端末」へと昇華させることだ。今回は、VBAを用いてVisioをキオスクモードへ強制遷移させ、リソースを極限まで最適化する実装の深淵を解説する。
—
1. UIの完全支配：CommandBarsとWindowプロパティ
リボンメニューやツールバーをただ「隠す」のではない。ユーザーによる意図せぬ編集や操作を物理的に封じ込める必要がある。
リボンとウィンドウの制御
VisioのUI制御は、`Application.ShowToolbar`といった古いAPIだけでは不十分だ。現代のVisioにおいては、`Application.ActiveWindow`のプロパティを操作し、フルスクリーンAPIを叩くのが正攻法である。
‘ キオスクモードへの遷移ロジック
Public Sub EnableKioskMode()
With Application
‘ リボンを隠蔽
.ShowRibbon = False
‘ ステータスバーを排除
.ShowStatusBar = False
‘ 開発者用プロパティの排除
.ActiveWindow.ShowRulers = False
.ActiveWindow.ShowGrid = False
.ActiveWindow.ShowGuides = False
‘ フルスクリーンモードへ切り替え
.ActiveWindow.FullScreen = True
End With
End Sub
2. Windows APIによる「逃げ道」の遮断
単にVisioのUIを消しても、WindowsのタスクバーやAlt+Tabによる切り替えが残っていれば、それはキオスクとは呼べない。ここで、`user32.dll`の出番だ。最上位ウィンドウのハンドルを取得し、スタイルを強制的に書き換える。
If VBA7 Then
Private Declare PtrSafe Function SetWindowLong Lib “user32” Alias “SetWindowLongA” (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Else
Private Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
End If
‘ 必要に応じてウィンドウのスタイルをWS_POPUPへ変更し、タイトルバーを抹殺する
‘ ※これはOSの深い階層に触れるため、実装時は必ずエラーハンドラを噛ませること
—
3. シニアエンジニアが守るべきメモリ管理の鉄則
VisioのVBAは、オブジェクト参照の管理が甘いと、長時間の稼働で確実にリークする。特に外部データ（ExcelやSQL Server）と連携するダッシュボードの場合、「参照の明示的破棄」は宗教的儀式として守らなければならない。
オブジェクト解放のベストプラクティス
ループ処理内で`Shape`や`Page`を走査する際、オブジェクト変数を再利用せず、必ず`Nothing`を代入してガベージコレクションの契機を明示すること。
Public Sub RefreshDashboardData()
Dim doc As Visio.Document
Dim pg As Visio.Page
Dim shp As Visio.Shape
Set doc = Application.ActiveDocument
For Each pg In doc.Pages
For Each shp In pg.Shapes
‘ ここでデータ更新処理
‘ …
Next shp
‘ ページごとの解放
Set shp = Nothing
Next pg
‘ 親オブジェクトの解放
Set pg = Nothing
Set doc = Nothing
End Sub
—
4. 極限の運用：自動再起動と異常監視
キオスク端末は「止まらないこと」が全てだ。Visioがメモリ肥大化でフリーズした場合、VBAの`OnTime`メソッドや、外部の監視用VBScriptを組み合わせた「死活監視プロセス」を構築することを強く推奨する。
- 自動更新の罠: `Application.OnTime`は非常に強力だが、Visioがモーダルダイアログ（エラーメッセージ等）を出している間はトリガーされない。
- 対策: エラー発生時は必ず`Application.DisplayAlerts = visAlertNone`を設定し、ダイアログを自動的に握りつぶす設計にすること。
—
最後に：エンジニアとしての矜持
Visioをキオスク化する行為は、単なるUIのカスタマイズではない。それは、「ツールに対する人間の介入をどこまで排せるか」という、インターフェースの極限追求である。
現場のモニターが、誰にも触れられず、しかし常に正確な情報を提示し続ける。その無機質な美しさの裏側に、我々の書いたコードが脈々と息づいている。これこそが、VBAエンジニアが到達すべき一つの頂点だ。
コードを書き終えたら、必ず`ThisDocument`モジュールの`Document_Open`イベントに`EnableKioskMode`を仕込んでおけ。それが、この過酷な現場でシステムを生き永らえさせるための、唯一の防波堤となる。
