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