Propiedad FillFormat.GradientDegree (Publisher)

Devuelve un único que indica lo oscuro o claro que tiene un relleno de degradado de un color. Un valor de 0 (cero) significa que el negro se mezcla con el color de primer plano de la forma para formar el degradado; un valor de 1 significa que se mezcla el blanco; y los valores comprendidos entre 0 y 1 significan que se mezcla una sombra más oscura o más clara del color de primer plano. Solo lectura.

Sintaxis

expresión. GradientDegree

expresión Variable que representa un objeto FillFormat .

Valor devuelto

Simple

Observaciones

Utilice el método OneColorGradient para establecer el grado de degradado para el relleno.

Ejemplo

En este ejemplo se agrega un rectángulo a la publicación activa y se establece el grado del degradado de su relleno para que coincida con el de la forma Rectángulo 2. Si la forma Rectángulo 2 no tiene un relleno degradado de un color, este ejemplo produce un error.

Dim sngDegree As Single 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store degree of one-color gradient. 
 sngDegree = .Item("Rectangle 2").Fill.GradientDegree 
 ' Add new rectangle. 
 With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill 
 ' Set color and gradient for new rectangle. 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .OneColorGradient Style:=msoGradientHorizontal, _ 
 Variant:=1, Degree:=sngDegree 
 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.