Compartilhar via

Propriedade ThreeDFormat.ExtrusionColor (Publisher)

  • Artigo

Retorna um objeto ColorFormat representando a cor da extrusão da forma.

Sintaxe

expressão. ExtrusionColor

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

Valor de retorno

ColorFormat

Exemplo

Este exemplo adiciona uma elipse à publicação ativa e, em seguida, especifica que a elipse sofra extrusão a uma profundidade de 50 pontos e que a extrusão seja roxa.

Dim shpNew As Shape 
 
' Set a reference to a new oval. 
Set shpNew = ActiveDocument.Pages(1).Shapes _ 
 .AddShape(Type:=msoShapeOval, _ 
 Left:=90, Top:=90, Width:=90, Height:=40) 
 
' Format the 3D properties of the oval. 
With shpNew.ThreeD 
 .Visible = True 
 .Depth = 50 
 .ExtrusionColor.RGB = RGB(255, 100, 255) 
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.