這個方法會重新佈線連接至指定圖形的所有連接器;如果指定的圖形是連接器,則會重新佈線。
語法
表達。重新路由連線
詞 代表 ShapeRange 物件的變數。
註解
變更連接器的路徑使它們採取所連接的圖形之間的最短可能路徑。 若要這樣做, 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 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 支援與意見反應。