Returns the direction that the extrusion's sweep path takes away from the extruded shape (the front face of the extrusion). Read-only MsoPresetExtrusionDirection.
| MsoPresetExtrusionDirection can be one of these MsoPresetExtrusionDirection constants. |
| msoExtrusionBottom |
| msoExtrusionBottomLeft |
| msoExtrusionBottomRight |
| msoExtrusionLeft |
| msoExtrusionNone |
| msoExtrusionRight |
| msoExtrusionTop |
| msoExtrusionTopLeft |
| msoExtrusionTopRight |
| msoPresetExtrusionDirectionMixed |
expression.PresetExtrusionDirection
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
This property is read-only. To set the value of this property, use the SetExtrusionDirection method.
Example
This example changes each extrusion on myDocument that extends toward the upper-left corner of the extrusion's front face to an extrusion that extends toward the lower-right corner of the front face.
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
With s.ThreeD
If .PresetExtrusionDirection = msoExtrusionTopLeft Then
.SetExtrusionDirection msoExtrusionBottomRight
End If
End With
Next