Método FillFormat.OneColorGradient (PowerPoint)
Define o preenchimento especificado com um gradiente de uma cor.
Sintaxe
expression. OneColorGradient( _Style_, _Variant_, _Degree_ )
Expressão Uma variável que representa um objeto FillFormat .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Estilo | Obrigatório | MsoGradientStyle | O estilo de gradiente. |
| Variant | Obrigatório | Long | A variante de gradiente. Pode ser um valor de 1 a 4, correspondente às quatro variantes na guia Gradiente na guia Preenchimento de Formas . Se Style for msoGradientFromTitle ou msoGradientFromCenter, esse argumento poderá ser 1 ou 2. |
| Degree | Obrigatório | Single | O grau do gradiente. Pode ser um valor entre 0.0 (escuro) e 1.0 (claro). |
Comentários
O valor do parâmetro Style pode ser uma dessas constantes MsoGradientStyle .
| msoGradientDiagonalDown |
| msoGradientDiagonalUp |
| msoGradientFromCenter |
| msoGradientFromCorner |
| msoGradientFromTitle |
| msoGradientHorizontal |
| msoGradientMixed |
| msoGradientVertical |
Exemplo
Este exemplo adiciona um retângulo com um preenchimento gradual de uma cor a myDocument.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill
.ForeColor.RGB = RGB(0, 128, 128)
.OneColorGradient msoGradientHorizontal, 1, 1
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.