CanvasShapes.AddCallout-Methode (Word)
Fügt einem Zeichenbereich eine rahmenlose Legende mit Linie hinzu. Gibt ein Shape-Objekt zurück, das die Legende darstellt.
Syntax
Ausdruck. AddCallout (Type, Left, Top, Width, Height)
expression Erforderlich. Eine Variable, die eine CanvasShapes-Auflistung darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Typ | Erforderlich | MsoCallout | Der Legendentyp. |
Left | Erforderlich | Single | Die Position des linken Rands des Begrenzungsrahmens der Legende in Punkt. |
Top | Erforderlich | Single | Die Position des oberen Rands des Begrenzungsrahmens der Legende in Punkt. |
Width | Erforderlich | Single | Die Breite des Begrenzungsrahmens der Legende in Punkt. |
Height | Erforderlich | Single | Die Höhe des Begrenzungsrahmens der Legende in Punkt. |
Hinweise
Mit der AddShape-Methode können Sie eine größere Auswahl von 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
CanvasShapes-Auflistungsobjekt
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.