CanvasShapes.AddCallout Method (Word)
Adds a borderless line callout to a drawing canvas. Returns a Shape object that represents the callout.
Syntax
expression .AddCallout(Type, Left, Top, Width, Height)
expression Required. A variable that represents a CanvasShapes collection.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
Type |
Required |
MsoCallout |
The type of callout. |
Left |
Required |
Single |
The position, in points, of the left edge of the callout's bounding box. |
Top |
Required |
Single |
The position, in points, of the top edge of the callout's bounding box. |
Width |
Required |
Single |
The width, in points, of the callout's bounding box. |
Height |
Required |
Single |
The height, in points, of the callout's bounding box. |
Remarks
You can insert a greater variety of callouts, such as balloons and clouds, using the AddShape method.
Example
This example adds a callout to a newly created drawing canvas.
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