ConnectorFormat オブジェクト (PowerPoint)

コネクタに設定されるプロパティとメソッドが含まれます。

注釈

コネクタは、結合点と呼ばれる点で 2 つの図形を接続する線です。 接続された図形を再配置すると、コネクタの形は、図形が接続状態を維持するように自動的に調整されます。

ConnectorFormat プロパティを使用して、 ConnectorFormat オブジェクトを取得します。 文書内の他の図形にコネクタの端を接続するのには、 BeginConnect メソッドおよび EndConnect メソッドを使用します。 コネクタで接続されている 2 つの図形間の最短経路を自動的に検出するのにには、 RerouteConnections メソッドを使用します。 図形がコネクタであるかどうかを確認するのにには、 コネクタ のプロパティを使用します。

割り当てることの大きさと位置を Shapes コレクションにコネクタを追加するが、サイズと位置が自動的に調整コレクション内の他の図形を開始し、コネクタの終点を接続するときに注意してください。 したがって、他の図形にコネクタを接続する場合は、初期のサイズと位置を指定する、関係ありません。 同様に、コネクタを接続するときにコネクタを接続する図形を指定するが、コネクタを接続後、 RerouteConnections メソッドを使用すると、無関係なサイトの接続の選択を行う、コネクタを接続する接続サイトが変わる可能性があります。

通常、結合点は、次の表に示す規則に従って番号が付けられます。

図形の種類	結合点番号付け規則
オートシェイプ、ワードアート、図、OLE オブジェクト	結合点は、上から反時計周りに番号が付けられます。
フリーフォーム	結合点は頂点で頂点番号に対応して結合点に番号が付けられます。

例

次の使用例は、myDocument に 2 つの四角形を追加し、それらを曲線コネクタで接続します。

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, 0, 0).ConnectorFormat

    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1

    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1

    .Parent.RerouteConnections

End With

複雑な図形での結合点の番号を調べるには、マクロ レコーダーがオンになっているときに図形を調べ、次に記録されたコードを調べるか、図形を作成し、それを選択し、次の使用例を実行します。 このコードは、各結合点に番号を付け、それにコネクタを接続します。

Set mainshape = ActiveWindow.Selection.ShapeRange(1)

With mainshape

    bx = .Left + .Width + 50

    by = .Top + .Height + 50

End With

With ActiveWindow.View.Slide

    For j = 1 To mainshape.ConnectionSiteCount

        With .Shapes.AddConnector(msoConnectorStraight, bx, by, bx + 50, by + 50)

            .ConnectorFormat.EndConnect mainshape, j

            .ConnectorFormat.Type = msoConnectorElbow

            .Line.ForeColor.RGB = RGB(255, 0, 0)

            l = .Left

            t = .Top

        End With

        With .Shapes.AddTextbox(msoTextOrientationHorizontal, l, t, 36, 14)

            .Fill.Visible = False

            .Line.Visible = False

            .TextFrame.TextRange.Text = j

        End With

    Next j

End With

関連項目

PowerPoint Object Model Reference

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

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