ThreeDFormat.ExtrusionColor Property (Word)

Office 2013 and later

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

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