Метод Styles.Add (Visio)

Добавляет новый объект Style в коллекцию Styles .

Синтаксис

expression. Add (StyleName, BasedOn, fIncludesText, fIncludesLine, fIncludesFill)

Выражение Переменная, представляющая объект Styles .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
StyleName	Обязательный	String	Новое имя стиля.
BasedOn	Обязательный	String	Имя стиля, на котором будет основываться новый стиль.
fIncludesText	Обязательный	Integer	Ноль, чтобы отключить текстовые атрибуты, или ненулевая, чтобы включить их.
fIncludesLine	Обязательный	Integer	Ноль, чтобы отключить атрибуты строки, или ненулевая, чтобы включить их.
fIncludesFill	Обязательный	Integer	Ноль, чтобы отключить атрибуты заполнения, или ненулевая, чтобы включить их.

Возвращаемое значение

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 и обратная связь.