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 = ActiveDocument

docActive.Shapes(1).Callout.Gap = 3