Visio) (Application.SaveAsWebObject 屬性

會傳回 VisSaveAsWeb 物件的 IDispatch 介面的參考。 唯讀。

語法

運算式。SaveAsWebObject

expression 代表 Application 物件的變數。

傳回值

物件

註解

一旦有了 VisSaveAsWeb 物件的參考，您就可以使用另存為網頁 API 的物件、方法和屬性，將 Microsoft Visio 文件發佈到 Web。 如需另存成網頁 API 的詳細資訊，請在 MSDN 上搜尋「另存成網頁 API」。

若要使用另存成網頁 API，您必須在 Microsoft Visual Basic 或 Visual Basic for Applications (VBA) 專案中取得 Microsoft Visio 14.0 另存為網頁型文件庫 的參考Microsoft。 若要在 VBA 中引用這個項目，請使用下列步驟：

  1. 在 [開發人員] 索引標籤的 [程式碼] 群組中，按一下 [Visual Basic]。

  2. 按一下 [工具] 功能表中的 [參照]。

  3. 選取 [可用的參考] 清單中的 [Microsoft Visio 14.0 Save As Web Type Library]，然後按一下 [確定]。

如果 Visual Studio 解決方案包括 Microsoft.Office.Interop.Visio 參照，這個屬性會對應至下列類型:

  • Microsoft.Office.Interop.Visio.IVApplication.SaveAsWebObject

範例

此 VBA 巨集示範如何使用 SaveAsWebObject 屬性來取得 VisSaveAsWeb 物件。 它也會說明如何取得 VisWebPageSettings 物件、設定網頁設定，以及建立網頁以顯示使用中的 Visio 文件。 巨集會取得 Visio 應用程式 物件，並將它傳遞給 SaveAsWeb 程序，後者會取得 VisSaveAsWeb 物件、設定設定，並建立網頁。

執行此巨集之前，請如上述取得 Microsoft Visio 14.0 另存為網頁型文件庫 的參考，然後 path\filename 以您要在電腦上建立以顯示網頁的 .htm 檔案的完整路徑和名稱取代程式碼。

 
Public Sub SaveAsWebObject_Example 
 
    Dim vsoApplication as Visio.Application 
    Call SaveAsWeb(vsoApplication) 
 
End Sub 
 
 
Public Sub SaveAsWeb (vsoApplication as Visio.Application) 
 
    Dim objSaveAsWeb As IVisSaveAsWeb 
    Dim objWebPageSettings As IVisWebPageSettings 
 
    ' Get a VisSaveAsWeb object that  
    ' represents a new webpage project 
    Set objSaveAsWeb = Application.SaveAsWebObject 
 
    ' Get a VisWebPageSettings object 
    Set objWebPageSettings = objSaveAsWeb.WebPageSettings 
 
    ' Configure Web-page settings 
    objWebPageSettings.StartPage = 1 
    objWebPageSettings.EndPage = 2 
    objWebPageSettings.LongFileNames = True 
    objWebPageSettings.TargetPath = "path\filename " 
 
    ' Now create the pages; because we did not identify  
    ' a particular document, the active document is saved 
    objSaveAsWeb.CreatePages 
 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。

  • Last updated on