Excel VBA教程:EndConnect方法

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

expression.EndConnect(ConnectedShape, ConnectionSite)

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

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

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

说明

将连接符连接到某一对象上时,该连接符的尺寸和位置都将自动作必要调整。

Excel VBA教程:EndConnect方法·示例

本示例向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

上页:Excel VBA教程:获取有关 Macintosh 关键字的帮助 下页:Excel VBA教程:EndDisconnect方法

Excel VBA教程:EndConnect方法

Excel VBA教程:EndDisconnect方法 Excel VBA教程:EndReview方法
Excel VBA教程:ErrorBar方法 Excel VBA教程:Evaluate方法
Excel VBA教程:ExclusiveAccess方法 Excel VBA教程:Execute方法
Excel VBA教程:ExecuteExcel4Macro方法 Excel VBA教程:Export方法
Excel VBA教程:Extend方法 Excel VBA教程:FillAcrossSheets方法
Excel VBA教程:FillDown方法 Excel VBA教程:FillLeft方法
Excel VBA教程:FillRight方法 Excel VBA教程:FillUp方法
Excel VBA教程:Find方法 Excel VBA教程:FindFile方法
Excel VBA教程:FindNext方法 Excel VBA教程:FindPrevious方法
Excel VBA教程:Flip方法 Excel VBA教程:Follow方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号