シェイプトゥイーンメソッド (Excel)Shape.RerouteConnections method (Excel)

図形に接続されたすべてのコネクタを再接続します。図形がコネクタの場合、そのコネクタを再接続します。This method reroutes all connectors attached to the specified shape; if the specified shape is a connector, it's rerouted.

構文Syntax

RerouteConnectionsexpression.RerouteConnections

Shape オブジェクトを表す変数を取得します。expression A variable that represents a Shape object.

解説Remarks

RerouteConnections メソッドは、図形間を結ぶ線 (コネクタ) の経路が最短になるように、そのコネクタを再接続します。Reroutes connectors so that they take the shortest possible path between the shapes they connect. そのため、コネクタの端点をいったん切り離し、図形の別の結合点に接続し直すことがあります。To do this, the RerouteConnections method may detach the ends of a connector and reattach them to different connecting sites on the connected shapes.

RerouteConnections メソッドをコネクタに適用すると、そのコネクタの経路だけが再作成されます。If this method is applied to a connector, only that connector will be rerouted. このメソッドを結合した図形に適用すると、その図形のすべてのコネクタの経路が再作成されます。If this method is applied to a connected shape, all connectors to that shape will be rerouted.

Example

次の使用例は、myDocument に 2 つの四角形を追加してそれらを曲線のコネクタで接続し、コネクタの経路が最短になるように再接続します。This example adds two rectangles to myDocument, connects them with a curved connector, and then reroutes the connector so that it takes the shortest possible path between the two rectangles.

RerouteConnectionsメソッドは、コネクタのサイズと位置を調整し、接続先のサイトを決定するので、beginconnect で使用される_connectionsite_引数に対して最初に指定する値を決定します。 endconnect メソッドは無関係です。Note that the RerouteConnections method adjusts the size and position of the connector and determines which connecting sites it attaches to, so the values you initially specify for the ConnectionSite arguments used with the BeginConnect and EndConnect methods are irrelevant.

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

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.