ConnectorFormat.EndConnect 方法 (Excel)

将指定连接线的末端附加到指定形状。 如果已存在的连接符的终点与另一个形状之间的连接，该连接会断开。

如果连接符的终点没有位于指定的连接位置，此方法将连接符的终点移到该连接结点，并调整连接符的位置和大小。

使用 BeginConnect 方法可将连接符的起点连接到形状。

语法

表达式。EndConnect (ConnectedShape、 ConnectionSite)

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

参数

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

备注

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

示例

本示例将两个矩形添加到 myDocument ，并使用曲线连接线连接它们。 请注意，RerouteConnections 方法与为 BeginConnect 和 EndConnect 方法一起使用的 ConnectionSite 参数提供哪些值无关。

Set myDocument = Worksheets(1) 
Set s = myDocument.Shapes 
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100) 
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100) 
Set c = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) 
With c.ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 c.RerouteConnections 
End With

支持和反馈

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