共用方式為


Shapes.AddConnector 方法 (Excel)

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

語法

運算式AddConnector (TypeBeginXBeginYEndXEndY)

expression 代表 Shapes 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Type 必要 MsoConnectorType 要新增的連接線類型。
BeginX 必要 Single 水準位置 (在連接器起始 ) 相對於檔左上角的點數。
BeginY 必要 Single 連接線之起點的垂直位置 (以點為單位),與文件左上角相對。
EndX 必要 Single 連接線之終點的水平位置 (以點為單位),與文件左上角相對。
EndY 必要 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 支援與意見反應