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 estilo de gradiente para o preenchimento especificado. Somente leitura.
Sintaxe
expressão. GradientStyle
expressão Uma variável que representa um objeto FillFormat .
Valor de retorno
MsoGradientStyle
Comentários
Use o método OneColorGradient, PresetGradient ou TwoColorGradient para definir o estilo de gradiente para o preenchimento. A tentativa de retornar essa propriedade para um preenchimento que não tenha um gradiente irá gerar um erro. Use a propriedade Type para determinar se o preenchimento tem um gradiente.
O valor retornado pela propriedade GradientStyle pode ser uma destas constantes MsoGradientStyle.
| msoGradientDiagonalDown |
| msoGradientDiagonalUp |
| msoGradientFromCenter |
| msoGradientFromCorner |
| msoGradientFromTitle |
| msoGradientHorizontal |
| msoGradientMixed |
| msoGradientVertical |
Exemplo
Este exemplo adiciona um retângulo a myDocument e define seu estilo de gradiente para coincidir com a forma chamada "rect1". Para que o exemplo funcione, rect1 deve ter um preenchimento gradual.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
gradStyle1 = .Item("rect1").Fill.GradientStyle
With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.OneColorGradient gradStyle1, 1, 1
End With
End With
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.