Shapes.AddConnector メソッド (Project)

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

構文

式。AddConnector (type, BeginX, BeginY, EndX, EndY)

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

パラメーター

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

戻り値

Shape

注釈

注:

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

関連項目

図形オブジェクト図形オブジェクト ConnectorFormat プロパティAutoShapeType プロパティMsoConnectorType

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

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

  • Last updated on