Shape.Callout (Excel)

Renvoie un objet CalloutFormat qui contient des propriétés de mise en forme de légende pour la forme spécifiée. Elle s'applique à un objet Shape qui représente des traits de légende. En lecture seule.

With Worksheets(1).Shapes 
 .AddShape msoShapeOval, 180, 200, 280, 130 
 With .AddCallout(msoCalloutTwo, 420, 170, 170, 40) 
 .TextFrame.Characters.Text = "My oval" 
 With .Callout 
 .Accent = True 
 .Border = False 
 End With 
 End With 
End With