Shapes.AddCallout (Word)

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

Mithilfe der AddShape-Methode können Sie eine größere Anzahl von Beschriftungen wie Luftballons und Wolken einfügen .

AddCallout (Type, Left, Top, Width, Height, Anchor)

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

Arguments

Hier sind die benannte Argumente :

Type (Office.MsoCalloutType) - Der Legendentyp.

Left (Single) - Die Position (in Punkt) des linken Rands des umgebenden Felds der Legende.

Top (Single) - Die in Punkt gemessene Position des oberen Rands des umgebenden Felds der Legende.

Width (Single) - Die in Punkt gemessene Breite des umgebenden Felds der Legende.

Height (Single) - Die in Punkt gemessene Höhe des umgebenden Felds der Legende.

Optional arguments

Das folgendes Argument ist optional

Anchor - Range