Propriedade FillFormat.GradientDegree (Publisher)

Retorna um único que indica o quão escuro ou claro um preenchimento gradual de uma cor é. Um valor 0 (zero) significa que o preto é misturado com a cor de primeiro plano da forma para formar um gradiente; um valor 1 significa que o branco é misturado; e valores entre 0 e 1 indicam que um sombreamento escurecer ou clarear da cor de primeiro plano é misturado. Somente leitura.

Sintaxe

expressão. GradientDegree

Expressão Uma variável que representa um objeto FillFormat .

Valor de retorno

Único

Comentários

Use o método OneColorGradient para definir o grau do gradiente para o preenchimento.

Exemplo

Este exemplo adiciona um retângulo à publicação ativa e define o grau de seu gradiente de preenchimento para que coincida com a forma chamada Rectangle 2. Se Rectangle 2 não tiver preenchimento gradiente de uma cor, este exemplo gera um erro.

Dim sngDegree As Single 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store degree of one-color gradient. 
 sngDegree = .Item("Rectangle 2").Fill.GradientDegree 
 ' Add new rectangle. 
 With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill 
 ' Set color and gradient for new rectangle. 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .OneColorGradient Style:=msoGradientHorizontal, _ 
 Variant:=1, Degree:=sngDegree 
 End With 
End With 

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.