Propriedade FillFormat.GradientVariant (Word)
Retorna a variação de gradiente do preenchimento especificado como um valor inteiro de 1 a 4 para a maioria dos preenchimentos graduais. Long somente leitura.
Sintaxe
expressão. GradientVariant
Expressão Uma variável que representa um objeto FillFormat .
Comentários
Se o estilo de gradiente for msoGradientFromCenter, essa propriedade retornará 1 ou 2. Os valores dessa propriedade correspondem às variações de gradiente (numeradas da esquerda para a direita e de cima para baixo) na guia gradiente da caixa de diálogo Efeitos de preenchimento.
Use o método OneColorGradient ou TwoColorGradient para definir a variante de gradiente para o preenchimento.
Exemplo
Este exemplo adiciona um retângulo ao documento ativo e define a variante de gradiente de preenchimento para coincidir com o da forma chamada "rect1". Para que o exemplo funcione, rect1 precisa ter um preenchimento gradiente.
Dim lngGradient As Long
With ActiveDocument.Shapes
lngGradient = .Item("rect1").Fill.GradientVariant
With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.OneColorGradient msoGradientHorizontal, _
lngGradient, 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.