Shapes.AddCallout (Word)

Adds a borderless line callout to a drawing canvas.

You can insert a greater variety of callouts, such as balloons and clouds, by using the AddShape method.

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

The following arguments are required:

Type (Office.MsoCalloutType) - The type of callout.

Left (Single) - The position, in points, of the left edge of the callout's bounding box.

Top (Single) - The position, in points, of the top edge of the callout's bounding box.

Width (Single) - The width, in points, of the callout's bounding box.

Height (Single) - The height, in points, of the callout's bounding box.

Optional arguments

The following argument is optional

Anchor - Range