PowerPoint) (ConnectorFormat.EndConnect 方法

會將所指定接點的終點附加到指定的圖案上。

語法

expression. EndConnect( _ConnectedShape_, _ConnectionSite_ )

表達 代表 ConnectorFormat 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
ConnectedShape	必要	Shape	要附加至連接線的終點的圖形。 指定的 Shape 物件必須是連接線相同 Shapes 集合中。
ConnectionSite	必要	Long	網站連線的 ConnectedShape 所指定的圖案上。 必須是圖案的介於 1 到指定 ConnectionSiteCount 屬性所傳回的整數之間的整數。 如果您想要自動尋找其連接兩個圖形之間的最短路徑的連接器，指定此引數的任何有效整數和之後連接器會連接到圖形於兩端，然後使用 RerouteConnections 方法。

註解

如果已經是連接線的終點與另一個圖形之間的連線，該連線會中斷。 如果連接線的終點已不位於指定連線站台，這個方法將連接線的終點移至連線的網站和調整大小及位置的連接器。 使用 BeginConnect 方法可將連接線的起點附加至圖案。

將連接線連線到某一物件上時，該接點的尺寸和位置都將自動作必要調整。

範例

本範例會將兩個矩形新增至使用中簡報第一張投影片並以弧形連接線連接這。 請注意 RerouteConnections 方法可讓您為無關您提供給 ConnectionSite 引數的 BeginConnect 和 EndConnect 方法搭配使用何種值。

Set myDocument = ActivePresentation.Slides(1)

Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
        .ConnectorFormat
    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
    .Parent.RerouteConnections
End With

另請參閱

ConnectorFormat 物件

支援和意見反應

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