ShapeRange.Callout (Word)

Cette propriété renvoie un objet CalloutFormat qui contient des propriétés de mise en forme de légende pour la forme spécifiée.

Cette propriété s’applique aux objets ShapeRange qui représentent des légendes.

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