Publisher (的 ConnectorFormat 物件)
包含套用於接點的屬性和方法。 連接線是用於連接其他兩個圖案的線,所連接的位置稱作連線節點。 如果重新排列相連的圖案,將會自動調整連接線的幾何,使得重新排列的圖案仍然保持相連。
註解
使用 圖形 的 ConnectorFormat 屬性 或 ShapeRange 物件 若要傳回 ConnectorFormat 物件的集合。
使用 BeginConnect 與 EndConnect 若要附加至出版物中其他圖形的連接器端點 ConnectorFormat 物件的方法。
使用 RerouteConnectionsShape 物件和自動尋找連接器所連接兩個圖形之間的最短路徑的 ShapeRange 集合的方法。
使用 Connector 屬性來判斷圖形是否為連接器。
注意事項
雖然您將連接線新增到 Shapes 集合中時,會指定其大小和位置,但是當您將連接線的起點和終點連接到集合中的其他圖案時,連接線的大小和位置都會自動調整。 因此,如果您想要將連接器附加至其他圖形,您指定的初始大小和位置就無關緊要。 同樣地,您指定哪些連線網站附加至當您附加連接器的連接器的圖形,但是使用 RerouteConnections 方法之後附加連接器可能會變更連接器將附加至,讓您所選擇的原始連線站台無關的 connection 網站。
範例
下列範例會將兩個矩形新增至使用中出版物,然後使用弧形連接器來連接它們。
Dim shpAll As Shapes
Dim firstRect As Shape
Dim secondRect As Shape
Set shpAll = ActiveDocument.Pages(1).Shapes
Set firstRect = shpAll.AddShape(Type:=msoShapeRectangle, _
Left:=100, Top:=50, Width:=200, Height:=100)
Set secondRect = shpAll.AddShape(Type:=msoShapeRectangle, _
Left:=300, Top:=300, Width:=200, Height:=100)
With shpAll.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _
BeginY:=0, EndX:=0, EndY:=0).ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
.Parent.RerouteConnections
End With
方法
屬性
- Application
- BeginConnected
- BeginConnectedShape
- BeginConnectionSite
- EndConnected
- EndConnectedShape
- EndConnectionSite
- Parent
- Type
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。