ShapeRange.AutoShapeType Property
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.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
Property AutoShapeType As MsoAutoShapeType
Get
Set
'Usage
Dim instance As ShapeRange
Dim value As MsoAutoShapeType
value = instance.AutoShapeType
instance.AutoShapeType = value
MsoAutoShapeType AutoShapeType { get; set; }
Property Value
Type: Microsoft.Office.Core.MsoAutoShapeType
[MsoAutoShapeType#SameCHM]
Remarks
Use the Type property of the ConnectorFormat object to set or return the connector type.
Examples
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