次の方法で共有


ConnectorFormat.BeginConnect メソッド (PowerPoint)

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

構文

BeginConnect( _ConnectedShape_, _ConnectionSite_ )

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

パラメーター

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

注釈

別の図形とコネクタの始点との間の接続が既に存在して、その接続は解除されます。 コネクタの始点を指定した結合点に位置していない場合、このメソッドは、コネクタの始点を結合点に移動し、サイズとコネクタの位置を調整します。 EndConnect メソッドを使用すると、コネクタの終点を図形に接続します。

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

次の使用例は、作業中のプレゼンテーションのスライド 1 に 2 つの四角形を追加し、それらを曲線コネクタで接続します。 RerouteConnections メソッドにより、無関係な BeginConnect メソッドと EndConnect メソッドで使用される ConnectionSite 引数に指定する値に注意してください。

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)

With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
        .ConnectorFormat
    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
    .Parent.RerouteConnections
End With

関連項目

ConnectorFormat オブジェクト

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

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