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