本示例将实现连接符的末端与自选图形的最后一个连接部位相连。运行该例子前,假定第一个窗口中存在一个带顶点的自选图形(如:矩形)和一条连接符,并已选中该连接符 ,请确保带顶点自选图形是第一个图形。

With ActivePresentation.Slides(Windows(1).Selection.SlideRange.SlideIndex)
    Windows(1).Selection.ShapeRange.ConnectorFormat.EndConnect .Shapes(1), .Shapes(1).ConnectionSiteCount
End With