Anmerkung
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Erstellt eine Linie. Gibt ein Shape -Objekt, das die neue Linie darstellt.
Syntax
Ausdruck.
AddLine( _BeginX_, _BeginY_, _EndX_, _EndY_ )
expression Eine Variable, die ein Shapes-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| BeginX | Erforderlich | Single | Die in Punkten gemessene horizontale Position des Anfangspunkts der Linie relativ zum linken Folienrand. |
| BeginY | Erforderlich | Single | Die in Punkten gemessene vertikale Position des Anfangspunkts der Linie relativ zum oberen Folienrand. |
| EndX | Erforderlich | Single | Die in Punkten gemessene horizontale Position des Endpunkts der Linie relativ zum linken Folienrand. |
| EndY | Erforderlich | Single | Die in Punkten gemessene vertikale Position des Endpunkts der Linie relativ zum oberen Folienrand. |
Rückgabewert
Form
Beispiel
In diesem Beispiel wird myDocument eine blaue gestrichelte Linie hinzugefügt.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(BeginX:=10, BeginY:=10, _
EndX:=250, EndY:=250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(50, 0, 128)
End With
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.