ShapeRange.Callout (PowerPoint)

Returns a CalloutFormat object that contains callout formatting properties for the specified shape. Applies to Shape or ShapeRange objects that represent line callouts.

Dim cftCallout As CalloutFormat
Set cftCallout = ActivePresentation.Slides(1).Shapes(1).Ungroup.Callout