ConnectorFormat.BeginConnect メソッド (Excel)

指定されたコネクタの始点を指定された図形に接続します。 別の図形とコネクタの始点との間の接続が既に存在して、その接続は解除されます。

コネクタの始点を指定した結合点に位置していない場合、このメソッドは、コネクタの始点を結合点に移動し、サイズとコネクタの位置を調整します。

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

構文

式。BeginConnect (ConnectedShape、 ConnectionSite)

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

パラメーター

名前	必須 / オプション	データ型	説明
ConnectedShape	必須	Shape	コネクタの始点を接続する図形を指定します。 指定した Shape オブジェクトは、コネクタと同じ Shapes コレクション内にある必要があります。
ConnectionSite	必須	Long	ConnectedShape で指定された図形上の接続サイト。 1 と指定した図形の ConnectionSiteCount プロパティによって返される整数の整数である必要があります。 コネクタが接続する 2 つの図形間の最短パスを自動的に検索する場合は、この引数に有効な整数を指定し、コネクタが両端の図形にアタッチされた後に RerouteConnections メソッドを使用します。

注釈

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

例

次の使用例は、myDocument に 2 つの四角形を追加し、それらを曲線のコネクタで接続します。 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 c = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) 
with c.ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 c.RerouteConnections 
End With

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

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