Compartilhar via


Método Styles.Add (Visio)

Adiciona um novo objeto Style a uma coleção Styles.

Sintaxe

expressão. Adicionar (StyleName, BasedOn, fIncludesText, fIncludesLine, fIncludesFill)

Expressão Uma variável que representa um objeto Styles .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
StyleName Obrigatório String O nome do novo estilo.
BasedOn Obrigatório String O nome do estilo no qual o novo estilo se baseia.
fIncludesText Obrigatório Integer Zero para desabilitar atributos de texto ou diferente de zero para habilitá-los.
fIncludesLine Obrigatório Integer Zero para desabilitar atributos de linha ou diferente de zero para habilitá-los.
fIncludesFill Obrigatório Integer Zero para desabilitar atributos de preenchimento ou diferente de zero para habilitá-los.

Valor de retorno

Style

Comentários

Para não basear o novo estilo em estilo nenhum, passe uma sequência de caracteres de comprimento zero ("") para o argumento BasedOn.

Exemplo

A macro a seguir mostra como adicionar objetos Style à coleção Styles. Ela mostra como adicionar um novo estilo baseado em um estilo existente, bem como adicionar um novo estilo criado a partir do zero.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.