Freigeben über


Shapes.AddCallout-Methode (Word)

Fügt einem Zeichenbereich eine rahmenlose Legende mit Linie hinzu.

Syntax

Ausdruck. AddCallout (Type, Left, Top, Width, Height)

expression Erforderlich. Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Typ Erforderlich MsoCalloutType Der Legendentyp.
Left Erforderlich Single Die Position des linken Rands des Begrenzungsrahmens der Legende in Punkt.
Top Erforderlich Single Die in Punkt gemessene Position des oberen Rands des umgebenden Felds der Legende.
Width Erforderlich Single Die in Punkt gemessene Breite des umgebenden Felds der Legende.
Height Erforderlich Single Die in Punkt gemessene Höhe des umgebenden Felds der Legende.

Rückgabewert

Shape

Hinweise

Mithilfe der AddShape-Methode können Sie eine größere Auswahl an Legenden einfügen, z. B. Sprechblasen und Wolken.

Beispiel

In diesem Beispiel wird einem neu erstellten Zeichenbereich eine Legende hinzugefügt.

Sub NewCanvasCallout() 
 Dim shpCanvas As Shape 
 
 'Add drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas _ 
 (Left:=150, Top:=150, Width:=200, Height:=300) 
 
 'Add callout to the drawing canvas 
 shpCanvas.CanvasItems.AddCallout _ 
 Type:=msoCalloutTwo, Left:=100, _ 
 Top:=40, Width:=150, Height:=75 
End Sub

Siehe auch

Shapes Collection Object

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.