Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Retorna o tipo de gradiente predefinido para o preenchimento especificado. Somente leitura.
Sintaxe
expressão. PresetGradientType
expressão Uma variável que representa um objeto FillFormat .
Valor de retorno
MsoPresetGradientType
Comentários
Use o método PresetGradient para definir o tipo de gradiente predefinido para o preenchimento.
O valor da propriedade PresetGradientType pode ser uma destas 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 |
Exemplo
Este exemplo altera o preenchimento de todas as formas de myDocument com o preenchimento gradual predefinido Moss para o preenchimento gradual predefinido 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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.