Shape.ConnectionSiteCount-Eigenschaft (Herausgeber)

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

Syntax

Ausdruck verwendet werden. ConnectionSiteCount

expression Eine Variable, die ein Shape-Objekt darstellt.

Hinweise

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

Beispiel

Dieses Beispiel fügt der aktiven Publikation zwei Rechtecke hinzu und verbindet sie mit zwei Verbindern. 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 für das erste 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.