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