Styles.Add 方法 (Visio)
會將新的 Style 物件加入到 Styles 集合中。
運算式。新增 (StyleName、 BasedOn、 fIncludesText、 fIncludesLine、 fIncludesFill)
表達 代表 Styles 物件的變數。
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
StyleName | 必要 | 字串 | 新的樣式名稱。 |
BasedOn | 必要 | String | 新樣式所根據的樣式名稱。 |
fIncludesText | 必要 | 整數 | 零表示停用文字屬性,非零的值則表示啟用文字屬性。 |
fIncludesLine | 必要 | 整數 | 零表示停用線條屬性,非零的值則表示啟用線條屬性。 |
fIncludesFill | 必要 | 整數 | 零表示停用填滿屬性,非零的值則表示啟用填滿屬性。 |
Style
新的樣式若不要根據任何樣式,請為 BasedOn 引數傳遞長度為零的字串 ("")。
下列宏示範如何將 Style 物件新增至 Styles 集合。 它會示範如何根據現有的樣式新增樣式,以及如何新增從頭建立的新樣式。
Public Sub AddStyle_Example()
Dim vsoDocument As Visio.Document
Dim vsoStyles As Visio.Styles
Dim vsoStyle As Visio.Style
'Add a document based on the Basic Diagram template.
Set vsoDocument = Documents.Add("Basic Diagram.vst")
'Add a style named "My FillStyle" to the Styles collection.
'This style is based on the Basic style and includes
'only a Fill style.
Set vsoStyles = vsoDocument.Styles
Set vsoStyle = vsoStyles.Add("My FillStyle", "Basic", 0, 0, 1)
'Add a style named "My NoStyle" to the Styles collection.
'This style is not based on an existing style and includes
'Text, Line, and Fill styles.
Set vsoStyle = vsoStyles.Add("My NoStyle", "", 1, 1, 1)
End Sub
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。