【実務・中級編】【中級者向け】Excelから「ページ名・サイズ・レイヤー構成」を読み込み、一括でドキュメントを構築する自動生成ツール – Visio VBA解析バイブル

凡庸な自動化を捨て、設計を自動化せよ：ExcelからVisioドキュメントを構築する「ブループリント・アーキテクチャ」

業務自動化の現場において、多くのエンジニアが陥る罠がある。それは「Excelのセルを1つずつ読み取り、その都度Visioのオブジェクトを操作する」という、命令型の逐次処理だ。

もし君が、Excelの行をループさせながら `VisioApp.ActiveDocument.AddPage` を呼び出し、その直後に `Page.PageSheet.Cells(“Width”).Formula = …` と書き連ねているとしたら、今すぐそのコードを書き直すべきだ。

なぜか？ それは、COM（Component Object Model）呼び出しのオーバーヘッド、エラー発生時の不完全な状態（中途半端なドキュメント）、そしてレイヤー管理における設計の欠如が、大規模な運用において致命的なバグを引き起こすからだ。

本稿では、単なる「自動化」ではない。Excelを「設計図（Blueprint）」として扱い、Visioを「レンダラー（描画エンジン）」として扱う、堅牢なブループリント・アーキテクチャを伝授する。

1. なぜ「逐次処理」は現場で死ぬのか

プロフェッショナルとして、以下の3つのリスクを理解しておかなければならない。

COM呼び出しのコスト

ExcelからVisioを操作する場合、プロセスを跨いだ通信（Marshaling）が発生する。ループの中で細かなプロパティ変更を繰り返すと、CPUは計算ではなく「通信の待ち時間」に費やされる。

状態の非アトミック性

「100ページ作成する工程の50ページ目でエラーが出た」とする。この時、前半分が作成されたままのVisioファイルが残る。これを「正常な状態」として扱うことはできない。設計（Data）と実行（Action）は分離されているべきだ。

レイヤーのスコープ誤認

Visioにおいて、レイヤーは「ドキュメント全体」に属するオブジェクトであり、ページに属するものではない。ページごとにレイヤーを「追加」しようとする設計は、重複エラーの温床となる。

2. 勝利の方程式：ブループリント・アーキテクチャ

堅牢なツールを構築するための設計指針は明確だ。

1. Phase 1: Data Ingestion（データ収集）
Excelから全ての情報を読み込み、メモリ上の「構造体（Class Module）」に格納する。この段階で、データの整合性（名前の重複、サイズ不正など）を完全に検証する。
2. Phase 2: Blueprint Validation（設計検証）
Visioを起動する前に、メモリ内の設計図が正しいかチェックする。
3. Phase 3: Atomic Construction（一括構築）
設計図に基づき、Visioに対して最小限の、かつ論理的な順序での命令を実行する。

3. 実装：プロダクション・グレードのコード

ここでは、Excel VBA側からVisioを制御する実装例を示す。まず、設計図を保持するための「クラスモジュール」を定義するのがプロの流儀だ。

Step 1: クラスモジュール `clsPageBlueprint` の作成

ExcelのVBAエディタでクラスモジュールを挿入し、名前を `clsPageBlueprint` に変更せよ。

' ========================================================
' Class Module: clsPageBlueprint
' ページの設計情報を保持するためのデータ構造
' ========================================================
Option Explicit

Public PageName As String
Public PageWidth As Double
Public PageHeight As Double
Public Orientation As Long ' 1: Portrait, 2: Landscape
Public RequiredLayers As Collection ' このページで使用するレイヤー名のリスト

Step 2: メインエンジン（標準モジュール）

次に、設計図を読み込み、Visioへ一気に流し込むメインロジックだ。

' ========================================================
' Standard Module: modVisioAutomator
' ========================================================
Option Explicit

' Visioの参照設定（Microsoft Visio 16.0 Object Library）を推奨
' 実行速度とインテリセンスのためにEarly Bindingを使用する

Sub ExecuteVisioConstruction()
    Dim visioApp As Visio.Application
    Dim doc As Visio.Document
    Dim blueprints As Collection
    Dim bp As clsPageBlueprint
    Dim ws As Worksheet
    Dim i As Long, lastRow As Long
    
    ' 1. Data Ingestion: Excelから設計図をメモリに展開
    Set blueprints = New Collection
    Set ws = ThisWorkbook.Sheets("Config") ' 設定シート
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    On Error GoTo ErrorHandler
    
    ' データの読み込みとバリデーション
    For i = 2 To lastRow
        Set bp = New clsPageBlueprint
        bp.PageName = ws.Cells(i, 1).Value
        bp.PageWidth = ws.Cells(i, 2).Value
        bp.PageHeight = ws.Cells(i, 3).Value
        bp.Orientation = ws.Cells(i, 4).Value
        
        ' レイヤー構成（カンマ区切りを想定）
        Set bp.RequiredLayers = New Collection
        Dim layerNames() As String
        layerNames = Split(ws.Cells(i, 5).Value, ",")
        Dim lName As Variant
        For Each lName In layerNames
            bp.RequiredLayers.Add Trim(lName)
        Next lName
        
        blueprints.Add bp
    Next i

    ' 2. Visio Application Initialization
    Set visioApp = New Visio.Application
    visioApp.Visible = True
    Set doc = visioApp.Documents.Add("") ' 新規ドキュメント作成

    ' 3. Layer Orchestration: 先にドキュメント全体のレイヤーを定義する
    ' これにより、ページ作成時のレイヤー参照エラーを防ぐ
    Dim allRequiredLayers As Collection
    Set allRequiredLayers = GetUniqueLayers(blueprints)
    
    Dim layerName As Variant
    For Each layerName In allRequiredLayers
        ' 既に存在するか確認してから追加（堅牢性の確保）
        If Not LayerExists(doc, CStr(layerName)) Then
            doc.Layers.Add CStr(layerName)
        End If
    Next layerName

    ' 4. Atomic Construction: ページの一括生成
    Dim pg As Visio.Page
    For Each bp In blueprints
        ' ページの追加
        Set pg = doc.Pages.Add
        pg.Name = bp.PageName
        
        ' ページ設定（PageSheetの操作）
        ' CellsUはユニバーサル名を使用。これにより言語依存のバグを回避
        With pg.PageSheet
            .CellsU("PageWidth").FormulaU = bp.PageWidth & " in"
            .CellsU("PageHeight").FormulaU = bp.PageHeight & " in"
            ' 向きの設定
            If bp.Orientation = 1 Then ' Portrait
                 .CellsU("PageOrientation").FormulaU = "0"
            Else ' Landscape
                 .CellsU("PageOrientation").FormulaU = "1"
            End If
        End With
        
        ' レイヤーの管理（ここでは例として、指定レイヤーの可視性を制御）
        ' 実際の実装では、各シェイプにレイヤーを割り当てるロジックへ繋げる
        Debug.Print "Created Page: " & pg.Name & " with layers: " & bp.RequiredLayers.Count
    Next bp

    MsgBox "ドキュメントの構築が完了しました。", vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました。処理を中断します。" & vbCrLf & _
           "Error: " & Err.Description, vbCritical
    ' 必要に応じて doc.Close を行い、不完全なファイルを破棄する設計にする
End Sub

' --- Helper Functions ---

' 全設計図から重複のないレイヤーリストを抽出
Private Function GetUniqueLayers(blueprints As Collection) As Collection
    Dim uniqueLayers As New Collection
    Dim bp As clsPageBlueprint
    Dim lName As Variant
    On Error Resume Next ' 重複追加時のエラーを無視してユニーク化
    For Each bp In blueprints
        For Each lName In bp.RequiredLayers
            uniqueLayers.Add lName, CStr(lName)
        Next lName
    Next bp
    On Error GoTo 0
    Set GetUniqueLayers = uniqueLayers
End Function

' レイヤーの存在確認
Private Function LayerExists(doc As Visio.Document, name As String) As Boolean
    Dim ly As Visio.Layer
    For Each ly In doc.Layers
        If ly.Name = name Then
            LayerExists = True
            Exit Function
        End If
    Next ly
    LayerExists = False
End Function

4. アーキテクトの視点：保守性を高めるための極意

このコードが「単なるコピペ」と一線を画す理由は、以下の設計思想に基づいているからだ。

1. `CellsU` と `FormulaU` の徹底使用

`Cells(“Width”)` のようなプロパティ指定は、使用しているVisioの言語設定（日本語版か英語版か）によって失敗するリスクがある。`CellsU`（Universal）を使用することで、言語に依存しない堅牢なプログラミングが可能になる。

2. レイヤー・オーケストレーション

「ページを作る $\rightarrow$ そのページにレイヤーを適用する」という思考を捨て、「ドキュメントにレイヤーの器を作る $\rightarrow$ ページを生成する」という順序に変換している。これが、大規模ドキュメント生成における「レイヤーが見つかりません」というエラーを防ぐ唯一の手段だ。

3. データの正規化

Excelから読み込む際、`RequiredLayers` を `Collection` オブジェクトとしてメモリ内に保持させている。これにより、後続の処理で「このページにはどのレイヤーが必要か？」という問いに対し、常に高速かつ型安全に応答できる。

結論

自動化エンジニアの価値は、コードの行数ではなく、「例外をどれだけ事前に排除できているか」で決まる。

Excelを単なる入力フォームとしてではなく、構造化された「設計データ」として扱い、Visioを「描画エンジン」として分離する。この分離（Decoupling）こそが、プロフェッショナルが手にするべき武器である。

次回のプロジェクトでは、ぜひこのブループリント・アーキテクチャを適用してみてほしい。君のコードから、場当たり的な「バグの温床」が消え去るはずだ。