共用方式為

Visio) (Application.SaveAsWebObject 屬性

  • 發行項

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

語法

運算式。SaveAsWebObject

expression 代表 Application 物件的變數。

傳回值

物件

註解

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

若要能夠使用儲存為網頁 API，您必須在 Microsoft Visual Basic 或 Microsoft Visual Basic for Applications (VBA) 專案中取得 Microsoft Visio 14.0 另存為 Web 類型 程式庫的參考。 若要在 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 Application 物件，並將其傳遞至 SaveAsWeb 程式，以取得 VisSaveAsWeb 物件、設定設定，以及建立網頁。

執行此宏之前，請如上所述取得 Microsoft Visio 14.0 另存為 Web 類型程式庫 的參考，並將程式碼中的 取代 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 支援與意見反應。