全部显示

AutoShapeType 属性

返回或设置指定的 Shape 或 ShapeRange 对象的图形类型，该对象不是代表线条或任意多边形，而是代表自选图形。MsoAutoShapeType，可读写。

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

说明

改变图形类型时，图形保留原来的大小、颜色和其他属性。

示例

本示例将活动文档中的所有 16 磅星形替换为 32 磅星形。

Sub ReplaceAutoShape()
    Dim docNew As Document
    Dim shpStar As Shape
    Set docNew = ActiveDocument
    For Each shpStar In docNew.Shapes
        If shpStar.AutoShapeType = msoShape16pointStar Then
            shpStar.AutoShapeType = msoShape32pointStar
        End If
    Next
End Sub