创建一个自选图形。 返回一个 Shape 对象，该对象表示新的自选图形。
语法
expression。 AddShape( _Type_, _Left_, _Top_, _Width_, _Height_ )
expression：一个表示 Shapes 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Type | 必需 | MsoAutoShapeType | 指定要创建的自选形状的类型。 |
| Left | 必需 | Single | 自选形状左边缘相对于幻灯片左边缘的位置（以磅为单位）。 |
| Top | 必需 | Single | 自选形状上边缘相对于幻灯片上边缘的位置（以磅为单位）。 |
| Width | 必需 | Single | 自选形状的宽度（以磅为单位）。 |
| Height | 必需 | Single | 自选形状的高度（以磅为单位）。 |
返回值
Shape
说明
若要更改已添加自选图形的类型，设置 AutoShapeType 属性。
示例
本示例向 myDocument 中添加矩形。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape Type:=msoShapeRectangle, _
Left:=50, Top:=50, Width:=100, Height:=200
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。