閱讀英文

共用方式為


Styles.Add 方法 (Visio)

會將新的 Style 物件加入到 Styles 集合中。

語法

運算式新增 (StyleNameBasedOnfIncludesTextfIncludesLinefIncludesFill)

表達 代表 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 支援與意見反應