Excel VBA教程:BeginConnect方法

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

expression.BeginConnect(ConnectedShape, ConnectionSite)

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

ConnectedShape  Shape对象,必需。连接到连接符起点的图形。指定的 Shape对象必须和连接符在同一个 Shapes集合中。

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

说明

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

Excel VBA教程:BeginConnect方法·示例

本示例向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教程:BarGroups方法 下页:Excel VBA教程:BeginDisconnect方法

Excel VBA教程:BeginConnect方法

Excel VBA教程:BeginDisconnect方法 Excel VBA教程:BorderAround方法
Excel VBA教程:BreakLink方法 Excel VBA教程:BringToFront方法
Excel VBA教程:BuildFreeform方法 Excel VBA教程:Calculate方法
Excel VBA教程:CalculatedFields方法 Excel VBA教程:CalculatedItems方法
Excel VBA教程:CalculateFull方法 Excel VBA教程:CalculateFullRebuild方法
Excel VBA教程:CancelRefresh方法 Excel VBA教程:CanCheckIn方法
Excel VBA教程:CanCheckOut方法 Excel VBA教程:CentimetersToPoints方法
Excel VBA教程:ChangeFileAccess方法 Excel VBA教程:ChangeLink方法
Excel VBA教程:ChangePassword方法 Excel VBA教程:ChangeScenario方法
Excel VBA教程:Characters方法 Excel VBA教程:ChartGroups方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号