AddCallout Method

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.  

Creates a borderless line callout. Returns a Shape object that represents the new callout.

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

expression   Required. An expression that returns one of the objects in the Applies to List.

MsoCalloutType

MsoCalloutType can be one of these MsoCalloutType constants.
msoCalloutOne. A single-segment callout line that can be either horizontal or vertical.
msoCalloutTwo. A single-segment callout line that rotates freely.
msoCalloutMixed.
msoCalloutThree. A two-segment line.
msoCalloutFour. A three-segment line.

Left  Required Single. The position (in points) of the upper-left corner of the callout's bounding box relative to the upper-left corner of the document.

Top  Required Single. The position (in points) of the upper-left corner of the callout's bounding box relative to the upper-left corner of the document.

Width  Required Single. The width of the callout's bounding box, in points.

Height  Required Single. The height of the callout's bounding box, in points.

Remarks

You can insert a greater variety of callouts by using the AddShape method.

Example

This example adds a borderless callout with a freely rotating one-segment callout line to myDocument and then sets the callout angle to 30 degrees.

  Set myDocument = Worksheets(1)
myDocument.Shapes.AddCallout(Type:=msoCalloutTwo, _
    Left:=50, Top:=50, Width:=200, Height:=100) _
    .Callout.Angle = msoCalloutAngle30