object representing the color of the shape's extrusion.
expression.ExtrusionColor
expression Required. An expression that returns one of the objects in the Applies To list.
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