ShapeRange.RerouteConnections メソッド (PowerPoint)

RerouteConnections メソッドは、図形間を結ぶ線 (コネクタ) の経路が最短になるように、そのコネクタを再接続します。 そのため、コネクタの端点をいったん切り離し、図形の別の結合点に接続し直すことがあります。

構文

式。RerouteConnections

式ShapeRange オブジェクトを表す変数。

注釈

RerouteConnections メソッドは、指定された図形に結合されたすべてのコネクタの経路を再設定します。指定された図形がコネクタの場合、その経路は再設定されます。

RerouteConnections メソッドをコネクタに適用すると、そのコネクタの経路だけが再作成されます。 このメソッドを結合した図形に適用すると、その図形のすべてのコネクタの経路が再作成されます。

例

次の使用例は、myDocument に 2 つの四角形を追加してそれらを曲線のコネクタで接続し、コネクタの経路が最短になるように再接続します。 RerouteConnections メソッドはサイズとコネクタの位置を調整し、決定は、サイトの初期状態で指定した値の ConnectionSite 引数を 始める のに使用され、 EndConnect メソッドは、関連するように、接続を接続します。

Set myDocument = ActivePresentation.Slides(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

関連項目

ShapeRange オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。