AutoShapeType 属性

为指定的 Shape 或 ShapeRange 对象返回或设置形状类型，除了直线、任意多边形图形或连接符外，必须表示一 AutoShape。可读写。MsoAutoShapeType 类型。

expression  必选。该表达式返回“应用于”列表中的对象之一。可读写。Long 类型。

注意  改变一个形状的类型时，该形状保留其大小、颜色和其他属性。

说明

使用 ConnectorFormat 对象的 Type 属性设置或返回连接符类型。

示例

本示例在 myDocument 中用 16 角星替换所有 32 角星。

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    If s.AutoShapeType = msoShape16pointStar Then
        s.AutoShapeType = msoShape32pointStar
    End If
Next