指定由 Microsoft Visio 提供的階層式樣式表 (CSS) ,或您自行建立的樣式表,套用至網頁。 讀取/寫入。
語法
運算式。樣式表
運算式 傳回 VisWebPageSettings 物件的運算式。
傳回值
字串
註解
樣式表可以是 Visio 提供的樣式表,也可以是您自己建立的樣式表。 如果您將建立的樣式表儲存在下列資料夾中,它會出現在 [另存新檔網頁] 對話方塊的 [進階] 索引標籤的 [樣式表] 下拉式清單中 (BackstageButton 索引標籤 >另存新檔> 另存新檔類型清單 >網頁 (*.htm;*.html) >發佈>進階) :
\ your_Visio_path\ your_language_ID\
Visio 會搜尋以語言識別碼命名的資料夾來識別樣式表,例如,1033) CSS 檔案 (。
範例
下列Microsoft Visual Basic for Applications (VBA) 巨集 示範如何使用 Stylesheet 屬性,將 Visio) 提供的 Steel 樣式表 (指派給您正在建立的網頁。
執行此巨集之前,請以 path\filename.htm 電腦上的有效目標路徑和您想要指派給網頁的檔案名稱取代。 此外,將 and your_language_ID 取代your_Visio_path為電腦上的 Visio 樣式表路徑,例如:
C:\Program Files\Microsoft Office\Visio14\1033...
Public Sub Stylesheet_Example()
Dim vsoSaveAsWeb As VisSaveAsWeb
Dim vsoWebSettings As VisWebPageSettings
Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject
Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
With vsoWebSettings
.Stylesheet = "your_Visio_path\your_language_ID\Steel.css"
.TargetPath = "path\filename.htm"
End With
vsoSaveAsWeb.CreatePages
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。