HOW TO：儲存 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 類別 (Class) 的 Microsoft.Office.Interop.Visio.Document.Save 方法。

若要使用這個程式碼範例，請從專案的 ThisAddIn 類別中執行程式碼。

注意事項

如果新的 Visio 文件尚未儲存，Microsoft.Office.Interop.Visio.Document.Save 方法會擲回例外狀況 (Exception)。
```
Me.Application.ActiveDocument.Save()
```
```
this.Application.ActiveDocument.Save();
```

注意事項
如果新的 Visio 文件尚未儲存，Microsoft.Office.Interop.Visio.Document.Save 方法會擲回例外狀況 (Exception)。

以新名稱儲存文件

使用 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));

編譯程式碼

這個程式碼範例需要符合下列條件：

在 [我的文件] 資料夾 (Windows XP 和舊版) 或 [文件] 資料夾 (Windows Vista) 中必須有名為 Test 的目錄，才能儲存具有新名稱的文件。

請參閱

Last updated on 2011-08-12

共用方式為