Share via

ThreeDFormat.ExtrusionColor Property (Publisher)

  • Article

Returns a ColorFormat object representing the color of the shape's extrusion.

Syntax

expression .ExtrusionColor

expression A variable that represents an ThreeDFormat object.

Return Value

ColorFormat

Example

This example adds an oval to the active publication, and then specifies that the oval be extruded to a depth of 50 points and that the extrusion be purple.

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 3-D properties of the oval. 
With shpNew.ThreeD 
 .Visible = True 
 .Depth = 50 
 .ExtrusionColor.RGB = RGB(255, 100, 255) 
End With