Propiedad FillFormat.GradientVariant (Publisher)

Devuelve un Long que indica la variante de degradado para el relleno especificado. Por lo general, los valores son números enteros del 1 al 4 para la mayoría de los rellenos de degradado. Si el estilo de degradado es msoGradientFromTitle o msoGradientFromCenter, esta propiedad devuelve 1 o 2.

Los valores de esta propiedad corresponden a las variantes de degradado (numeradas de izquierda a derecha y de arriba a abajo) en la ficha degradado en el cuadro de diálogo Efectos de relleno. Solo lectura.

Sintaxis

expresión. GradientVariant

expresión Variable que representa un objeto FillFormat .

Valor devuelto

Long

Observaciones

Utilice el método OneColorGradient, PresetGradient o TwoColorGradient para establecer la variante de degradado para el relleno.

Ejemplo

En este ejemplo se agrega un rectángulo a la publicación activa y se establece la variante 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 intVariant As Integer 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store gradient variant of rect1. 
 intVariant = .Item("rect1").Fill.GradientVariant 
 ' 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:=msoGradientHorizontal, _ 
 Variant:=intVariant, 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.