共用方式為

使用 Visual Basic 中的 Save as Web Page 物件模型：範例

  • 發行項

若要在 Visual Basic 專案中使用另存為網頁 API，請將專案中的參考設定 為 Microsoft Visio 15.0 另存為 Web 類型程式庫。

注意事項

在 Visio 隨附的 Visual Basic 編輯器中，您可以選擇 [工具] 功能表上的 [參考] 來尋找可用的參考清單。 在 Visual Basic 6.0 中，您可以選擇 [專案] 功能表上的 [參考]，以找到此清單。

另存成網頁模型包含兩個類別： VisSaveAsWeb 和 VisWebPageSettings，分別實作 IVisSaveAsWeb 和 IVisWebPageSettings 介面。

  • VisSaveAsWeb物件會實作執行網頁建立程式的方法。
  • VisWebPageSettings物件包含網頁專案的屬性。

當您建立網頁及其支援檔案 (也稱為網頁專案) 時，您通常會遵循下列步驟：

  1. 使用Visio Application物件的SaveAsWebObject屬性來取得VisSaveAsWeb物件的實例。

  2. 使用VisSaveAsWeb物件的WebPageSettings屬性來取得VisWebPageSettings物件的參考，您可以使用該物件來取得或設定專案的網頁設定。

  3. 設定 VisWebPageSettings 物件的 屬性。

    注意事項

    您必須一律為檔案提供目標路徑。

  4. 呼叫 AttachToVisioDoc 方法，以識別要儲存為網頁的檔。 如果您未指定要儲存的檔，則會儲存使用中的繪圖。

  5. 呼叫 CreatePages 方法以開始另存為網頁作業。

下列程式示範如何開啟新的網頁專案、設定選取的屬性，以及建立網頁檔案。

Public Sub SaveAsWeb () 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 ' Get a VisSaveAsWeb object that 
 ' represents a new webpage project. 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 
 ' Get a VisWebPageSettings object. 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 ' Configure preferences. 
 With vsoWebSettings 
 .StartPage = 1 
 .EndPage = 2 
 .QuietMode = True 
 .TargetPath = "c:\your_folder_name\your_filename.htm" 
 End With 
 
 ' Create the pages. Because no particular document 
 ' is specified, the active drawing is saved. 
 vsoSaveAsWeb.CreatePages 
End Sub

支援和意見反應

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