Метод Styles.Add (Visio)

Добавляет новый объект стиля в коллекцию "Стили ".

Синтаксис

выражение. Добавление (StyleName, BasedOn, fIncludesText, fIncludesLine, fIncludesFill)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
StyleName	Обязательный	String	Название нового стиля.
BasedOn	Обязательный	String	Имя стиля, на котором будет создан новый стиль.
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 и обратная связь.