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