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

Observaciones

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.