Visio) (Styles.Add 方法

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

語法

運算式。新增 (StyleName、 BasedOn、 fIncludesText、 fIncludesLine、 fIncludesFill)

運算式 代表 Styles 物件的變數。

參數

名稱 必要/選用 資料類型 描述
StyleName 必要 字串 新的樣式名稱。
BasedOn 必要 字串 新樣式所根據的樣式名稱。
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 支援與意見反應。

  • 上次更新時間：