Styles.Add 方法 (Visio)
将新的 Style 对象添加到 Styles 集合。
表达式。添加 (StyleName、 BasedOn、 fIncludesText、 fIncludesLine、 fIncludesFill)
表达 一个代表 Styles 对象的变量。
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
StyleName | 必需 | 字符串 | 新样式的名称。 |
BasedOn | 必需 | 字符串 | 新样式基于的样式的名称。 |
fIncludesText | 必需 | Integer | 零,禁用文本属性;不为零,则启用这些属性。 |
fIncludesLine | 必需 | Integer | 零,禁用线条属性;不为零,则启用这些属性。 |
fIncludesFill | 必需 | Integer | 零,禁用填充属性;不为零,则启用该属性。 |
样式
要将新样式基于无样式,请为 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。