Shapes.AddCallout-Methode (PowerPoint)

Artikel
04/07/2023

Erstellt eine rahmenlose Legende mit Linie. Gibt ein Shape -Objekt, das die neue Legende darstellt.

Syntax

Ausdruck. AddCallout( _Type_, _Left_, _Top_, _Width_, _Height_ )

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Typ	Erforderlich	MsoCalloutType	Die Art der Legendenlinie.
Left	Erforderlich	Single	Die in Punkten gemessene Position des linken Rands des Begrenzungsfelds relativ zum linken Folienrand.
Top	Erforderlich	Single	Die in Punkten gemessene Position des oberen Rands des Begrenzungsfelds relativ zum linken Folienrand.
Width	Erforderlich	Single	Die in Punkten gemessene Breite des Begrenzungsfelds der Legende.
Height	Erforderlich	Single	Die in Punkten gemessene Höhe des Begrenzungsfelds der Legende.

Rückgabewert

Form

Bemerkungen

Mithilfe der AddShape -Methode können Sie vielfältigere Legenden einfügen.

Beispiel

In diesem Beispiel wird myDocument eine rahmenlose Legende mit einer sich frei drehenden, aus einem einzelnen Segment bestehenden Legendenlinie hinzugefügt und der Winkel der Legende auf 30 Grad festgelegt.

Sub NewCallout() 
    Dim sldOne As Slide 
    Set sldOne = ActivePresentation.Slides(1) 
    sldOne.Shapes.AddCallout(Type:=msoCalloutTwo, Left:=50, Top:=50, _ 
        Width:=200, Height:=100).Callout.Angle = msoCalloutAngle30 
End Sub

Siehe auch

Shapes-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.