本示例为活动演示文稿添加一条连接线。
ActivePresentation.Slides(1).Shapes.AddConnector ksoConnectorCurve, 100, 100, 500, 500