共用方式為


Shapes.AddConnector 方法 (Excel)

會建立的連接器。 會傳回代表新連接器的 Shape 物件。 新增新的接點並不連接任何物件。 使用 BeginConnectEndConnect 方法以附加至文件中的其他圖形的開頭和連接線的終點。

語法

表達。AddConnector (類型BeginXBeginYEndXEndY)

expression 代表 Shapes 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Type 必要 MsoConnectorType 要新增的連接線類型。
開始X 必要 Single 水平位置 (以連接器起點相對於文件左上角) 為單位。
開始 必要 Single 連接線之起點的垂直位置 (以點為單位),與文件左上角相對。
結束X 必要 Single 連接線之終點的水平位置 (以點為單位),與文件左上角相對。
結束Y 必要 Single 垂直位置 (以連接器端點相對於文件左上角) 點為單位。

傳回值

圖形

註解

把接點連線到圖案上時,連接線的大小和位置將自動進行必要的調整。 因此,如果您要將連接器貼附至其他造型,則您在新增連接器時指定的位置和尺寸無關緊要。

範例

下列範例會在新工作表的新畫布上新增一個弧形連接線。

Sub AddCanvasConnector() 
 
    Dim wksNew As Worksheet 
    Dim shpCanvas As Shape 
 
    Set wksNew = Worksheets.Add 
 
    'Add drawing canvas to new worksheet 
    Set shpCanvas = wksNew.Shapes.AddCanvas( _ 
        Left:=150, Top:=150, Width:=200, Height:=300) 
 
    'Add connector to the drawing canvas 
    shpCanvas.CanvasItems.AddConnector _ 
        Type:=msoConnectorStraight, BeginX:=150, _ 
        BeginY:=150, EndX:=200, EndY:=200 
 
End Sub

支援和意見反應

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