Свойство Document.Styles (Visio)

Возвращает коллекцию Стилей для документа. Только для чтения.

Синтаксис

expression. Стили

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

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

Стили

Пример

В следующем макросе показано, как использовать свойство Styles для добавления объектов Style в коллекцию Styles . В ней показано, как добавить новый стиль на основе существующего стиля, а также как добавить новый стиль, созданный с нуля.

 
Public Sub Styles_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 style Basic Shadow and includes 
 'only a Fill style. 
 Set vsoStyles = vsoDocument.Styles 
 Set vsoStyle = vsoStyles.Add("My FillStyle", "Basic Shadow", 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 и обратная связь.