Share via

ExtrusionColor Property [Publisher 2003 VBA Language Reference]

  • Article

Returns a ColorFormat 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

Applies to | ThreeDFormat Object