Gap Property
Returns or sets the horizontal distance (in points) between the end of the callout line and the text bounding box. Read/write Single.
Example
This example sets the distance between the callout line and the text bounding box to 3 points for the first shape on the active document. For the example to work, the first shape must be a callout.
Dim docActive As Document Set docActive = ActiveDocumentdocActive.Shapes(1).Callout.Gap = 3