本示例将选定的连接符的末端连接至新增的图形上。

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