Share via

ThreeDFormat.ExtrusionColor Property

  • Article
Publisher Developer Reference

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.

Visual Basic for Applications 
  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

See Also