【入門編】ステンシル参照のオーバーヘッドを削減：Document.MasterShortcutsを活用したメモリ効率化と処理高速化 – Visio VBA解析バイブル

こんにちは！Visioの自動化の世界へようこそ。
マクロの記録ボタンを押して、生成されたコードをそのまま動かしてみたものの、「なんだか動作がモッサリしているな…」「図形を大量に並べたらフリーズしかけた…」なんて壁にぶつかっていませんか？

もしあなたが今、「外部のステンシルファイルを毎回開きながら図形をペタペタ配置するコード」を書いているなら、ちょっと待ってください。そのアプローチ、実はVisioにもの凄く無駄な苦労をさせてしまっています。

今回は、Visio VBAのパフォーマンスを極限まで引き上げ、メモリ効率を劇的に改善する秘密兵器「MasterShortcuts（ショートカットマスター）」の世界へご案内します。ここをクリアすれば、あなたの書くVBAは見違えるほど洗練されたプロのコードになりますよ。それじゃあ、一緒に本質を紐解いていきましょう！

—

1. なぜ「外部ステンシルからの直接ドロップ」は遅いのか？

Visioで図形（シェイプ）を配置するとき、私たちはよく「ステンシルファイル（.vssxなど）」を開いて、そこからマスターシェイプをページにドラッグ＆ドロップするような処理をVBAで再現しようとします。

イメージとしては、「毎回わざわざ遠くの本棚（外部ファイル）まで歩いていって、分厚い辞書（マスター）を1冊ずつ机に持ってくる」ようなものです。

これを何百回、何千回と繰り返したらどうなるでしょうか？

• ディスク（またはネットワーク）へのアクセスが発生する
• 毎回メモリ上にシェイプの定義が読み込まれ、オーバーヘッド（余計な処理負担）が蓄積する
• 結果として、VBAの実行スピードが極端に落ち、Visioがフリーズする

プロのエンジニアが嫌う「リソースの無駄遣い」の典型例がこれです。

—

2. 救世主：`Document.MasterShortcuts` とは何か？

ここで登場するのが、今回の主役である `MasterShortcuts`（マスターショートカット） です。

これは簡単に言うと、「現在作業しているドキュメント（Documentオブジェクト）専用の、よく使うマスターへの『近道（ショートカット）』のリスト」です。

一度、外部ステンシルから必要なマスターを自分のドキュメント内（正確には `Document.Masters` コレクション）に引き込んでしまえば、あとはそのショートカット経由で瞬時に図形を量産できるようになります。

図解イメージ

【従来の方法（非効率）】
`[外部ステンシル]` ⇄ (毎回読み込み！) ⇄ `[ページ上のシェイプ]`

【MasterShortcutsを活用した高速化（推奨）】
`[外部ステンシル]`
↓ (最初の一回だけドキュメントにインポート)
`[ドキュメント内マスター (MasterShortcuts)]` ⇄ (超高速！) ⇄ `[ページ上のシェイプ]`

この仕組みを理解すると、「なぜ大規模な図面自動生成ツールでは、最初にマスターの準備（ロード）を行なうのか」その理由がスッと腹に落ちるはずです。

—

3. 実践！MasterShortcutsを活用した高速描画コード

百聞は一見にしかず。実際に、外部ステンシルへの無駄なアクセスを断ち切り、メモリ効率を最大化したVBAコードを見てみましょう。

このコードは、開発現場でそのままコピペしてベースとして使える実用的なものです。丁寧にコメントを入れているので、一つひとつの動きを確認してみてください。

Sub CreateShapesHighPerformance()
Dim vsoDoc As Visio.Document
Dim vsoPage As Visio.Page
Dim vsoMaster As Visio.Master
Dim stencilPath As String
Dim i As Long
Dim xPos As Double, yPos As Double

‘ 処理速度を爆発的に上げるための呪文（画面描画と警告をストップ）
Application.ScreenUpdating = False
Application.ShowChanges = False

On Error GoTo ErrorHandler

‘ 対象となるアクティブドキュメントとページを取得
Set vsoDoc = ActiveDocument
Set vsoPage = ActivePage

‘ 【ポイント1】使用する外部ステンシルのパスを指定
‘ ※環境に合わせてパスを書き換えてください（例: 基本フローチャート図形など）
stencilPath = Visio.Application.GetAppInfo(visInfoDefaultPath) & “\US\BASIC_M.VSSX”

‘ 【ポイント2】マスターを自ドキュメントの「MasterShortcuts」としてあらかじめ取り込む
‘ ここが今回のキモ！外部ファイルを毎回見に行か ず、ドキュメント内のショートカットを利用します。
‘ ※ここでは例として「プロセス」シェイプのマスターを取得します
Set vsoMaster = vsoDoc.MasterShortcuts.Item(“プロセス”)

‘ もしドキュメント内にまだショートカットがない場合は、外部からロードするフォールバック処理
If vsoMaster Is Nothing Then
Dim tempStencil As Visio.Document
Set tempStencil = Documents.OpenEx(stencilPath, visOpenRO + visOpenHidden)
Set vsoMaster = tempStencil.Masters.Item(“プロセス”)

‘ ドキュメントのMasterShortcutsに追加（次回からはここから爆速でアクセス可能）
vsoDoc.MasterShortcuts.Add vsoMaster
tempStencil.Close
End If

‘ 【ポイント3】取り込んだマスターを元に、図形を高速で連続配置
xPos = 2.0
yPos = 10.0

For i = 1 to 100
‘ ドキュメント内のマスターから直接図形をドロップ（メモリ負荷最小限！）
Dim vsoShape As Visio.Shape
Set vsoShape = vsoPage.Drop(vsoMaster, xPos, yPos)

‘ ついでにテキストを設定してみる
vsoShape.Text = “プロセス ” & i

‘ 配置位置を少しずつずらす
yPos = yPos – 0.8
If i Mod 10 = 0 Then
xPos = xPos + 2.5
yPos = 10.0
End If
Next i

ErrorHandler:
‘ 処理が終わったら必ず画面描画を復元する（これを忘れるとVisioが固まったように見えます）
Application.ScreenUpdating = True
Application.ShowChanges = True

If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Else
MsgBox “100個の図形の高速配置が完了しました！”, vbInformation
End If
End Sub

—

4. 現場で陥りやすい罠とエンジニアの知見

この `MasterShortcuts` やマスター管理を扱う上で、初学者がハマりがちな「罠」がいくつかあります。プロの知見としてシェアしておきますね。

罠1: `Application.ScreenUpdating = False` の消し忘れ

コードの最初で画面描画を止め（これによってVisioが毎回の描画計算をしなくなるため爆発的に早くなります）、処理の最後で `True` に戻しています。
もしエラーハンドラー（`ErrorHandler`）を書き忘れたり、途中でコードが異常終了したりすると、Visioの画面がフリーズしたまま（更新されないまま）になってしまいます。エラー時でも必ず画面更新を戻す構造（`On Error GoTo`）をセットで覚えるのが鉄則です。

罠2: マスター名（文字列）のローカライズ問題

`vsoDoc.MasterShortcuts.Item(“プロセス”)` のように名前で指定する場合、Visioの言語環境（日本語版か英語版か）によってマスター名が変わるリスクがあります。
本番環境や配布するツールを作る場合は、マスターのUIName（UI上の名前）ではなく、言語に依存しないNameU（ユニバーサル名）で指定するか、IDで取得するロジックを組むと、より堅牢なプログラムになります。

—

まとめ：ここをクリアすればVisio VBAの基本はバッチリ！

今回は、ステンシル参照のオーバーヘッドを削減し、メモリ効率と処理速度を極限まで高める `Document.MasterShortcuts` の活用法について解説しました。

• 外部ステンシルへの毎回のアクセスは、パフォーマンスの大きな足かせになる。
• `MasterShortcuts` を使って、ドキュメント内にマスターをキャッシュ（保持）させる。
• 画面描画の停止（`ScreenUpdating = False`）と組み合わせることで、大量の図形生成も一瞬で終わる。

この手法を使えば、何百・何千というノードを持つ複雑な組織図やネットワーク図の自動生成であっても、ストレスフリーでサクサク動くツールを作ることができます。

「マクロの記録」の向こう側にある、こうしたオブジェクトモデルの本質的な仕組みを理解できれば、あなたのVisio自動化スキルはもう初級者卒業です。自信を持って、次の開発に挑んでくださいね！それでは、また次の知見でお会いしましょう。