こんにちは！世界最高峰の業務自動化エンジニア、そしてVisio VBAを知り尽くしたチーフアーキテクトが、今回皆さんに贈るのは、単なる機能解説ではありません。Visio自動化の現場で、どれほど些細な見落としが取り返しのつかない事態を招くか、その「本質的な危険」と、それを未然に防ぐ「極限の知見」です。
皆さんはVisioで自動化を進める中で、もしかしたら「マクロの記録」から一歩踏み出し、オブジェクトモデルを学び始めたばかりかもしれませんね。それは素晴らしい第一歩です。しかし、その一歩を踏み出したからこそ、知っておくべきことがあります。それは「安全と堅牢性」です。
Visio VBAで自動処理を組む際、最も恐れるべきシナリオの一つに「意図しないファイルの上書き・破壊」があります。特に「ステンシルファイル（.vssx）」は、多くの図面で参照される重要な資産であり、これを誤って編集・保存してしまうと、システム全体に深刻な影響を及ぼしかねません。
今回は、そんな悲劇を未然に防ぐための強力な守護神、Visioの`Document`オブジェクトが持つ`Mode`と`Type`プロパティに焦点を当てます。ここをクリアすれば、Visio VBAの基本はバッチリですよ。さあ、一緒に堅牢な自動化の世界へ足を踏み入れましょう！
—
【Visio VBA極限の知見】Document.ModeとTypeで堅牢な自動化を実現！ステンシル破壊から現場を守る安全策
第1章: なぜVisioファイルの「種別判定」が重要なのか？
皆さんはVisioを日常的に使っていて、いくつかの種類のファイルがあることをごご存知でしょう。
- 図面ファイル（.vsdx）: 通常の作業で使う、いわゆる「Visioの絵」ですね。
- ステンシルファイル（.vssx）: 図形（シェイプ）の集まりで、他の図面にドラッグ＆ドロップして使います。
- テンプレートファイル（.vstx）: あらかじめ特定の図形や設定がされた、新しい図面を作成するためのひな形です。
これらはファイル拡張子を見れば区別できますが、VBAから操作する際には、見た目の拡張子だけでは不十分なケースがあります。特に問題となるのが「ステンシルファイル」です。
Visioでは、ステンシルファイルを開くとき、大きく分けて二つの「モード」があります。
1. ステンシルとして参照するモード: 他の図面を開いているときに、必要なシェイプをパレットからドラッグ＆ドロップするために開く状態です。この状態では、ステンシルそのものを編集することは想定されていません。
2. ステンシルを編集するモード: 新しいシェイプを追加したり、既存のシェイプを修正したりするために、ステンシルファイルを「編集目的」で開く状態です。
もし、あなたがVBAで「現在開いているファイル」に対して図形を追加したり、プロパティを変更したりするコードを実行したとします。その「現在開いているファイル」が、もし参照モードのステンシルファイルだったらどうでしょう？ 意図せずステンシルが変更され、そのまま保存してしまったら…？
想像してみてください。多くの人が使っている共通のステンシルが、あなたの意図しない操作で破壊されたとしたら、それは業務に大きな混乱を招く可能性があります。このような悲劇を未然に防ぐために、VBAで「今、目の前にあるドキュメントは、本当に変更して良いものなのか？」を厳格に判定する仕組みが必要なのです。
第2章: Visio VBAの守護神：Document.ModeとDocument.Type
では、どうすればVBAでファイルの種別や状態を判定できるのでしょうか？
その鍵を握るのが、`Document`オブジェクトの`Mode`と`Type`という二つのプロパティです。
Visio VBAでは、まず`Application`オブジェクト（Visioアプリケーション自体）から、現在アクティブな`Document`オブジェクト（開いているファイル）にアクセスするのが一般的です。
‘ Visioアプリケーションオブジェクトを取得
Dim vsoApp As Visio.Application
Set vsoApp = Visio.Application
‘ 現在アクティブなドキュメントオブジェクトを取得
Dim vsoDoc As Visio.Document
Set vsoDoc = vsoApp.ActiveDocument
この`vsoDoc`オブジェクトが、私たちが操作しようとしているVisioファイルそのものと対応します。そして、この`vsoDoc`が持つ`Mode`と`Type`プロパティが、ファイルの「状態」と「種類」を教えてくれる守護神なのです。
第3章: Document.Modeを読み解く：ドキュメントの「状態」を把握する
`Document.Mode`プロパティは、現在開かれているドキュメントがどのような状態にあるかを示します。特にステンシルファイルにおいては、非常に重要な意味を持ちます。
このプロパティは、以下のいずれかのVisio定数を返します。
- `visDocModeDraw` (値: 0):
- 意味: 通常の図面ファイル（.vsdx）が開かれている状態、またはテンプレートファイル（.vstx）から新しい図面が作成された状態です。これが、私たちが図面を編集する最も一般的なモードです。
- 鉛筆マーク: Visioのタブには特に表示されません。
- `visDocModeStencil` (値: 1):
- 意味: ステンシルファイル（.vssx）が編集モードで開かれている状態です。これは、ステンシルを直接修正したり、新しいマスターシェイプを追加したりするためのモードです。
- 鉛筆マーク: Visioのステンシルウィンドウのタブに、小さな鉛筆マークが表示されます。これこそが「このステンシルは編集可能ですよ」という明確なサインです。
- `visDocModeStencilReadOnly` (値: 2):
- 意味: ステンシルファイル（.vssx）が読み取り専用（参照モード）で開かれている状態です。このモードは、図面作成時にシェイプをドラッグするためにステンシルを開いた場合など、ステンシルそのものを変更する意図がない場合に適用されます。
- 鉛筆マーク: Visioのステンシルウィンドウのタブに、鉛筆マークは表示されません。
ご覧の通り、`Mode`プロパティは「今、このファイルは編集しても大丈夫か？」という問いに対する直接的なヒントを与えてくれます。特に`visDocModeStencilReadOnly`の状態で編集処理を行おうとするのは、非常に危険な行為です。
第4章: Document.Typeを読み解く：ドキュメントの「種類」を識別する
`Document.Type`プロパティは、現在開かれているドキュメントがどのような種類のファイルであるかを示します。これは、ファイル拡張子と密接に関連していますが、VBAから確実にその種類を判別するために使います。
このプロパティは、以下のいずれかのVisio定数を返します。
- `visTypeDrawing` (値: 1):
- 意味: 通常のVisio図面ファイル（.vsdx）です。
- `visTypeStencil` (値: 2):
- 意味: Visioステンシルファイル（.vssx）です。
- `visTypeTemplate` (値: 3):
- 意味: Visioテンプレートファイル（.vstx）です。
- `visTypeAddon` (値: 4):
- 意味: Visioアドオンファイル（.vsaや古い.vssなど）ですが、これは今回の主要なテーマからは少し外れます。
`Type`プロパティは、対象のファイルがそもそも「図面なのか」「ステンシルなのか」「テンプレートなのか」を明確に教えてくれます。これにより、「図面ファイルにしか適用できない処理」や「ステンシルファイルにだけ適用したい処理」といった、ファイルの種類に応じた分岐処理が可能になります。
第5章: 実践！Document.ModeとTypeで安全を確保するVBAコード
さあ、いよいよ実践的なコードです。これらのプロパティを組み合わせることで、堅牢なVisio VBAコードを記述することができます。
コード例1: 現在のドキュメント情報を表示する
まずは、現在アクティブなドキュメントの`Mode`と`Type`を調べてみましょう。Visioでいくつかのファイルを開いたり、ステンシルを編集モード/参照モードで開いてみて、コードを実行してみてください。
Sub CheckDocumentProperties()
‘ エラーハンドリングを開始
On Error GoTo ErrorHandler
‘ 現在アクティブなVisioアプリケーションオブジェクトを取得
Dim vsoApp As Visio.Application
Set vsoApp = Visio.Application
‘ アクティブなドキュメントが存在するか確認
If vsoApp.ActiveDocument Is Nothing Then
MsgBox “現在、開いているVisioドキュメントがありません。”, vbExclamation
Exit Sub
End If
‘ アクティブなドキュメントオブジェクトを取得
Dim vsoDoc As Visio.Document
Set vsoDoc = vsoApp.ActiveDocument
‘ ドキュメントのファイルパスを取得（未保存の場合は空文字）
Dim docPath As String
If vsoDoc.Path = “” Then
docPath = “（未保存のドキュメント）”
Else
docPath = vsoDoc.FullName
End If
‘ ドキュメントのModeプロパティに応じて文字列を生成
Dim modeString As String
Select Case vsoDoc.Mode
Case Visio.VisDocumentModes.visDocModeDraw
modeString = “通常の図面モード (visDocModeDraw)”
Case Visio.VisDocumentModes.visDocModeStencil
modeString = “ステンシル編集モード (visDocModeStencil)”
Case Visio.VisDocumentModes.visDocModeStencilReadOnly
modeString = “ステンシル読み取り専用モード (visDocModeStencilReadOnly)”
Case Else
modeString = “不明なモード (” & vsoDoc.Mode & “)”
End Select
‘ ドキュメントのTypeプロパティに応じて文字列を生成
Dim typeString As String
Select Case vsoDoc.Type
Case Visio.VisDocumentTypes.visTypeDrawing
typeString = “図面ファイル (.vsdx) (visTypeDrawing)”
Case Visio.VisDocumentTypes.visTypeStencil
typeString = “ステンシルファイル (.vssx) (visTypeStencil)”
Case Visio.VisDocumentTypes.visTypeTemplate
typeString = “テンプレートファイル (.vstx) (visTypeTemplate)”
Case Visio.VisDocumentTypes.visTypeAddon
typeString = “アドオンファイル (visTypeAddon)”
Case Else
typeString = “不明な種類 (” & vsoDoc.Type & “)”
End Select
‘ 結果をメッセージボックスで表示
MsgBox “ドキュメント名: ” & vsoDoc.Name & vbCrLf & _
“フルパス: ” & docPath & vbCrLf & _
“———————————” & vbCrLf & _
“モード: ” & modeString & vbCrLf & _
“種類: ” & typeString, _
vbInformation, “Visioドキュメント情報”
‘ オブジェクトの解放（ガベージコレクションを促進）
Set vsoDoc = Nothing
Set vsoApp = Nothing
Exit Sub ‘ 正常終了
ErrorHandler:
‘ エラーメッセージを表示
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
‘ オブジェクトの解放を試みる（エラー時も）
Set vsoDoc = Nothing
Set vsoApp = Nothing
End Sub
このコードを実行すると、現在アクティブなVisioドキュメントの詳細な情報が表示されます。特に、ステンシルファイルを「通常通りパレットとして開いた場合」と「ファイルを直接開いて編集モードにした場合」とで、`Mode`プロパティが変化することを確認してください。これが、あなたのプログラムを守るための重要な手がかりになります。
コード例2: ステンシル上書き破壊を防止する安全判定関数
次に、この知識を応用して、本当に安全に編集して良いドキュメントであるかを判定する関数を作成してみましょう。この関数を、ドキュメントの変更を伴うVBA処理の冒頭で呼び出すことで、意図しない上書きを強力に防止できます。
Function IsSafeForEditing(ByVal targetDoc As Visio.Document) As Boolean
‘ ドキュメントが編集可能で、かつ意図しない破壊のリスクが低いかを判定する関数
‘ 戻り値: True = 安全に編集可能, False = 編集すべきではない、または警告が必要
IsSafeForEditing = False ‘ 初期値は安全ではない
‘ ————————————————————————————————–
‘ Step 1: ドキュメントが存在しない場合は即座にFalse
‘ ————————————————————————————————–
If targetDoc Is Nothing Then
MsgBox “対象ドキュメントがNothingです。処理を中断します。”, vbCritical
Exit Function
End If
‘ ————————————————————————————————–
‘ Step 2: ドキュメントのTypeとModeを組み合わせて判定
‘ ————————————————————————————————–
Select Case targetDoc.Type
Case Visio.VisDocumentTypes.visTypeDrawing ‘ 通常の図面ファイル (.vsdx)
‘ 図面ファイルは基本的に編集可能と判断する
‘ ただし、読み取り専用で開かれている可能性もあるため、そのチェックは別途必要（ここでは割愛）
IsSafeForEditing = True
‘ 例外処理: 新規作成された未保存の図面も安全と見なす
If targetDoc.Path = “” Then
IsSafeForEditing = True
ElseIf targetDoc.Saved = True And targetDoc.ReadOnly Then
‘ 既に保存済みで、かつ読み取り専用で開かれている場合は警告
If MsgBox(“この図面は読み取り専用で開かれています。編集を続行しますか？” & vbCrLf & _
“変更を保存するには別名で保存する必要があります。”, vbQuestion + vbYesNo, “読み取り専用”) = vbNo Then
IsSafeForEditing = False
Exit Function
End If
‘ Yesを選択した場合は、編集自体は可能と判断
IsSafeForEditing = True
End If
Case Visio.VisDocumentTypes.visTypeStencil ‘ ステンシルファイル (.vssx)
‘ ステンシルファイルの場合は、Modeを厳しくチェックする
Select Case targetDoc.Mode
Case Visio.VisDocumentModes.visDocModeStencil ‘ ステンシル編集モード
‘ このモードでのみ、ステンシル編集を安全と見なす
IsSafeForEditing = True
Case Visio.VisDocumentModes.visDocModeStencilReadOnly ‘ ステンシル読み取り専用モード
‘ 読み取り専用のステンシルは編集すべきではない
MsgBox “警告: このステンシルは読み取り専用モードで開かれています。” & vbCrLf & _
“意図しない変更を防ぐため、処理を中断します。” & vbCrLf & _
“編集が必要な場合は、ステンシルを直接開いてください。”, vbExclamation
IsSafeForEditing = False
Case Visio.VisDocumentModes.visDocModeDraw ‘ まれにステンシルが図面モードで開かれるケース
‘ このケースも基本的には意図しない編集であり危険と判断
MsgBox “警告: ステンシルファイルが、通常の図面モードで開かれています。” & vbCrLf & _
“意図しない変更を防ぐため、処理を中断します。”, vbExclamation
IsSafeForEditing = False
Case Else
‘ その他の未知のモード
MsgBox “警告: ステンシルファイルに不明なモード (” & targetDoc.Mode & “) が検出されました。” & vbCrLf & _
“安全のため、処理を中断します。”, vbExclamation
IsSafeForEditing = False
End Select
Case Visio.VisDocumentTypes.visTypeTemplate ‘ テンプレートファイル (.vstx)
‘ テンプレートファイル自体を直接編集することは通常想定されない。
‘ 新しい図面作成の基となるため、誤って上書きしないよう基本は編集不可とする。
MsgBox “警告: テンプレートファイル (” & targetDoc.Name & “) は編集対象として不適切です。” & vbCrLf & _
“処理を中断します。”, vbExclamation
IsSafeForEditing = False
Case Else ‘ その他の未知のドキュメントタイプ
MsgBox “警告: 不明なドキュメントタイプ (” & targetDoc.Type & “) が検出されました。” & vbCrLf & _
“安全のため、処理を中断します。”, vbExclamation
IsSafeForEditing = False
End Select
End Function
‘ — この関数を使った具体的な処理の例 —
Sub PerformSafeEditingTask()
Dim vsoApp As Visio.Application
Dim vsoDoc As Visio.Document
Set vsoApp = Visio.Application
Set vsoDoc = vsoApp.ActiveDocument
‘ まず、編集しても安全なドキュメントであるかを確認する
If IsSafeForEditing(vsoDoc) Then
‘ ここに、安全に実行できると判断されたVisio VBAの処理を記述します。
‘ 例: 新しいシェイプを追加する
Dim vsoPage As Visio.Page
Set vsoPage = vsoDoc.Pages(1) ‘ 最初のページを取得
Dim vsoShape As Visio.Shape
‘ 既存のマスターシェイプが存在する場合の例
‘ 例: “四角形”というマスターをステンシルから取得し、ページに配置
On Error Resume Next ‘ マスターが見つからないエラーを一時的に無視
Dim vsoMaster As Visio.Master
Set vsoMaster = vsoApp.Documents.OpenEx(“BASIC.VSSX”, Visio.visOpenRO).Masters(“四角形”)
On Error GoTo 0 ‘ エラーハンドリングを元に戻す
If Not vsoMaster Is Nothing Then
Set vsoShape = vsoPage.Drop(vsoMaster, 1, 1) ‘ マスターを座標(1,1)にドロップ
vsoShape.Text = “安全に編集しました！”
MsgBox “ドキュメントにシェイプが追加されました。”, vbInformation
Else
‘ マスターが見つからない場合の代替処理（例として簡単な図形描画）
Set vsoShape = vsoPage.DrawRectangle(0, 0, 2, 2)
vsoShape.Text = “代替の四角形”
MsgBox “マスターが見つからなかったため、代替の四角形が追加されました。”, vbInformation
End If
‘ 保存処理は、ユーザーに確認を促すか、別名で保存するように促すのが安全
If MsgBox(“変更を保存しますか？”, vbQuestion + vbYesNo, “保存確認”) = vbYes Then
‘ 新規ドキュメントの場合や、読み取り専用で開かれている場合はSaveAsを検討
If vsoDoc.Path = “” Or vsoDoc.ReadOnly Then
MsgBox “新規ドキュメントまたは読み取り専用のため、別名で保存してください。”, vbInformation
‘ vsoDoc.SaveAs “C:\Temp\MySafeDocument.vsdx” ‘ 例
Else
vsoDoc.Save
End If
MsgBox “変更が保存されました。”, vbInformation
Else
MsgBox “変更は保存されませんでした。”, vbInformation
End If
Else
MsgBox “ドキュメントは編集に適さない状態です。処理を中止します。”, vbExclamation
End If
‘ オブジェクトの解放
Set vsoPage = Nothing
Set vsoDoc = Nothing
Set vsoApp = Nothing
End Sub
この`IsSafeForEditing`関数は、以下の重要なポイントを押さえています。
- ドキュメントのTypeによる大まかな分類: まず、ドキュメントが「図面」「ステンシル」「テンプレート」のどれであるかを判断します。
- ステンシルファイルの厳格なModeチェック: `visTypeStencil`の場合にのみ、`Document.Mode`プロパティをさらに詳細にチェックします。`visDocModeStencil`（編集モード）以外であれば、即座に「安全ではない」と判断し、警告メッセージを表示して`False`を返します。
- テンプレートファイルの保護: `visTypeTemplate`は通常編集を想定しないため、変更処理をブロックします。
- ユーザーへの丁寧なフィードバック: なぜ処理が中断されたのか、どうすれば良いのかを`MsgBox`で明確に伝えます。
- 読み取り専用ファイルの考慮: 図面ファイルであっても、読み取り専用で開かれている場合は、ユーザーに注意を促し、保存時には`SaveAs`を検討する必要があることを示唆しています。
この関数をあらゆるVisio VBAの変更処理の前に呼び出すことで、あなたは「意図しないドキュメントの破壊」という大きなリスクから解放され、より堅牢な自動化システムを構築できるでしょう。
第6章: 先輩からのアドバイス：堅牢な自動化への道
お疲れ様でした！これであなたは、Visio VBAにおいて最も重要でありながら見落とされがちな「ドキュメントの安全判定」という極めて重要な知見を手にしました。
「オブジェクトのライフサイクルやパフォーマンスの重みを知り尽くした者」として、私が皆さんにお伝えしたいのは、自動化において「安全性」は「効率性」に劣らず、あるいはそれ以上に重要であるということです。どんなに高速で便利なVBAコードでも、誤って業務上の重要な資産を破壊してしまえば、その価値はゼロどころかマイナスになります。
今回学んだ`Document.Mode`と`Document.Type`は、Visioオブジェクトモデルの基礎中の基礎でありながら、堅牢な自動化システムを構築するための「最初の砦」となります。この知識を活かし、皆さんのVBAコードにぜひ組み込んでみてください。
そして、もう一つアドバイスです。今回の例では`ActiveDocument`に焦点を当てましたが、実際の業務では複数のVisioドキュメントが開かれていることも珍しくありません。`Visio.Application.Documents`コレクションをループして、開いている全てのドキュメントに対して同様の安全チェックを行うことで、さらに堅牢なシステムを構築することができます。
Visio VBAの道は奥深く、時には複雑に感じることもあるでしょう。しかし、一つ一つのオブジェクトやプロパティが持つ意味をこのように深く理解し、本質的な価値を見出すことで、あなたは単なる「マクロ記録者」から一歩進んだ、真の「自動化エンジニア」へと成長できるはずです。
ここをクリアすれば、Visio VBAの基本はバッチリですよ。自信を持って、次のステップに進んでください！応援しています。
