共用方式為

Excel) (ConnectorFormat 物件

  • 發行項

包含套用於接點的屬性和方法。

註解

連接線是用來連接其他兩個圖案的線條，所連接的點則稱為連接位置。 如果重新排列相連的圖案，將會自動調整連接線的幾何，使得重新排列的圖案仍然保持相連。

連接位置的編號方式通常是根據下表中所列的規則。

圖案的類型 連接位置的編號方式
快取圖案、文字藝術師、圖片及 OLE 物件 連接位置從頂端開始按逆時針方向編號。
手繪多邊形 連接位置就是頂點，其編號對應於頂點的編號。

使用Shape物件的ConnectorFormat屬性可傳回ConnectorFormat物件。 使用 BeginConnect 及 EndConnect 方法附加至文件中的其他圖形的連接器端點。 使用Shape物件的RerouteConnections方法，自動尋找連接器所連接之兩個圖形之間的最短路徑。 使用圖案是否為連接器的 連接器 屬性。

注意事項

當您將連接器新增至 Shapes 集合時，會指派一個大小和一個位置，但是當您將連接線的開頭和結尾附加至集合中的其他圖案時，會自動調整大小和位置。 因此，如果您想要將連接器附加至其他圖形，您指定的初始大小和位置就無關緊要。

同樣地，您指定哪些連線網站附加至當您附加連接器的連接器的圖形，但是使用 RerouteConnections 方法之後附加連接器可能會變更連接器將附加至，讓您所選擇的原始連線站台無關的 connection 網站。

範例

對於複雜的圖案，如果要弄清楚哪個編號相應於哪個連接節點，可在巨集錄製程式開啟的時候對該圖案做一些作業，然後再檢視所記錄的程式碼；或者可指定該圖案，然後執行下述範例。 下述程式碼將對每個連接節點進行編號，並對每個連接節點連線一個接點。

Set mainshape = ActiveWindow.Selection.ShapeRange(1) 
With mainshape 
 bx = .Left + .Width + 50 
 by = .Top + .Height + 50 
End With 
With ActiveSheet 
 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.Characters.Text = j 
 End With 
 Next j 
End With

下列範例會在 myDocument 中新增兩個矩形，並用弧形連接線將這兩個矩形連接起來。

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, 0, 0) 
With c.ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 c.RerouteConnections 
End With

方法

屬性

另請參閱

支援和意見反應

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