次の方法で共有

ConnectorFormat.EndConnect メソッド (Publisher)

  • [アーティクル]

指定されたコネクタの終点を指定された図形に接続します。

構文

式。EndConnect (ConnectedShape、 ConnectionSite)

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

パラメーター

名前 必須 / オプション データ型 説明
ConnectedShape 必須 Shape コネクタの終点を接続する図形です。 指定された Shape オブジェクトは、コネクタと同じ Shapes コレクションにする必要があります。
ConnectionSite 必須 Long ConnectedShape で指定された図形上の接続サイト。 1 と指定した図形の ConnectionSiteCount プロパティによって返される整数の整数である必要があります。

結合点の番号は、指定した図形の上端から、図形を反時計回りに移動します。 コネクタが自動的に接続する 2 つの図形間の最短経路を検索する場合は、この引数に有効な整数を指定し、両端に図形にコネクタを接続後、 RerouteConnections メソッドを使用しています。

注釈

別の図形とコネクタの終点の間の接続が既に存在して、その接続は解除されます。 コネクタが指定された接続点に接続されていない場合、コネクタの終点は接続点に接続され、コネクタの大きさと位置が調整されます。

コネクタをオブジェクトに接続すると、必要に応じてコネクタの大きさと位置が自動的に調整されます。

コネクタの始点を図形に接続するには、 BeginConnect メソッドを使用します。

例

次の使用例は、作業中の文書の先頭ページに 2 つの四角形を追加し、それらを曲線コネクタで結合します。 RerouteConnections メソッドは、BeginConnect メソッドと EndConnect メソッドで使用される ConnectionSite 引数に指定した値をオーバーライドすることに注意してください。

Dim shpRect1 As Shape 
Dim shpRect2 As Shape 
 
With ActiveDocument.Pages(1).Shapes 
 
 ' Add two new rectangles. 
 Set shpRect1 = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
 Set shpRect2 = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 
 
 ' Add a new curved connector. 
 With .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .ConnectorFormat 
 
 ' Connect the new connector to the two rectangles. 
 .BeginConnect ConnectedShape:=shpRect1, ConnectionSite:=1 
 .EndConnect ConnectedShape:=shpRect2, ConnectionSite:=1 
 
 ' Reroute the connector to create the shortest path. 
 .Parent.RerouteConnections 
 End With 
 
End With

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

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