Propriedade FillFormat.GradientStyle (Publisher)

Retorna uma constante MsoGradientStyle indicando o estilo de gradiente para o preenchimento especificado. Somente leitura.

Sintaxe

expressão. Gradientstyle

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

Valor de retorno

MsoGradientStyle

Comentários

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

A tentativa de retornar essa propriedade para um preenchimento que não tenha um gradiente irá gerar um erro. Use a propriedade Type para determinar se o preenchimento tem um gradiente.

O valor da propriedade GradientStyle pode ser uma das constantes MsoGradientStyle declaradas na biblioteca de tipos do Microsoft Office.

Exemplo

Este exemplo adiciona um retângulo à publicação ativa e define seu estilo de gradiente de preenchimento para que coincida com o da forma chamada rect1. Para que o exemplo funcione, rect1 precisa ter um preenchimento de gradiente.

Dim intStyle As Integer 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store gradient style of rect1. 
 intStyle = .Item("rect1").Fill.GradientStyle 
 ' 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:=intStyle, _ 
 Variant:=1, 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.