Shapes.AddCallout (Word)

Adiciona um texto explicativo de linha sem borda a uma tela de desenho.

Você pode inserir uma variedade maior de textos explicativos, como balões e nuvens, usando o método addShape .

AddCallout (Type, Left, Top, Width, Height, Anchor)

Sub NewCanvasCallout() 
 Dim shpCanvas As Shape 
 
 'Add drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas _ 
 (Left:=150, Top:=150, Width:=200, Height:=300) 
 
 'Add callout to the drawing canvas 
 shpCanvas.CanvasItems.AddCallout _ 
 Type:=msoCalloutTwo, Left:=100, _ 
 Top:=40, Width:=150, Height:=75 
End Sub

Arguments

O seguinte argumento é opcional

Type (Office.MsoCalloutType) - O tipo de texto explicativo.

Left (Single) - A posição, em pontos, da borda esquerda da caixa delimitadora do texto explicativo.

Top (Single) - A posição, em pontos, da borda superior da caixa delimitadora do texto explicativo.

Width (Single) - A largura, em pontos, da caixa delimitadora do texto explicativo.

Height (Single) - A altura, em pontos, da caixa delimitadora do texto explicativo.

Optional arguments

The following argument is optional

Anchor - Range