ShapeRange.AutoShapeType Property (PowerPoint)
Returns or sets the shape type for the specified ShapeRange object, which must represent an AutoShape other than a line, freeform drawing, or connector. Read/write.
Syntax
expression .AutoShapeType
expression A variable that represents a ShapeRange object.
Return Value
MsoAutoShapeType
Remarks
Use the Type property of the ConnectorFormat object to set or return the connector type.
Example
This example replaces all 16-point stars with 32-point stars in myDocument.
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
If s.AutoShapeType = msoShape16pointStar Then
s.AutoShapeType = msoShape32pointStar
End If
Next
Note
When you change the type of a shape, the shape retains its size, color, and other attributes.