AddCallout Method Example

This example adds a callout to a newly created document and then sets the callout angle to 45 degrees.

Set myDocument = Documents.Add
Set myCall = myDocument.Shapes.AddCallout(msoCalloutTwo, _
    72, 36, 25, 25)
myCall.Callout.Angle = msoCalloutAngle45