【テクニカル・上級編】【上級者向け】Visio VBAで作成したツールをアドイン化し、リボンメニューからPDF出力や保存を制御する配布用パッケージング – Visio VBA解析バイブル

Visio VBAを掌握する極限の知見：アドイン化とリボン制御による配布パッケージングの全貌

レガシーなマクロ付き図面（.vsdm）のバラ撒きによるバージョン管理の崩壊、そして「動かない」「セキュリティ警告が出る」というヘルプデスクへの悲鳴。この悪夢から脱却する唯一の解が、Visioステンシルアドイン（.vssm）およびCOMアドインによる「完全な配布パッケージング」である。

本稿では、VBAコードを単なるローカルマクロから脱却させ、組織全体で統一されたPDF出力・保存インターフェースをリボンメニューからシームレスに実行させるための極限のアーキテクチャを解説する。

—

1. アーキテクチャの核心：なぜ `.vsdm` から `.vssm`（アドイン）へ移行するのか

多くの開発者が陥る罠は、VBAコードを `.vsdm`（マクロ有効図面）の内部に閉じ込めて共有することだ。これではユーザーが図面を新規作成するたびにコードがコピーされ、改修時の差分管理が不可能になる。

真のエンタープライズ・アーキテクチャでは、VBAコードをステンシルファイル（.vssm）のプロジェクト領域に常駐させ、Visioの起動時、あるいはマスターステンシルとしてバックグラウンドでロードさせる。

`.vssm` アドイン化のメリット

• コードの一元管理: サーバ上の共通領域に単一の `.vssm` を配置するだけで、全ユーザーの環境が同期する。
• UIの動的制御（RibbonX）： 図面の有無に関わらず、Visioのリボンメニューにカスタムボタンを常駐させられる。
• メモリ空間の分離: 図面データとロジック層を完全に切り離すことで、ドキュメント破損時のコード消失リスクをゼロにする。

—

2. RibbonXによるカスタムリボンの実装（XML定義）

Visio 2013以降において、CommandBarsによる旧来のUI操作は完全に過去の遺物である。我々はOffice Fluent UI（RibbonX）を制圧しなければならない。

以下のXMLを `.vssm` 内のカスタムUIパーツ（または外部COMアドイン）に埋め込み、リボンに「組織標準PDF出力」ボタンを鎮座させる。

—

3. 【極限のコード実装】メモリ最適化とPDF出力制御のVBAエンジン

ここからが本題だ。リボンから呼び出されるコールバック関数、およびPDF出力・保存を制御するVBAモジュールの実装を示す。

メモリリーク、COMオブジェクトの解放漏れ、Visio特有のサイレントエラーを完全に潰し込んだプロダクションコードを提示する。

‘ ==============================================================================
‘ モジュール名: ThisDocument (VSSMアドインのDocumentクラス)
‘ 概要: リボンUIからのコールバックと、堅牢なPDFエクスポート・保存制御
‘ ==============================================================================
Option Explicit

‘ — Windows API宣言（必要に応じたウィンドウ制御・パス解決） —
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If

‘ ==============================================================================
‘ RibbonX CallBack: 社内標準PDF出力ボタン
‘ ==============================================================================
Public Sub ExportToEnterprisePDF(control As IRibbonControl)
On Error GoTo ErrorHandler

Dim targetDoc As Visio.Document
Set targetDoc = ActiveDocument

‘ アクティブなドキュメントが存在するか検証
If targetDoc Is Nothing Then
MsgBox “処理対象の図面が開かれていません。”, vbCritical, “Enterprise PDF Engine”
Exit Sub
End If

‘ 未保存の新規図面の場合は強制的に名前を付けさせてからエクスポート
If targetDoc.Path = “” Then
MsgBox “図面を一度ローカルまたはサーバーに保存してから実行してください。”, vbExclamation, “警告”
Exit Sub
End If

‘ 高度なPDF出力処理の実行
Call ExecuteRobustPDFExport(targetDoc)

Exit Sub

ErrorHandler:
Call LogError(“ExportToEnterprisePDF”, Err.Number, Err.Description)
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
End Sub

‘ ==============================================================================
‘ コアエンジン: PDF出力の最適化制御
‘ ==============================================================================
Private Sub ExecuteRobustPDFExport(doc As Visio.Document)
Dim exportPath As String
Dim fso As Object

‘ 出力パスの動的生成（元ファイルの同階層に /PDF ディレクトリを強制作成）
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim parentDir As String
parentDir = fso.GetParentFolderName(doc.FullName)

If Not fso.FolderExists(parentDir & “\PDF”) Then
fso.CreateFolder (parentDir & “\PDF”)
End If

exportPath = parentDir & “\PDF\” & fso.GetBaseName(doc.Name) & “_” & Format(Now, “YYYYMMDD_HHNNSS”) & “.pdf”

‘ 画面描画とイベントを完全に抑制し、実行速度を極限まで引き上げる
With Visio.Application
.ScreenUpdating = False
.EventsEnabled = False
.ShowChanges = False
End With

On Error GoTo CleanUp

‘ Visio 2013以降のネイティブPDFエクスポート実行
‘ VisSaveAsCode: visPDF = 1
doc.ExportAsFixedFormat Visio.VisFixedFormatTypes.visFixedFormatPDF, exportPath, _
Visio.VisPrintIntent.visPrintIntentReview, _
Visio.VisExportShowOptions.visShowNone

MsgBox “PDF出力が完了しました。” & vbCrLf & exportPath, vbInformation, “成功”

CleanUp:
‘ 【極限の知見】COMオブジェクトと環境フラグの確実な復旧
‘ 解放を怠るとVisioのプロセスがバックグラウンドに残留しメモリリークを引き起こす
With Visio.Application
.ScreenUpdating = True
.EventsEnabled = True
.ShowChanges = True
End With

Set fso = Nothing

If Err.Number <> 0 Then
Call LogError(“ExecuteRobustPDFExport”, Err.Number, Err.Description)
Err.Raise Err.Number, “ExecuteRobustPDFExport”, Err.Description
End If
End Sub

‘ ==============================================================================
‘ 簡易エラーロギング
‘ ==============================================================================
Private Sub LogError(procName As String, errNum As String, errDesc As String)
On Error Resume Next
Dim fileNum As Integer
fileNum = FreeFile
Open Environ$(“TEMP”) & “\VisioAddin_ErrorLog.log” For Append As #fileNum
Print #fileNum, “[” & Now & “] ” & procName & ” – Error(” & errNum & “): ” & errDesc
Close #fileNum
End Sub

—

4. 配布・展開戦略：システム管理者のための自動配置スクリプト

アドイン（.vssm）を全クライアントのPCに手動で配置するなど、インフラエンジニアの恥である。Active Directoryのグループポリシー（GPO）あるいは以下のPowerShellスクリプトを用いて、ログオン時に自動配置・更新を行うのがプロフェッショナルの手法だ。

このPowerShellスクリプトは、サーバー上の最新 `.vssm` を検知し、Visioのスタートアップフォルダ（Startup）へサイレント配置する。

<# .SYNOPSIS Visioアドイン（.vssm）自動デプロイメントスクリプト .DESCRIPTION 共有サーバーから最新のステンシルアドインをローカルのVisioスタートアップへ同期します。 >

$ServerAddinPath = “\\enterprise-srv\VisioAddins\EnterpriseTools.vssm”
$VisioStartupDir = “$env:APPDATA\Microsoft\Visio\STARTUP”

ローカルのスタートアップディレクトリが存在しない場合は作成
if (-not (Test-Path $VisioStartupDir)) {
New-Item -ItemType Directory -Force -Path $VisioStartupDir | Out-Null
}

$LocalAddinPath = Join-Path $VisioStartupDir “EnterpriseTools.vssm”

ファイルのタイムスタンプまたはハッシュを比較し、古い場合のみ上書き
if ((Test-Path $ServerAddinPath) -and (Test-Path $LocalAddinPath)) {
$serverFile = Get-Item $ServerAddinPath
$localFile = Get-Item $LocalAddinPath

if ($serverFile.LastWriteTime -gt $localFile.LastWriteTime) {
Copy-Item $ServerAddinPath $LocalAddinPath -Force
Write-Host “Visio Add-in updated successfully.” -ForegroundColor Green
} else {
Write-Host “Visio Add-in is already up to date.” -ForegroundColor Cyan
}
} elseif (Test-Path $ServerAddinPath) {
Copy-Item $ServerAddinPath $LocalAddinPath -Force
Write-Host “Visio Add-in installed successfully.” -ForegroundColor Green
} else {
Write-Error “Master add-in path not found: $ServerAddinPath”
}

—

5. チーフアーキテクトからの最終提言

VBAは「おもちゃのマクロ言語」ではない。適切なパッケージング戦略（.vssm化）、RibbonXによるUI統合、そしてCOMのライフサイクル管理を徹底すれば、大規模組織の基幹システムとタイトに結合する極めて堅牢なソリューションプラットフォームに変貌する。

野良マクロの時代は終わった。今こそ、コードを中央集権化し、真にメンテナンス性の高いVisio自動化インフラを構築せよ。