In diesem Beispiel wird für die erste Form in myDocument der Abstand zwischen Legendenlinie und Textbegrenzungsrechteck auf 3 Punkt festgelegt. Damit das Beispiel funktioniert, muss es sich bei der ersten Form um eine Legende handeln.
Set myDocument = Worksheets(1) myDocument.Shapes(1).Callout.Gap = 3