通过

Word) (Shape.AutoShapeType 属性

  • 项目

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

语法

表达式。AutoShapeType

expression 是必需的。 一个代表 Shape 对象的变量。

备注

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

示例

本示例将活动文档中的所有 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

另请参阅

形状对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。