Shapes.AddConnector メソッド (Project)

コネクタを作成し、新しいコネクタを表す Shape オブジェクトを返します。

構文

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

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

パラメーター

名前	必須 / オプション	データ型	説明
型	必須	MsoConnectorType	コネクタの種類を指定します。 msoConnectorElbow、msoConnectorTypeMixed、msoConnectorCurve、または msoConnectorStraight のいずれかの定数を指定できます。
BeginX	必須	Single	コネクタの始点の水平方向の位置 (ポイント単位)。
BeginY	必須	Single	コネクタの始点の垂直位置 (ポイント単位)。
EndX	必須	Single	コネクタの終点の水平方向の位置 (ポイント単位)。
EndY	必須	Single	コネクタの終点の垂直位置 (ポイント単位)。
Type	必須	MSOCONNECTORTYPE
BeginX	必須	FLOAT
BeginY	必須	FLOAT
EndX	必須	FLOAT
EndY	必須	FLOAT
名前	必須 / オプション	データ型	説明

戻り値

図形

注釈

注:

Project では、コネクタの先頭と末尾をレポート内の他の図形 (ConnectorFormat.BeginConnect および ConnectorFormat.EndConnect) にアタッチするメソッドは機能しません。 コネクタを配置するには、 AddConnector パラメーターのみを使用します。 詳細については、 ConnectorFormat プロパティに関するページを参照してください。

例

次の例では、2 つの雲の形を含むレポートを作成し、2 点幅の青緑色の曲線コネクタ線を追加します。

Sub ConnectClouds()
    Dim shapeReport As Report
    Dim reportName As String
    Dim connectorShape As shape
    
    ' Add a report.
    reportName = "Cloud report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    ' Add two clouds.
    Dim cloudShape1 As shape
    Dim cloudShape2 As shape
    Set cloudShape1 = shapeReport.Shapes.AddShape(msoShapeCloud, 20, 20, 100, 60)
    Set cloudShape2 = shapeReport.Shapes.AddShape(msoShapeCloud, 100, 200, 60, 100)
    
    Set connectorShape = shapeReport.Shapes.AddConnector(msoConnectorCurve, 80, 80, 130, 200)
        
    With connectorShape
        .Line.Weight = 2
        .Line.ForeColor.RGB = &HAAFF00
    End With
End Sub

関連項目

Shapes オブジェクトShape オブジェクトConnectorFormat プロパティAutoShapeType プロパティMsoConnectorType

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

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