AutoShapeType 属性

返回或设置指定的 Shape 对象或 ShapeRange 对象的形状类型，该对象必须代表自选图形，而不能是直线、任意多边形或连接符。MsoAutoShapeType 类型，可读写。

注意   更改形状的类型时，形状将保留其大小、颜色和其他属性。

expression   必需。该表达式返回“应用于”列表中的对象之一。

说明

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

示例

本示例将 myDocument 中所有的 16 磅星形替换为 32 磅星形。

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