EndConnect 方法

       

将指定的连接符的终点连接到指定的图形上。如果在连接符的终点与其他形状之间已经有了连接,那么该已有的连接将中断。如果连接符的终点不在所需的连接站点,本方法将把连接符的终点移到该连接站点,并对连接符的大小和位置作相应的调整。可用 BeginConnect 方法将连接符的起点连接到某一图形上。

expression.EndConnect(ConnectedShape, ConnectionSite)

expression  必需。该表达式返回一个 ConnectorFormat 对象。

ConnectedShape  Shape 对象类型,必需。要连接到连接符的终点上的图形。此处所指定的 Shape 对象必须与连接符处于同一 Shapes 集合中。

ConnectionSite  Long 类型,必需。由 ConnectedShape 参数所指定的形状上的连接站点。必须是从 1 到指定图形的 ConnectedShape 属性值之间的整数。如果要找到连接符连接两个图形的最短路径,则可先在此参数中指定任一有效值,然后在连接符与两端的图形连接完成之后,使用 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