SetExtrusionDirection Method
Applies To
ThreeDFormat object.
Description
Sets the direction that the extrusion's sweep path takes away from the extruded shape.
Syntax
expression.SetExtrusionDirection(PresetExtrusionDirection)
expression Required. An expression that returns a ThreeDFormat object.
PresetExtrusionDirection Required Long. Specifies the extrusion direction. Can be one of the following MsoPresetExtrusionDirection constants: msoExtrusionBottom, msoExtrusionBottomLeft, msoExtrusionBottomRight, msoExtrusionLeft, msoExtrusionNone, msoExtrusionRight, msoExtrusionTop, msoExtrusionTopLeft, or msoExtrusionTopRight.
Remarks
This method sets the PresetExtrusionDirection property to the direction specified by the PresetExtrusionDirection argument.
Example
This example specifies that the extrusion for shape one on myDocument extend toward the top of the shape and that the lighting for the extrusion come from the left.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
.Visible = True
.SetExtrusionDirection msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With