ShapeRange.RerouteConnections 方法 (Excel)

此方法重新路由连接到指定形状的所有连接线;如果指定的形状是连接线，则会重新路由该形状。

语法

表达式。RerouteConnections

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

备注

重置连接符，使它们可以采用最短的路径连接的形状。 若要执行此操作， RerouteConnections 方法可能会分离接头两端并将它们重新连接到已连接的形状上的不同连接站点。

如果此方法应用于连接器，则只会重新路由该连接器。 如果此方法应用于已连接的形状，则将重新路由到该形状的所有连接线。

示例

本示例将两个矩形添加到 myDocument，用曲线连接符连接两个矩形，然后重排连接符使两个矩形间采用最短的路径。

请注意， RerouteConnections 方法调整连接器的大小和位置，并确定它附加到哪些连接站点，因此最初为 ConnectionSite 参数指定的值与 BeginConnect 和 EndConnect 方法一起使用是不相关的。

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 newConnector = s.AddConnector(msoConnectorCurve, _ 
 0, 0, 100, 100) 
With newConnector.ConnectorFormat 
 .BeginConnect firstRect, 1 
 .EndConnect secondRect, 1 
End With 
newConnector.RerouteConnections

支持和反馈

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