ThreeD Property
Applies To
Shape object, ShapeRange collection object.
Description
Returns a ThreeDFormat object that contains 3-D effect formatting properties for the specified shape. Read-only.
Example
This example sets the depth, extrusion color, extrusion direction, and lighting direction for the 3-D effects applied to shape one on myDocument.
Set myDocument = ActiveDocument
With myDocument.Shapes(1).ThreeD
.Visible = True
.Depth = 50
.ExtrusionColor.RGB = RGB(255, 100, 255) ' RGB value for purple.
.SetExtrusionDirection msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With