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