AddCallout Method

  • Article

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.
msoCalloutThree A two-segment line.
msoCalloutFour A three-segment line.

Left    Required Single. The position, measured in points, of the left edge of the callout's bounding box relative to the left edge of the slide.

Top    Required Single. The position, measured in points, of the top edge of the callout's bounding box relative to the top edge of the slide.

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

Height    Required Single. The height of the callout's bounding box, measured 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.

Sub NewCallout()
    Dim sldOne As Slide
    Set sldOne = ActivePresentation.Slides(1)
    sldOne.Shapes.AddCallout(Type:=msoCalloutTwo, Left:=50, Top:=50, _
        Width:=200, Height:=100).Callout.Angle = msoCalloutAngle30
End Sub

Applies to | Shapes Collection Object

See Also | AddComment Method