PowerPoint) (ConnectorFormat 物件
包含套用於接點的屬性和方法。
註解
連接線是用來連接其他兩個圖案的線條，所連接的點則稱為連接位置。 如果重新排列相連的圖案，將會自動調整連接線的幾何，使得重新排列的圖案仍然保持相連。
使用 ConnectorFormat 屬性可傳回 ConnectorFormat 物件。 使用 BeginConnect 及 EndConnect 方法附加至文件中的其他圖形的連接器端點。 使用 RerouteConnections 方法可自動尋找連接器所連接兩個圖形之間的最短路徑。 使用圖案是否為連接器的 連接器 屬性。
請注意當您將連接線新增到 Shapes 集合，但時開頭和連接線的終點附加至集合中其他圖案的大小和位置將會自動調整指派大小及位置。 因此，如果您想要將連接線連線至其他圖形，初始大小及位置您指定可無關。 同樣地，您指定哪些連線網站附加至當您附加連接器的連接器的圖形，但是使用 RerouteConnections 方法之後附加連接器可能會變更連接器將附加至，讓您所選擇的原始連線站台無關的 connection 網站。
連接位置的編號方式通常是根據下表中所列的規則。
| 圖案的類型 | 連接位置的編號方式 |
|---|---|
| 快取圖案、文字藝術師、圖片及 OLE 物件 | 連接位置從頂端開始按逆時針方向編號。 |
| 手繪多邊形 | 連接位置就是頂點，其編號對應於頂點的編號。 |
範例
下列範例會在 myDocument 中新增兩個矩形，並用弧形連接線將這兩個矩形連接起來。
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, 0, 0).ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
.Parent.RerouteConnections
End With
對於複雜的圖案，如果要弄清楚哪個編號相應於哪個連接節點，可在巨集錄製程式開啟的時候對該圖案做一些作業，然後再檢視所記錄的程式碼；或者可指定該圖案，然後執行下述範例。 下述程式碼將對每個連接節點進行編號，並對每個連接節點連線一個接點。
Set mainshape = ActiveWindow.Selection.ShapeRange(1)
With mainshape
bx = .Left + .Width + 50
by = .Top + .Height + 50
End With
With ActiveWindow.View.Slide
For j = 1 To mainshape.ConnectionSiteCount
With .Shapes.AddConnector(msoConnectorStraight, bx, by, bx + 50, by + 50)
.ConnectorFormat.EndConnect mainshape, j
.ConnectorFormat.Type = msoConnectorElbow
.Line.ForeColor.RGB = RGB(255, 0, 0)
l = .Left
t = .Top
End With
With .Shapes.AddTextbox(msoTextOrientationHorizontal, l, t, 36, 14)
.Fill.Visible = False
.Line.Visible = False
.TextFrame.TextRange.Text = j
End With
Next j
End With
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。