Shape.ConnectionSiteCount 屬性 (Publisher)

會傳回 Long 指出連線網站目前的 Shape 物件的計數。 唯讀。

語法

運算式。ConnectionSiteCount

表達 代表 Shape 物件的變數。

註解

連線節點數須視圖案的幾何結構而定。 包括資料表和 Web 控制項在內的矩形物件最有可能有四個連接網站，一個位於圖形的每個邊緣。

範例

本範例在使用中出版物中新增兩個矩形，用兩條接點將他們接起來。 兩條接點的起點都連接在第一個矩形的第一個連接節點上；而兩條接點的終點則分別連線在第二個矩形的第一個和最後一個連接節點上。 然後，它會計算第一個矩形上的連接數目。

Sub Connections() 
 
 Dim shpNew As Shapes 
 Dim shpFirstRect As Shape 
 Dim shpSecondRect As Shape 
 Dim intLastSite As Integer 
 Dim intCount As Integer 
 
 Set shpNew = Application.ActiveDocument _ 
 .MasterPages(Item:=1).Shapes 
 Set shpFirstRect = shpNew.AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
 Set shpSecondRect = shpNew.AddShape(msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 
 varLastSite = shpSecondRect.ConnectionSiteCount 
 
 ' Add the first connector from rectangle 1, 
 ' site 1 to rectangle 2, site 1. 
 With shpNew.AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .ConnectorFormat 
 .BeginConnect ConnectedShape:=shpFirstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=shpSecondRect, ConnectionSite:=1 
 End With 
 
 ' Add the second connector from rectangle 1, 
 ' site 1 to rectangle 2, site 2. 
 With shpNew.AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .ConnectorFormat 
 .BeginConnect ConnectedShape:=shpFirstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=shpSecondRect, _ 
 ConnectionSite:=intLastSite 
 End With 
 
 intCount = shpFirstRect.ConnectionSiteCount 
 
End Sub

支援和意見反應

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