CanvasShapes.AddCallout (Word)

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

Mithilfe der AddShape -Methode können Sie eine größere Vielzahl von Legenden wie Ballons und Wolken einfügen.

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

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

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

Top (Single) - Die Position des oberen Rands des Begrenzungsfelds der Legende in Punkt.

Width (Single) - Die Breite des Begrenzungsfelds der Legende in Punkt.

Height (Single) - Die Höhe des Begrenzungsfelds der Legende in Punkt.