Shape.ConnectionSiteCount-Eigenschaft (Excel)

Gibt die Anzahl der Verbindungsseiten der angegebenen Form zurück. Schreibgeschützter langer Wert.

Syntax

Ausdruck. ConnectionSiteCount

Ausdruck Ein Ausdruck, der ein Shape-Objekt zurückgibt.

Beispiel

Dieses Beispiel fügt zu myDocument zwei Rechtecke hinzu und verknüpft sie mit zwei Verbindungen. Die Anfangspunkte beider Verbindungen sind dem ersten Verbindungspunkt des ersten Rechtecks zugeordnet, die Endpunkte dem ersten und letzten Verbindungspunkt des zweiten Rechtecks.

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) 
lastsite = secondRect.ConnectionSiteCount 
With s.AddConnector(msoConnectorCurve, _ 
 0, 0, 100, 100).ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, _ 
 ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, _ 
 ConnectionSite:=1 
End With 
With s.AddConnector(msoConnectorCurve, _ 
 0, 0, 100, 100).ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, _ 
 ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, _ 
 ConnectionSite:=lastsite 
End With

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.