VisSaveAsWeb.CreatePages 方法

起始網頁建立。

語法

運算式。CreatePages

運算式 傳回 VisSaveAsWeb 物件的運算式。

傳回值

Nothing

註解

因為 VisSaveAsWeb 物件會使用其 VisWebPageSettings 物件中的設定來建立網頁，所以您應該在對 VisWebPageSettings 物件進行任何必要的變更之後，呼叫 CreatePages 方法。

若要指定要儲存為網頁的文件，請使用 AttachToVisioDoc 方法。 如果未指定任何文件，Microsoft Visio 預設會儲存使用中的文件。

範例

下列範例示範如何使用 [另存成網頁] 功能的預設設定以及 AttachToVisioDoc 和 CreatePages 方法，開啟現有的檔案並將它儲存為網頁。 在執行此範例之前，請取代 path\filename 為要傳遞給 Open 方法的 Visio 文件有效路徑和檔案名稱。 此外，請取代 targetpath\filename 為網頁專案檔案的有效目標路徑和檔案名稱。

Public Sub CreatePages_Example () 
    Dim vsoSaveAsWeb As VisSaveAsWeb 
    Dim vsoWebSettings As VisWebPageSettings 
    Dim vsoDocument As Visio.Document
 
    Set vsoDocument = Application.Documents.Open("path\filename") 
    Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
    Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
 
    vsoWebSettings.TargetPath = "targetpath\filename"
    
    With vsoSaveAsWeb
        .AttachToVisioDoc vsoDocument
        .CreatePages 
    End With
End Sub

支援和意見反應

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