AutoShapeType Property

which specifies a Shape object's AutoShape type.

expression.AutoShapeType

expression    Required. An expression that returns one of the objects in the Applies To list.

Remarks

AutoShapes correspond to Shape objects, although the AutoShapeType property for non-Publisher shapes will also return a value. WordArt, OLE, Web Form control, table and picture frame objects should return msoShapeMixed as their AutoShapeType property value. Text frames should return msoShapeRectangle as their AutoShapeType property.

Example

This example converts the selected AutoShape object to a lightning bolt if it is a heart and to a 5-point star if it is not. For this example to execute properly, you must have an AutoShape object selected in the active publication.

Sub ShapeShift()

    Dim srShift As ShapeRange

    Set srShift = Application.ActiveDocument.Selection.ShapeRange
    If srShift.AutoShapeType = msoShapeHeart Then
        srShift.AutoShapeType = msoShapeLightningBolt
    Else
        srShift.AutoShapeType = msoShape5pointStar
    End If

End Sub