本示例在当前演示文稿中的第一张幻灯片添加一个矩形。

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