Nota
O acceso a esta páxina require autorización. Pode tentar iniciar sesión ou modificar os directorios.
O acceso a esta páxina require autorización. Pode tentar modificar os directorios.
Devuelve el tipo de color de degradado para el relleno especificado. Solo lectura.
Sintaxis
expresión. PresetGradientType
expresión Variable que representa un objeto FillFormat .
Valor devuelto
MsoPresetGradientType
Observaciones
Use el método PresetGradient para establecer el tipo de degradado preestablecido para el relleno.
El valor de la propiedad PresetGradientType puede ser una de estas constantes MsoPresetGradientType.
| msoGradientBrass |
| msoGradientCalmWater |
| msoGradientChrome |
| msoGradientChromeII |
| msoGradientDaybreak |
| msoGradientDesert |
| msoGradientEarlySunset |
| msoGradientFire |
| msoGradientFog |
| msoGradientGold |
| msoGradientGoldII |
| msoGradientHorizon |
| msoGradientLateSunset |
| msoGradientMahogany |
| msoGradientMoss |
| msoGradientNightfall |
| msoGradientOcean |
| msoGradientParchment |
| msoGradientPeacock |
| msoGradientRainbow |
| msoGradientRainbowII |
| msoGradientSapphire |
| msoGradientSilver |
| msoGradientWheat |
| msoPresetGradientMixed |
Ejemplo
En este ejemplo se cambia el relleno de todas las formas de myDocument que tenían el relleno degradado preestablecido Moss por el relleno degradado preestablecido Fog.
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
With s.Fill
If .PresetGradientType = msoGradientMoss Then
.PresetGradient = msoGradientFog
End If
End With
Next
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.