Windows(1).Selection.ShapeRange.PickUp Set firstRect = ActivePresentation.Slides(Windows(1).Selection.SlideRange.SlideIndex) _ .Shapes.AddShape(ksoShapeRectangle, 1300, 1000, 2000, 1000)firstRect.Apply