PresetExtrusionDirection Property

Microsoft Publisher Visual Basic

constant that represents the direction taken by the extrusion's sweep path leading away from the extruded shape (the front face of the extrusion). Read-only.

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 the extrusion for the first shape on the first page of the active publication if the extrusion extends toward the upper-left corner of the extrusion's front face. For this example to work, the specified shape must be a 3-D shape.

Sub SetExtrusion()
    With ActiveDocument.Pages(1).Shapes(1).ThreeD
        If .PresetExtrusionDirection = msoExtrusionTopLeft Then
           .SetExtrusionDirection msoExtrusionBottomRight
        End If
    End With
End Sub