Shapes.AddConnector 方法 (專案)

建立一個連接器，並回傳一個代表新連接器的 Shape 物件。

語法

表情。AddConnector (Type， BeginX， BeginY， EndX， EndY)

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Type	必要	MsoConnectorType	連接線的類型。 可以是以下常數之一： msoConnectorElbow、 msoConnectorTypeMixed、 msoConnectorCurve，或 msoConnectorStraight。
開始X	必要	Single	水平位置 (相對於文件左上角的連接器起點) 點。
開始	必要	Single	垂直位置 (接頭起點) 點。
終結	必要	Single	水平位置 (接頭端點) 點。
結束	必要	Single	垂直位置 (連接點) 點。
Type	必要	MSOCONNECTOR 類型
開始X	必要	浮
開始	必要	浮
終結	必要	浮
結束	必要	浮
名稱	必要/選用	資料類型	描述

傳回值

圖形

註解

注意事項

在 Project 中，將連接器的起點和結尾附加到報告中其他形狀 (ConnectorFormat.BeginConnect 和 ConnectorFormat.EndConnect) 的方法無法運作。 只需使用 AddConnector 參數來定位連接器。 欲了解更多資訊，請參閱 ConnectorFormat 屬性。

範例

以下範例會建立一個包含兩個雲形的報告，然後加入一條寬兩點的藍綠色曲線連接線。

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 ObjectConnectorFormat 屬性AutoShapeType 屬性MsoConnectorType

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。