Excel) (ConnectorFormat.EndConnect 方法
會將所指定接點的終點附加到指定的圖案上。 如果已經是連接線的終點與另一個圖形之間的連線,該連線會中斷。
如果連接線的終點已不位於指定連線站台,這個方法將連接線的終點移至連線的網站和調整大小及位置的連接器。
使用 BeginConnect 方法可將連接線的起點連到圖形上。
語法
運算式。EndConnect (ConnectedShape、 ConnectionSite)
表達 代表 ConnectorFormat 物件的 變數。
參數
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
ConnectedShape | 必要 | Shape | 要附加至連接線的終點的圖形。 指定的 Shape 物件必須是連接線相同 Shapes 集合中。 |
ConnectionSite | 必要 | Long | 必須是圖案的介於 1 到指定 ConnectionSiteCount 屬性所傳回的整數之間的整數。 如果您想要自動尋找其連接兩個圖形之間的最短路徑的連接器,指定此引數的任何有效整數和之後連接器會連接到圖形於兩端,然後使用 RerouteConnections 方法。 |
註解
將連接線連接到某一物件上時,該連接線的大小和位置都會自動做必要的調整。
範例
本範例會在 myDocument 中新增了兩個矩形,並用弧形連接線將這兩個矩形連接起來。 請注意,RerouteConnections方法會讓您為搭配 BeginConnect和EndConnect方法使用的ConnectionSite引數提供哪些值無關。
Set myDocument = Worksheets(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)
Set c = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100)
With c.ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
c.RerouteConnections
End With
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。