Propiedad FillFormat.GradientStyle (Publisher)

Devuelve una constante MsoGradientStyle que indica el estilo de degradado del relleno especificado. Solo lectura.

Sintaxis

expresión. GradientStyle

expresión Variable que representa un objeto FillFormat .

Valor devuelto

MsoGradientStyle

Observaciones

Use el método OneColorGradient, PresetGradient o TwoColorGradient para establecer el estilo de degradado del relleno.

Si se intenta devolver esta propiedad para un relleno que no tiene ningún degradado, se genera un error. Use la propiedad Type para determinar si el relleno tiene degradado.

El valor de la propiedad GradientStyle puede ser una de las constantes MsoGradientStyle declaradas en la biblioteca de tipos de Microsoft Office.

Ejemplo

En este ejemplo se agrega un rectángulo a la publicación activa y se establece el estilo de degradado del relleno para que coincida con el de la forma rect1. Para que este ejemplo funcione, rect1 debe tener un relleno degradado.

Dim intStyle As Integer 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store gradient style of rect1. 
 intStyle = .Item("rect1").Fill.GradientStyle 
 ' Add new rectangle. 
 With .AddShape(Type:=msoShapeRectangle, _ 
 Left:=0, Top:=0, Width:=40, Height:=80).Fill 
 ' Set color and gradient of new rectangle. 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .OneColorGradient Style:=intStyle, _ 
 Variant:=1, Degree:=1 
 End With 
End With 

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.