Método Styles.Add (Visio)
Agrega un objeto Style nuevo a una colección Styles.
Sintaxis
expresión. Add (StyleName, BasedOn, fIncludesText, fIncludesLine, fIncludesFill)
Expresión Variable que representa un objeto Styles .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| StyleName | Obligatorio | String | Nombre del nuevo estilo. |
| BasedOn | Obligatorio | String | Nombre del estilo en el que se basa el estilo nuevo. |
| fIncludesText | Obligatorio | Integer | Cero para deshabilitar los atributos de texto o un valor distinto de cero para habilitarlos. |
| fIncludesLine | Obligatorio | Integer | Cero para deshabilitar los atributos de línea o un valor distinto de cero para habilitarlos. |
| fIncludesFill | Obligatorio | Integer | Cero para deshabilitar los atributos de relleno o un valor distinto de cero para habilitarlos. |
Valor devuelto
Estilo
Comentarios
Si no desea basar el nuevo estilo en ningún estilo, pásele una cadena de longitud cero ("") como argumento BasedOn.
Ejemplo:
La macro siguiente muestra cómo agregar objetos Style a la colección Styles. Muestra cómo agregar estilos nuevos basados en estilos existentes o creados a partir de cero.
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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.