Propriedade FillFormat.GradientVariant (Publisher)

Retorna um Long indicando a variante de gradiente para o preenchimento especificado. Geralmente, os valores são números inteiros de 1 a 4 para a maioria dos preenchimentos de gradiente. Se o estilo de gradiente for msoGradientFromTitle ou 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. Somente leitura.

Sintaxe

expressão. GradientVariant

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

Valor de retorno

Long

Comentários

Use o método OneColorGradient, PresetGradient ou TwoColorGradient para definir a variante de gradiente para o preenchimento.

Exemplo

Este exemplo adiciona um retângulo à publicação ativa e define sua variante de gradiente de preenchimento para coincidir com a forma chamada rect1. Para que o exemplo funcione, rect1 precisa ter um preenchimento de gradiente.

Dim intVariant As Integer 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store gradient variant of rect1. 
 intVariant = .Item("rect1").Fill.GradientVariant 
 ' Add new rectangle. 
 With .AddShape(Type:=msoShapeRectangle, _ 
 Left:=0, Top:=0, Width:=40, Height:=80).Fill 
 ' Set color and gradient of new rectangle. 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .OneColorGradient Style:=msoGradientHorizontal, _ 
 Variant:=intVariant, Degree:=1 
 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.