共用方式為

Visio Save As Web (的 VisWebPageSettings 物件)

  • 發行項

包含網頁的設定。

註解

VisWebPageSettings物件可作為網頁屬性的容器。

當使用者選擇 [檔案] 索引標籤>> [匯出變更檔案類型> ] 網頁時，VisWebPageSettings物件的許多屬性會對應至 [另存新檔] 對話方塊中可用的設定 (*.htm) > 另存新檔。

例如，PageTitle屬性包含在瀏覽器中顯示網頁時出現在標題列中的標題，會對應至 [設定頁面標題] 對話方塊中 [頁面標題] 方塊中的值， ([另存新檔] 對話方塊的> [變更標題]) 。

此外，DispScreenRes屬性會對應至 [另存新檔] 對話方塊中 [進階] 索引標籤上[目標監視器] 清單中選取的值， ([另存新檔] 對話方塊 > [另存為類型] 清單 >網頁 (*.htm;*.html) >發佈) 。

當您想要建立網頁時，請使用VisSaveAsWeb物件的WebPageSettings屬性來取得VisWebPageSettings物件的參考，您可以使用此物件來設定網頁的屬性，如下列範例所示。

Public Sub VisWebPageSettingsObject_Example() 
 Dim vsoWebSettings As VisWebPageSettings 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 
 ' Query Visio for the VisSaveAsWeb object. 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 
 ' Get a WebPageSettings object. 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 
 ' Set the title that is displayed in the browser's title bar. 
 .PageTitle = "AccountingDeptOrgChart082501" 
 
 ' Prevent dialog boxes from appearing in the user interface. 
 .QuietMode = True 
 End With 
 
 ' If you don't call the AttachToVisioDoc method to 
 ' identify a specific document, Visio saves the 
 ' active document by default. 
 vsoSaveAsWeb.CreatePages 
End Sub

注意事項

若要在 [物件瀏覽器] 中檢視VisWebPageSettings類別，請確定您在 [Visual Basic 編輯器] 視窗中 (專案中有 [另存為網頁 DLL] 的參考，選擇 [工具] 功能表上的 [參考]，然後在 [可用的參考] 清單) 中選取 [Microsoft Visio 15.0 另存為 Web 類型程式庫] 核取方塊。

方法

屬性

支援和意見反應

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