Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Devuelve el estilo de degradado del relleno especificado. MsoGradientStyle de solo lectura.
Sintaxis
expresión. GradientStyle
expresión Expresión que representa un objeto FillFormat .
Observaciones
Esta propiedad es de sólo lectura. Use el método OneColorGradient 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.
Ejemplo
En este ejemplo, se agrega un rectángulo al documento activo y se establece su estilo de degradado de relleno para que coincida con el de la forma denominada "rect1". Para que el ejemplo funcione, rect1 debe tener un relleno degradado.
Dim docActive As Document
Dim lngGradient As Long
Set docActive = ActiveDocument
With docActive.Shapes
lngGradient = .Item("rect1").Fill.GradientStyle
With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.OneColorGradient lngGradient, 1, 1
End With
End With
Vea también
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.