方法: プログラムによって Visio 図面を保存する
Microsoft Office Visio 図面を保存するには、いくつかの方法があります。
変更を既存の図面に保存する。
新しい図面を保存するか、または新しい名前を付けて図面を保存する。
指定した引数を使用して図面を保存する。
詳細については、Microsoft.Office.Interop.Visio.Document.Save、Microsoft.Office.Interop.Visio.Document.SaveAs、および Microsoft.Office.Interop.Visio.Document.SaveAsEx の各メソッドの VBA リファレンス ドキュメントを参照してください。
既存の図面の保存
図面を保存するには
保存済みの図面の Microsoft.Office.Tools.Visio.Document クラスの Microsoft.Office.Interop.Visio.Document.Save メソッドを呼び出します。
このコード例を使用するには、プロジェクトの ThisAddIn クラスから実行します。
[!メモ]
新しい Visio 図面が保存されていない場合、Microsoft.Office.Interop.Visio.Document.Save メソッドは例外をスローします。
Me.Application.ActiveDocument.Save()this.Application.ActiveDocument.Save();
新しい名前を指定して図面を保存する
新しい図面を保存するか、または新しい名前を付けて図面を保存するには、Microsoft.Office.Interop.Visio.Document.SaveAs メソッドを使用します。このメソッドでは、新しいファイル名を指定する必要があります。
作業中の Visio 図面に新しい名前を付けて保存するには
ファイル名を含む絶対パスを使用して、保存する Microsoft.Office.Tools.Visio.Document の Microsoft.Office.Interop.Visio.Document.SaveAs メソッドを呼び出します。指定された名前のファイルが既にフォルダーに存在する場合は、自動的に上書きされます。
このコード例を使用するには、プロジェクトの ThisAddIn クラスから実行します。
Dim docPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + "\test\MyDrawing.vsd" Me.Application.ActiveDocument.SaveAs(docPath)string docPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + @"\test\MyDrawing.vsd"; this.Application.ActiveDocument.SaveAs(docPath);
新しい名前および指定した引数を使用して図面を保存するには
新しい名前を付けて図面を保存したり、図面に適用する引数を指定するには、Microsoft.Office.Interop.Visio.Document.SaveAsEx メソッドを使用します。
新しい名前および指定した引数を使用して図面を保存するには
ファイル名を含む絶対パスを使用して、保存する Microsoft.Office.Tools.Visio.Document の Microsoft.Office.Interop.Visio.Document.SaveAsEx メソッドを呼び出します。指定された名前のファイルが既にフォルダーに存在する場合は、例外がスローされます。
アクティブな図面に新しい名前を付けて保存し、図面を読み取り専用としてマークしてから、この図面を最近使ったファイルの一覧に表示するコード例を次に示します。このコード例を使用するには、プロジェクトの ThisAddIn クラスから実行します。
Dim newDocPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + "\test\MyOtherDrawing.vsd" Me.Application.ActiveDocument.SaveAsEx(newDocPath, CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsRO) + CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsListInMRU))string newDocPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + @"\test\MyOtherDrawing.vsd"; this.Application.ActiveDocument.SaveAsEx(newDocPath, ((short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsRO + (short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsListInMRU));
コードのコンパイル
このコード例に必要な条件は次のとおりです。
- 図面に新しい名前を付けて保存するには、My Documents フォルダー (Windows XP 以前のバージョンの場合) または Documents フォルダー (Windows Vista の場合) に Test という名前のディレクトリが存在している必要があります。
参照
処理手順
方法: プログラムによって新しい Visio 図面を作成する