AddCallout 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 = ActivePresentation.Slides(1)
myDocument.Shapes.AddCallout(msoCalloutTwo, 50, 50, 200, 100) _
    .Callout.Angle = msoCalloutAngle30