Export (0) Print
Expand All

ThreeDFormat.ExtrusionColor Property (Word)

Returns a ColorFormat object that represents the color of the shape's extrusion. Read-only.

expression .ExtrusionColor

expression A variable that represents a ThreeDFormat object.

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

Dim docActive As Document 
Dim shapeNew As Shape 
 
Set docActive = ActiveDocument 
Set shapeNew = docActive.Shapes.AddShape(msoShapeOval, _ 
 90, 90, 90, 40) 
With shapeNew.ThreeD 
 .Visible = True 
 .Depth = 50 
 ' RGB value for purple 
 .ExtrusionColor.RGB = RGB(255, 100, 255) 
End With
Show:
© 2015 Microsoft