PowerPoint) (ConnectorFormat.BeginConnect 方法

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

語法

expression. BeginConnect( _ConnectedShape_, _ConnectionSite_ )

表達 代表 ConnectorFormat 物件的 變數。

參數

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

註解

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

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

範例

本範例會將兩個矩形新增至使用中簡報第一張投影片並以弧形連接線連接這。 請注意 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 支援與意見反應。