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