ShapeRange.Callout (Word)

Retorna um objeto CalloutFormat que contém as propriedades de formatação de texto explicativo para a forma especificada. Somente leitura.

Essa propriedade se aplica a objetos ShapeRange que representam textos explicativos.

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