【入門編】【中級者向け】Excelリストからページ構成を読み込み、階層構造を持つVisioドキュメントを自動生成する – Visio VBA解析バイブル

Visio VBA

2026.10.24

【Visio VBA極意】Excelリストから階層構造を自動生成する「設計自動化」の神髄

こんにちは。システムアーキテクトとして、これまで数多のドキュメント自動化を指揮してきました。

「マクロの記録」で生成される、冗長で修正困難なコードから卒業したいと思いませんか？ Visio VBAを使いこなすということは、単に図形を配置することではありません。Visioというオブジェクトの階層構造（Application > Document > Page > Layer）を掌握し、メモリを効率よく解放しながら「美しく動くコード」を書くことにあります。

今回は、Excelのリストから動的にページを作成し、レイヤーまで含めた階層構造を構築する、現場で即戦力となる自動化手法を伝授しましょう。

—

1. なぜ「マクロの記録」ではダメなのか？

Visioでマクロを記録すると、`ActiveWindow`や`Selection`といった「現在選択されているもの」に依存したコードが生成されます。しかし、大規模なドキュメント生成においてこれは致命的です。

依存関係の崩壊: 画面のフォーカスが変わるとエラーになる。
速度の低下: 画面描画を繰り返すため、ページ数が増えると処理が極端に遅くなる。
再現性の欠如: 毎回同じ結果が得られる保証がない。

真のエンジニアは、「オブジェクトを直接参照」し、画面更新を抑制（`Application.ScreenUpdating = False`）することで、爆速かつ堅牢な自動化を実現します。

—

2. 準備：Excelデータ構造の設計

まずは、以下の構成のExcelシートを準備してください。

—

3. 実装：階層構造を構築するVBAコード

このコードは、ExcelからVisioを操作する際の「ベストプラクティス」を凝縮しています。

Sub GenerateVisioFromExcel()
Dim vApp As Visio.Application
Dim vDoc As Visio.Document
Dim vPage As Visio.Page
Dim vLayer As Visio.Layer
Dim ws As Worksheet
Dim i As Long

‘ Excelシート指定
Set ws = ThisWorkbook.Sheets(“Sheet1”)

‘ Visioアプリケーションの起動（インスタンス管理）
Set vApp = CreateObject(“Visio.Application”)
Set vDoc = vApp.Documents.Add(“”) ‘ 新規ドキュメント

vApp.ScreenUpdating = False ‘ 描画を停止して高速化

‘ 行ごとにループ（2行目から開始）
For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
‘ ページ追加
Set vPage = vDoc.Pages.Add
vPage.Name = ws.Cells(i, 1).Value

‘ 背景ページの設定（論理値判定）
If ws.Cells(i, 2).Value = True Then
vPage.Background = True
End If

‘ レイヤーの追加（カンマ区切りで複数対応）
Dim layers() As String
layers = Split(ws.Cells(i, 3).Value, “,”)
Dim lName As Variant
For Each lName In layers
Set vLayer = vPage.Layers.Add(Trim(lName))
Next lName
Next i

vApp.ScreenUpdating = True
vApp.Visible = True

MsgBox “ドキュメント構築完了！”, vbInformation
End Sub

—

4. 陥りやすいエラーとその攻略法

Q1. 「オブジェクト変数またはWithブロック変数が設定されていません」と出る

原因: `Set`キーワードを忘れているか、Visioのインスタンスが正しく作成できていません。
対策: Visioの参照設定（Microsoft Visio XX.0 Type Library）をVBAエディタの「ツール」＞「参照設定」から必ず行ってください。

Q2. ページ名の重複でエラーになる

原因: 同じ名前のページを連続で作成しようとすると、Visioの仕様でエラーになります。
対策: `On Error Resume Next`で一時的に無視するか、作成前に既存ページを走査する関数を噛ませるのがプロの作法です。

—

5. 次のステップへの助言

今回のコードは「構造」を作るための基礎です。ここから先は、以下の要素を加えることで、さらに高度なツールへと進化します。

1. ステンシル(.vssx)の自動ロード: `vApp.Documents.OpenEx`で必要な図形セットを呼び出す。
2. マスターシェイプの配置: `vPage.Drop`メソッドを使い、Excel上の座標データから図形を自動配置する。
3. 例外処理の強化: `Err.Number`を監視し、ログファイルに書き出す仕組みを作る。

Visio VBAは、一度仕組みを理解すれば、あなたの作業時間を数時間から数秒に短縮する最強の武器になります。「マクロの記録」の先にある、オブジェクトを自在に操る快感をぜひ味わってください。

ここをクリアすれば、あなたはもう「脱初心者」です。次は、どんな複雑な図面を自動化しましょうか？応援しています。