通过

ConnectorFormat.EndConnect 方法 (PowerPoint)

  • 项目

将指定连接线的末端附加到指定形状。

语法

expression. EndConnect( _ConnectedShape_, _ConnectionSite_ )

表达 一个代表 ConnectorFormat 对象的变量。

参数

名称 必需/可选 数据类型 说明
ConnectedShape 必需 Shape 要连接到连接符的终点的形状。 指定的 形状 对象必须是同一与连接器的 Shapes 集合中。
ConnectionSite 必需 Long 由 ConnectedShape 指定的形状上的连接点。 必须是 1 到指定形状的 ConnectionSiteCount 属性返回的整数之间的整数。 如果您想要自动查找最短的路径连接两个形状之间的连接器，指定该参数的任何有效的整数，并将 RerouteConnections 方法后连接器附着在两端的形状。

备注

如果已存在的连接符的终点与另一个形状之间的连接，该连接会断开。 如果连接符的终点没有位于指定的连接位置，此方法将连接符的终点移到该连接结点，并调整连接符的位置和大小。 使用 BeginConnect 方法将连接符的起点连接到形状。

将连接符连接到某个对象以后，该连接符的大小和位置将在必要时进行自动调整。

示例

本示例向当前演示文稿第一张幻灯片中添加两个矩形，并用曲线连接符将它们连接起来。 请注意， RerouteConnections 方法可以使这不相关与 BeginConnect 和 EndConnect 方法使用 ConnectionSite 参数提供的值。

Set myDocument = ActivePresentation.Slides(1)

Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
        .ConnectorFormat
    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
    .Parent.RerouteConnections
End With

另请参阅

ConnectorFormat 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。