Shapes.AddConnector メソッド (PowerPoint)

コネクタを作成します。 新しいコネクタを表す Shape オブジェクトを返します。 コネクタを追加するときに何も接続されていません。 文書内の他の図形に始点と、コネクタの終点を接続するのには、 BeginConnect メソッドおよび EndConnect メソッドを使用します。

構文

式。AddConnector (Type、 BeginX、 BeginY、 EndX、 EndY)

表現Shapes オブジェクトを表す変数です。

パラメーター

名前	必須 / オプション	データ型	説明
型	必須	MsoConnectorType	コネクタの種類を指定します。
BeginX	必須	単精度浮動小数点型 (Single)	スライドの左端を基準にコネクタの水平方向の始点をポイント単位で指定します。
BeginY	必須	単精度浮動小数点型 (Single)	スライドの上端を基準にコネクタの垂直方向の始点をポイント単位で指定します。
EndX	必須	単精度浮動小数点型 (Single)	スライドの左端を基準にコネクタの水平方向の終点をポイント単位で指定します。
EndY	必須	単精度浮動小数点型 (Single)	スライドの上端を基準にコネクタの垂直方向の終点をポイント単位で指定します。

戻り値

Shape

注釈

コネクタを図形につなげる場合、コネクタの大きさと位置は、必要に応じて自動的に調整されます。 そのため、コネクタを他の図形にアタッチする場合、コネクタを追加するときに指定する位置と寸法は関係ありません。

例

次の使用例は、myDocument に 2 つの四角形を追加し、それらを曲線のコネクタで接続します。 コネクタを四角形にアタッチすると、コネクタのサイズと位置が自動的に調整されることに注意してください。したがって、吹き出しを追加するときに指定する位置と寸法は関係ありません (寸法は 0 以外である必要があります)。

Sub NewConnector() 
 
    Dim shpShapes As Shapes 
    Dim shpFirst As Shape 
    Dim shpSecond As Shape 
 
    Set shpShapes = ActivePresentation.Slides(1).Shapes 
    Set shpFirst = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=100, Top:=50, Width:=200, Height:=100) 
    Set shpSecond = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=300, Top:=300, Width:=200, Height:=100) 
    With shpShapes.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
            BeginY:=0, EndX:=100, EndY:=100).ConnectorFormat 
        .BeginConnect ConnectedShape:=shpFirst, ConnectionSite:=1 
        .EndConnect ConnectedShape:=shpSecond, ConnectionSite:=1 
        .Parent.RerouteConnections 
    End With 
 
End Sub

関連項目

Shapes オブジェクト

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

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