全部显示

AddShape 方法

       

创建一个自选图形。返回一个代表新自选图形的 Shape 对象。

expression.AddShape(Type, Left, Top, Width, Height)

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

Type  必选。MsoAutoShapeType 类型。指定要创建的自选图形类型。

Left  必选。Single 类型。自选图形左边缘相对于幻灯片左边缘的位置(以磅为单位)。

Top  必选。Single 类型。自选图形上边缘相对于幻灯片上边缘的位置(以磅为单位)。

Width  必选。Single 类型。自选图形的宽度(以磅为单位)。

Height  必选。Single 类型。自选图形的高度(以磅为单位)。

说明

若要更改添加的自选图形的类型,请设置 AutoShapeType 属性。

示例

本示例在 myDocument中添加一个矩形。

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape Type:=msoShapeRectangle, _
    Left:=50, Top:=50, Width:=100, Height:=200