Método CanvasShapes.AddCallout (Word)

Adiciona um texto explicativo de linha sem borda a uma tela de desenho. Retorna um objeto Shape que representa o texto explicativo.

Sintaxe

expressão. AddCallout (Tipo, Esquerda, Superior, Largura, Altura)

expressão Obrigatório. Uma variável que representa uma coleção CanvasShapes.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Type	Obrigatório	MsoCallout	O tipo de texto explicativo.
Left	Obrigatório	Single	A posição, em pontos, da borda esquerda da caixa delimitadora do chamador.
Top	Obrigatório	Single	A posição, em pontos, da borda superior da caixa delimitadora do callout.
Width	Obrigatório	Single	A largura, em pontos, da caixa delimitadora do chamador.
Height	Obrigatório	Single	A altura, em pontos, da caixa delimitadora do chamador.

Comentários

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

Exemplo

Este exemplo adiciona um texto explicativo a uma tela de desenho recém-criada.

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

Confira também

Coleção CanvasShapes

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.