Shapes.AddConnector-Methode (PowerPoint)
Erstellt einen Connector. Gibt ein Shape -Objekt, das die neue Verbindung darstellt. Wenn eine Verbindung hinzugefügt wird, ist es nicht auf einen anderen Wert verbunden. Verwenden Sie die Methoden BeginConnect und EndConnect Anfang und Ende einer Verbindung mit anderen Formen im Dokument anfügen.
Syntax
Ausdruck. AddConnector (Type, BeginX, Beginy, EndX, EndY)
expression Eine Variable, die ein Shapes-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Typ | Erforderlich | MsoConnectorType | Der Typ der Verbindung. |
BeginX | Erforderlich | Single | Die in Punkten gemessene horizontale Position des Anfangspunkts der Verbindung relativ zum linken Folienrand. |
BeginY | Erforderlich | Single | Die in Punkten gemessene vertikale Position des Anfangspunkts der Verbindung relativ zum oberen Folienrand. |
EndX | Erforderlich | Single | Die in Punkten gemessene horizontale Position des Endpunkts der Verbindung relativ zum linken Folienrand. |
EndY | Erforderlich | Single | Die in Punkten gemessene vertikale Position des Endpunkts der Verbindung relativ zum oberen Folienrand. |
Rückgabewert
Form
Bemerkungen
Wenn Sie eine Verbindung mit einer Form verbinden, werden die Größe und Position der Verbindung bei Bedarf automatisch angepasst. Wenn Sie also einen Verbinder an andere Formen anfügen möchten, sind die Position und die Dimensionen, die Sie beim Hinzufügen des Verbinders angeben, irrelevant.
Beispiel
This example adds two rectangles to myDocument and connects them with a curved connector. Note that when you attach the connector to the rectangles, the size and position of the connector are automatically adjusted; therefore, the position and dimensions you specify when adding the callout are irrelevant (dimensions must be nonzero).
Sub NewConnector()
Dim shpShapes As Shapes
Dim shpFirst As Shape
Dim shpSecond As Shape
Set shpShapes = ActivePresentation.Slides(1).Shapes
Set shpFirst = shpShapes.AddShape(Type:=msoShapeRectangle, _
Left:=100, Top:=50, Width:=200, Height:=100)
Set shpSecond = shpShapes.AddShape(Type:=msoShapeRectangle, _
Left:=300, Top:=300, Width:=200, Height:=100)
With shpShapes.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _
BeginY:=0, EndX:=100, EndY:=100).ConnectorFormat
.BeginConnect ConnectedShape:=shpFirst, ConnectionSite:=1
.EndConnect ConnectedShape:=shpSecond, ConnectionSite:=1
.Parent.RerouteConnections
End With
End Sub
Siehe auch
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Tickets als Feedbackmechanismus für Inhalte auslaufen lassen und es durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unter:Feedback senden und anzeigen für