【入門編】マスターシェイプの活用術：Document.Mastersからステンシル図形をドキュメント上に実体化する – Visio VBA解析バイブル

Visio VBA

2026.08.31

こんにちは。Visioの世界へようこそ。
「マクロの記録」ボタンを押して、生成されたコードの量に愕然とした経験はありませんか？ Visioの自動化において、最も強力でありながら、多くの人が最初につまずく壁。それが「マスターシェイプの実体化（Dropメソッド）」です。

今日は、ただコードを動かすだけでなく、Visioという巨大なオブジェクトモデルを「どう支配するか」という本質的な話をしましょう。ここを理解すれば、あなたの業務自動化レベルは一気にプロの領域へ引き上げられます。

—

まず、コードを書く前に「どこに何があるか」を整理しましょう。Visioの構造は、マトリョーシカのような階層構造です。

私たちがこれから行うのは、「道具箱（Master）から取り出して、キャンバス（Page）へ置く（Drop）」という操作です。これがすべての自動生成の基本になります。

—

「ステンシルから図形を置く」ために、以下のコードを叩き込んでください。これが最も安全で、かつ拡張性の高い書き方です。

Sub DropShapeFromStencil()
Dim vsoPage As Visio.Page
Dim vsoMaster As Visio.Master
Dim vsoShape As Visio.Shape
Dim vsoStencil As Visio.Document

‘ 1. 現在のアクティブページを取得
Set vsoPage = ActivePage

‘ 2. ステンシルを開く（既に開いている前提、またはファイルパスから開く）
‘ ※「基本フローチャート」ステンシルが既に開かれていると仮定
Set vsoStencil = Application.Documents(“基本フローチャート.vssx”)

‘ 3. ステンシルから特定のマスターを取得
‘ 名前はステンシル内の表示名と一致させること
Set vsoMaster = vsoStencil.Masters(“プロセス”)

‘ 4. ページ上にドロップ（これが核となるメソッド）
‘ Drop(マスター, X座標, Y座標) ※単位はインチ、またはVisio.VisUnitCodes.visInches
Set vsoShape = vsoPage.Drop(vsoMaster, 2, 5)

‘ 5. 必要に応じてプロパティをいじる（テキストの変更など）
vsoShape.Text = “自動生成プロセス”

MsgBox “図形の生成が完了しました。”
End Sub

—

VBAでマスターを取得する際、そのステンシルがVisio上で開かれている必要があります。「名前を指定したのにエラーになる」という場合、大抵はステンシルがロードされていないか、名前が間違っています。

Visioの座標系は、デフォルトで「インチ」です。ミリメートルで指定したい場合は、`vsoPage.PageSheet.Cells(“PageScale”)` を考慮するか、`Application.ConvertResult` を使って計算させるのがプロの作法です。

マクロの記録で生成されるコードは、画面上の選択状態（Selection）に依存しがちです。しかし、実務では「画面を選択させずに裏側で処理する」のが鉄則です。上記のように、オブジェクト（`vsoPage`など）を明示的に変数にセットする癖をつけましょう。

—

大量の図形を配置する場合、画面の再描画がボトルネックになります。
そんな時は、コードの冒頭と末尾にこの魔法の一文を加えてください。

‘ 処理開始時
Application.ScreenUpdating = False

‘ …ここに重い処理…

‘ 処理終了時
Application.ScreenUpdating = True

これだけで、描画負荷が激減し、実行速度が劇的に向上します。

—

Visio VBAは、単にコードを書く作業ではありません。
「どのマスターを、どこに配置し、どんな属性を持たせるか」という設計図をプログラムに落とし込む作業です。

最初は思い通りにいかないこともあるでしょう。しかし、一つひとつオブジェクトを操作する感覚を掴めば、数千個の図形を数秒で配置するような「魔法」が手に入ります。

まずは上記のコードをコピーして、ご自身の環境のステンシル名に変えて動かしてみてください。そこからが、あなたのエンジニアとしての本当のスタートです。

何か詰まったら、いつでも聞いてくださいね。応援しています！