Propriedade FillFormat.GradientDegree (Word)
Retorna um valor que indica o quão escuro ou claro um preenchimento gradual de uma cor é. Somente leitura único.
Sintaxe
expression. GradientDegree
Expressão Uma variável que representa um objeto FillFormat .
Comentários
Um valor 0 (zero) significa que é misturado preto com a cor de primeiro plano da forma para formar o gradiente, um valor 1 significa que é misturado branco e valores entre 0 e 1 significam que é misturada uma sombra mais escura ou mais clara da cor de primeiro plano.
Use o método OneColorGradient para definir o grau do gradiente para o preenchimento.
Exemplo
Este exemplo adiciona um retângulo ao documento ativo e define o grau do seu gradiente de preenchimento para coincidir com o da forma chamada "Rectangle 2". Se Rectangle 2 não tiver um preenchimento gradual de uma cor, este exemplo falhará.
Dim docActive As Document
Dim sngGradient As Single
Set docActive = ActiveDocument
With docActive.Shapes
sngGradient = .Item("Rectangle 2").Fill.GradientDegree
With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
.ForeColor.RGB = RGB(0, 128, 128)
.OneColorGradient msoGradientHorizontal, 1, sngGradient
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.