【入門編】【初心者向け】Visioの「名前を付けて保存」ダイアログをVBAで呼び出し、保存先フォルダを初期値として指定する – Visio VBA解析バイブル

Visio VBA

2026.10.18

こんにちは！ Visio VBAの世界へようこそ。伝説的なチーフアーキテクトの私が、皆さんの業務自動化の旅をサポートします。

「マクロの記録」から一歩踏み出し、本当に使える、ユーザーフレンドリーな自動化を目指しましょう。今回は、日々の業務で誰もが必ず使う「名前を付けて保存」ダイアログを、あなたの思い通りに操る方法をお伝えします。

特に、ユーザーが保存先を迷わないよう、特定のプロジェクトフォルダをデフォルトで開く設定を実装する「極意」を伝授します。ここをクリアすれば、Visio VBAの基本はバッチリですよ！

—

Visio VBAで「名前を付けて保存」を制御する意義

なぜわざわざVBAで保存ダイアログを操作するのか？

Visioで図面を保存する際、通常はメニューから「ファイル」→「名前を付けて保存」を選びますよね。これをVBAで自動化する場合、`Application.ActiveDocument.SaveAs` メソッドを使えば、指定したパスに直接保存できます。

しかし、それではユーザーに保存場所やファイル名を選ばせることができません。

「このプロジェクトの図面は、必ずこのフォルダに保存してほしい」
「ファイル名は、日付と図面の種類を自動で入力しておいてあげたいけど、最後にユーザーが確認・修正できるようにしたい」

こんな要望に応えるには、Visioの標準的な「名前を付けて保存」ダイアログをVBAから呼び出し、その動作を制御する必要があるのです。これは単なる自動化以上の意味を持ちます。それは、ユーザーの「迷い」をなくし、作業の「効率」を最大化するという、素晴らしいユーザー体験の提供に繋がります。

FileDialogオブジェクトとの出会い：Office共通の強力な武器

皆さん、WordやExcel、PowerPointといったOffice製品には、共通の強力な武器があるのをご存知ですか？それが `FileDialog` オブジェクトです。このオブジェクトを使うことで、開く、保存する、フォルダを選択するといった、ファイルやフォルダに関するダイアログをVBAから自在に操ることができます。

Visio VBAでも、この `FileDialog` オブジェクトを介して「名前を付けて保存」ダイアログを呼び出し、初期フォルダを設定したり、デフォルトのファイル名を提案したりすることが可能になります。

`FileDialog` オブジェクトの基本的な使い方

まずは、最もシンプルな形で「名前を付けて保存」ダイアログを表示する例を見てみましょう。

準備：参照設定の確認

`FileDialog` オブジェクトはOffice共通のオブジェクトのため、VBAプロジェクトで「Microsoft Office xx.0 Object Library」（xxはOfficeのバージョン、例: 16.0）への参照設定が必要です。

1. VisioのVBAエディタ（Alt + F11）を開きます。
2. メニューから「ツール」→「参照設定」を選択します。
3. 「Microsoft Office xx.0 Object Library」を探し、チェックを入れて「OK」をクリックします。

これで `Office.FileDialog` 型のオブジェクトが利用できるようになります。

コード例1：最もシンプルな「名前を付けて保存」ダイアログ

Sub SimpleSaveAsDialog()
‘ FileDialogオブジェクトを宣言します。
‘ 事前に「Microsoft Office xx.0 Object Library」への参照設定が必要です。
Dim FD As Office.FileDialog

‘ アクティブなVisioドキュメントを格納する変数
Dim visDoc As Visio.Document

‘ (1) FileDialogオブジェクトを生成します。
‘ msoFileDialogSaveAs は「名前を付けて保存」ダイアログを指定する定数です。
Set FD = Application.FileDialog(msoFileDialogSaveAs)

‘ (2) WithステートメントでFDオブジェクトのプロパティをまとめて設定します。
With FD
‘ ダイアログのタイトルを設定します。ユーザーに何をするダイアログか明確に伝えます。
.Title = “現在の図面を保存”

‘ デフォルトで選択されるフィルターを指定します。(1は最初のフィルター)
.FilterIndex = 1 ‘ ここでは Visio 図面をデフォルトに設定

‘ ダイアログの初期ビューモードを設定します。(オプション)
.InitialView = msoFileDialogViewList ‘ リスト表示

‘ (3) ダイアログを表示し、ユーザーの選択を待ちます。
‘ .Show メソッドは、ユーザーが「保存」をクリックしたら -1、
‘ 「キャンセル」をクリックしたら 0 を返します。
If .Show = -1 Then ‘ ユーザーが「保存」ボタンをクリックした場合
‘ .SelectedItems(1) でユーザーが選択したフルパスとファイル名を取得します。
Dim strSelectedFilePath As String
strSelectedFilePath = .SelectedItems(1)

‘ (4) 取得したパスとファイル名で、実際のVisioドキュメントを保存します。
Set visDoc = Application.ActiveDocument
visDoc.SaveAs strSelectedFilePath

MsgBox “図面は「” & strSelectedFilePath & “」に保存されました。”, vbInformation
Else ‘ ユーザーが「キャンセル」ボタンをクリックした場合
MsgBox “保存がキャンセルされました。”, vbInformation
End If
End With ‘ FDオブジェクトに対する処理を終了

‘ (5) オブジェクトの解放を忘れずに！
‘ これが非常に重要です。後述の「極限の知見」で詳しく解説します。
Set FD = Nothing
Set visDoc = Nothing ‘ 使用したVisioドキュメントオブジェクトも解放
End Sub

このコードを実行すると、普段見慣れた「名前を付けて保存」ダイアログが表示され、ユーザーが保存先とファイル名を選択し、「保存」ボタンを押すと、その場所にVisio図面が保存されます。

ポイントは以下の通りです。

`Application.FileDialog(msoFileDialogSaveAs)` で「名前を付けて保存」ダイアログ専用の `FileDialog` オブジェクトを生成します。
`With FD … End With` でオブジェクトのプロパティ設定を簡潔に記述します。
`FD.Show` メソッドでダイアログを表示し、ユーザーのアクションを待ちます。
ユーザーが「保存」を選択した場合 (`FD.Show = -1`)、`FD.SelectedItems(1)` で選択されたフルパスを取得します。
最後に、`Application.ActiveDocument.SaveAs` を使って、取得したパスで図面を保存します。

初期フォルダを指定する「極意」：InitialFileNameプロパティの真価

いよいよ本題です。ユーザーが保存先を迷わないよう、特定のプロジェクトフォルダを初期値として開くには、`FileDialog` オブジェクトの `InitialFileName` プロパティを使います。

「FileName」という名前なので、ファイル名だけを設定すると思われがちですが、実はこのプロパティにパスだけを指定することで、ダイアログの初期表示フォルダを設定できるのです！

コード例2：初期フォルダを指定して「名前を付けて保存」

Sub SaveAsWithInitialProjectFolder()
Dim FD As Office.FileDialog
Dim strInitialPath As String ‘ 初期表示するフォルダのパス
Dim strDefaultFileName As String ‘ デフォルトで入力されるファイル名
Dim strSelectedFilePath As String ‘ ユーザーが選択したフルパス
Dim visDoc As Visio.Document ‘ アクティブなVisioドキュメント

‘ (1) 初期パスとデフォルトファイル名を設定
‘ ☆ここが今回の最大のポイントです！☆
‘ 例として、Cドライブ直下の”MyVisioProject”フォルダを指定します。
‘ 実際には、プロジェクトのルートフォルダ、またはVisio図面が格納されているフォルダなどを指定すると良いでしょう。
strInitialPath = “C:\MyVisioProject\” ‘ 末尾に”\”を付けるのが非常に重要です！
strDefaultFileName = “新規プロジェクト図面_” & Format(Date, “yyyymmdd”) & “.vsdx” ‘ 今日の日付を入れたデフォルトファイル名

‘ 指定したパスが存在するか確認（堅牢性を高めるための任意処理）
If Dir(strInitialPath, vbDirectory) = “” Then
If MsgBox(“指定された初期フォルダが存在しません。作成しますか？”, vbQuestion + vbYesNo) = vbYes Then
On Error Resume Next ‘ フォルダ作成中にエラーが発生しても処理を続行
MkDir strInitialPath ‘ フォルダ作成
On Error GoTo 0 ‘ エラー処理をリセット
If Dir(strInitialPath, vbDirectory) = “” Then
MsgBox “初期フォルダの作成に失敗しました。処理を中断します。”, vbCritical
Exit Sub ‘ フォルダ作成に失敗したら処理を終了
End If
Else
MsgBox “初期フォルダが設定されないため、保存処理を中断します。”, vbInformation
Exit Sub ‘ ユーザーが作成を拒否したら処理を終了
End If
End If

‘ (2) FileDialogオブジェクトの準備
Set FD = Application.FileDialog(msoFileDialogSaveAs)

With FD
‘ ☆「InitialFileName」に初期パスとデフォルトファイル名を結合して設定☆
‘ これにより、ダイアログが指定されたフォルダで開き、
‘ かつファイル名入力欄に「strDefaultFileName」が最初から表示されます。
.InitialFileName = strInitialPath & strDefaultFileName

‘ タイトルを設定し、ユーザーに目的を明確に伝える
.Title = “プロジェクト図面を保存するフォルダとファイル名を選択してください”

‘ 初期ビューモードを設定
.InitialView = msoFileDialogViewList

‘ (3) ダイアログを表示し、ユーザーの選択を待つ
If .Show = -1 Then ‘ ユーザーが「保存」ボタンをクリックした場合
strSelectedFilePath = .SelectedItems(1) ‘ 選択されたフルパスとファイル名を取得

‘ (4) 実際のVisioドキュメントの保存処理
Set visDoc = Application.ActiveDocument
visDoc.SaveAs strSelectedFilePath ‘ ユーザーが指定したパスとファイル名で保存

‘ (5) オブジェクトの解放
‘ これが非常に重要です！メモリリークを防ぎ、リソースを適切に管理します。
Set FD = Nothing
Set visDoc = Nothing
End Sub

`InitialFileName` プロパティのミソ

パスの末尾に `\` (バックスラッシュ) を付ける: `strInitialPath = “C:\MyVisioProject\”` のように、パスの最後に `\` を付けることで、`InitialFileName` はそれをフォルダパスとして認識し、そのフォルダを開きます。もし `\` がないと、`MyVisioProject` をファイル名の一部と解釈し、一つ上の階層で `MyVisioProject` というファイルを選択しようとします。
デフォルトファイル名も同時に指定: `InitialFileName = strInitialPath & strDefaultFileName` のように、パスとファイル名を連結して指定することで、ダイアログが初期フォルダで開くだけでなく、ファイル名入力欄にデフォルトのファイル名が最初から入力された状態になります。これはユーザーの入力の手間を省き、誤入力も防ぐ素晴らしい工夫です。

この少しの工夫で、ユーザーは保存先を探し回る手間から解放され、迷わず所定のフォルダに図面を保存できるようになります。これはまさしく、業務効率を劇的に向上させる「極意」と言えるでしょう！

知見を深める：オブジェクトのライフサイクルとパフォーマンス（極限の知見）

さて、伝説的なチーフアーキテクトとしての私から、一歩進んだ知識をお伝えしましょう。VBAでオブジェクトを扱う上で、特に重要なのが「オブジェクトのライフサイクル」を意識することです。

コード例の最後で、毎回 `Set FD = Nothing` や `Set visDoc = Nothing` と記述しているのにお気づきでしょうか？これは単なるおまじないではありません。非常に深い意味があります。

オブジェクトの「誕生」と「死」

1. 誕生（インスタンス化）: `Set FD = Application.FileDialog(msoFileDialogSaveAs)` のように `Set` キーワードを使ってオブジェクト変数を宣言し、オブジェクトのインスタンスを割り当てることで、メモリ上にオブジェクトが「誕生」します。
2. 活動: `FD.Title = “…”` や `FD.Show` のように、プロパティを設定したりメソッドを呼び出したりすることで、オブジェクトが活動します。
3. 死（解放）: `Set FD = Nothing` とすることで、オブジェクト変数への参照を解除し、VBAにそのオブジェクトが不要になったことを伝えます。これにより、VBAのガベージコレクタ（不要なメモリを自動的に解放する仕組み）が、そのオブジェクトが占有していたメモリやシステムリソースを解放する機会を得ます。

なぜ `Set オブジェクト = Nothing` が重要なのか？

これを怠ると、特に以下のような問題が発生する可能性があります。

メモリリーク: 不要になったオブジェクトがメモリ上に残り続け、プログラムが占有するメモリが増大します。短期間の実行では目立ちませんが、何度もマクロを実行したり、Visioを長時間起動したりすると、Visio自体の動作が重くなったり、他のアプリケーションにも影響を及ぼしたりする可能性があります。
リソースリーク: ファイルハンドル、ネットワーク接続、データベース接続など、VBAがOSから借りているシステムリソースが解放されずに残り、OSのパフォーマンス低下や、リソース枯渇によるエラーを引き起こすことがあります。今回の `FileDialog` オブジェクトも、内部的にOSのファイルダイアログコンポーネントを使用しているため、適切な解放が重要です。
VBAの不安定化: オブジェクトの参照が正しく管理されないと、VBAの実行環境自体が不安定になり、予期せぬエラー（「実行時エラー ’91’: オブジェクト変数または With ブロック変数が設定されていません。」など）やVisioのクラッシュに繋がることもあります。
パフォーマンス低下: 特に大量のオブジェクトを生成・破棄する処理では、解放を怠るとパフォーマンスが著しく低下します。

`With` ステートメントも、記述を簡潔にするだけでなく、対象オブジェクトへの参照を明確にする点で、オブジェクト管理に寄与します。

常に「このオブジェクトはいつ生まれ、いつ役目を終えるのか？」を意識し、役目を終えたら速やかに `Nothing` で解放する習慣をつけましょう。これは、どんなプログラミング言語においても、あなたのコードを一段上のレベルへと引き上げる、まさに「極限の知見」です。

陥りやすいエラーと賢い対処法

初学者の方がVisio VBAを学ぶ上で、つまずきやすいポイントと、その解決策をいくつかご紹介します。

エラー1: 「ユーザー定義型は定義されていません。」または「コンパイルエラー: オブジェクト変数または With ブロック変数が設定されていません。」

現象: `Dim FD As Office.FileDialog` の行でエラーが発生する。
原因: 「Microsoft Office xx.0 Object Library」への参照設定が不足しているため、VBAが `Office.FileDialog` という型を認識できません。
解決策: VBAエディタで「ツール」→「参照設定」を開き、「Microsoft Office xx.0 Object Library」にチェックを入れてください。

エラー2: 「実行時エラー ’76’: パスが見つかりません。」

現象: `MkDir strInitialPath` や `visDoc.SaveAs strSelectedFilePath` の行で発生。
原因: 指定したパスが存在しない、またはアクセス権がない。特に `strInitialPath` が存在しない場合に `MkDir` 処理でエラーになることがあります。
解決策:

`strInitialPath` に指定したパスが本当に存在するか、エクスプローラーで確認してください。
コード例2のように `Dir` 関数でパスの存在を確認し、必要であれば `MkDir` で作成する処理を実装することで、堅牢性が増します。
ネットワークドライブや共有フォルダの場合、書き込み権限があるか確認してください。

エラー3: 「保存がキャンセルされました。」のメッセージが出ない、またはキャンセルしても保存が走ってしまう

現象: ユーザーが「名前を付けて保存」ダイアログで「キャンセル」ボタンを押したにも関わらず、その後の保存処理が実行されようとする。
原因: `FD.Show` の戻り値を確認する条件分岐が不適切、または実装されていないためです。
解決策: `If FD.Show = -1 Then … Else … End If` の構造を必ず使用し、「保存」が選択された場合 (`-1`) のみ保存処理を実行するようにしてください。

エラー4: マクロ実行後、Visioの動作がおかしい、またはメモリ使用量が多い

現象: 明示的なエラーは出ないが、マクロを繰り返し実行したり、長時間Visioを使用したりすると、動作が重くなる、Visioがクラッシュするなどの問題が発生する。
原因: オブジェクトの解放 (`Set オブジェクト = Nothing`) を忘れている可能性があります。
解決策: オブジェクトを使用し終わったら、必ず `Set オブジェクト = Nothing` を記述する習慣をつけましょう。特にループ内で大量のオブジェクトを生成するような処理では、この解放が非常に重要になります。

まとめ：あなたのVisio VBAは次のステージへ！

今回は、Visio VBAにおける `FileDialog` オブジェクトの強力さと、その賢い使い方をマスターできましたね。

`Application.FileDialog(msoFileDialogSaveAs)` で「名前を付けて保存」ダイアログを呼び出すこと。
`InitialFileName` プロパティにパスとデフォルトファイル名を指定することで、ユーザーを迷わせずに適切な保存先へ導く「極意」。
そして、`Set オブジェクト = Nothing` によるオブジェクトの適切な解放が、安定した堅牢なシステムを構築するための「極限の知見」であること。

初期フォルダの指定一つで、ユーザーの作業効率は劇的に向上し、あなたのコードはよりプロフェッショナルなものになります。

さあ、この知識を胸に、Visio VBAのさらなる奥地へ飛び込んでいきましょう！これからも、皆さんの業務自動化を全力でサポートしていきます。