Adds a borderless line callout to a drawing canvas. Returns a Shape object that represents the callout.
You can insert a greater variety of callouts, such as balloons and clouds, using the AddShape method.
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
The following arguments are required: