AddCallout Method
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.
Type Required MsoCalloutType.The type of callout line.
| 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