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.