ShapeRange.ConnectionSiteCount-Eigenschaft (PowerPoint)

Gibt die Anzahl der Verbindungsseiten der angegebenen Form zurück. Schreibgeschützt.

Syntax

Ausdruck. ConnectionSiteCount

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Rückgabewert

Long

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 = ActivePresentation.Slides(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

Siehe auch

ShapeRange-Objekt

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.