Shapes.AddConnector 方法 (Excel)
會建立的連接器。 會傳回代表新連接器的 Shape 物件。 新增新的接點並不連接任何物件。 使用 BeginConnect 及 EndConnect 方法以附加至文件中的其他圖形的開頭和連接線的終點。
語法
運算式。AddConnector (Type、 BeginX、 BeginY、 EndX、 EndY)
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 支援與意見反應。