Freigeben über

ShapeRange.ConnectionSiteCount-Eigenschaft (Publisher)

  • Artikel

Gibt eine lange, der angibt, der Anzahl der Verbindungspunkte im aktuellen Shape -Objekt zurück. Schreibgeschützt.

Syntax

Ausdruck. ConnectionSiteCount

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Hinweise

Die Anzahl der Verbindungsseiten hängt von der geometrischen Form des Objekts ab. Rechteckige Objekte, einschließlich Tabellen und Websteuerelementen, verfügen höchstwahrscheinlich über vier Verbindungswebsites, von denen eine an jedem Rand der Form zentriert ist.

Beispiel

In diesem Beispiel werden der aktiven Publikation zwei Rechtecke hinzugefügt und mit zwei Connectors verknüpft. Die Anfangspunkte beider Verbindungen sind dem ersten Verbindungspunkt des ersten Rechtecks zugeordnet, die Endpunkte dem ersten und letzten Verbindungspunkt des zweiten Rechtecks. Anschließend wird die Anzahl der Verbindungen im ersten Rechteck gezählt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.