Método Shapes.AddCallout (PowerPoint)

Cria um texto explicativo sem borda. Retorna um objeto Shape que representa o novo texto explicativo.

Sintaxe

expression. AddCallout( _Type_, _Left_, _Top_, _Width_, _Height_ )

expressão Uma variável que representa um objeto Formas.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Type	Obrigatório	MsoCalloutType	O tipo de texto explicativo.
Left	Obrigatório	Single	A posição, medida em pontos, da borda esquerda da caixa de contorno do texto explicativo em relação à borda esquerda do slide.
Top	Obrigatório	Single	A posição, medida em pontos, da borda superior da caixa de contorno do texto explicativo em relação à borda superior do slide.
Width	Obrigatório	Single	A largura da caixa de contorno do texto explicativo, medida em pontos.
Height	Obrigatório	Single	A altura da caixa de contorno do texto explicativo, medida em pontos.

Valor de retorno

Forma

Comentários

Você pode inserir uma variedade maior de textos explicativos usando o método AddShape.

Exemplo

Este exemplo adiciona um texto explicativo sem bordas de um segmento apenas e de livre rotação a myDocument e define o ângulo do texto explicativo em 30 graus.

Sub NewCallout() 
    Dim sldOne As Slide 
    Set sldOne = ActivePresentation.Slides(1) 
    sldOne.Shapes.AddCallout(Type:=msoCalloutTwo, Left:=50, Top:=50, _ 
        Width:=200, Height:=100).Callout.Angle = msoCalloutAngle30 
End Sub

Confira também

Objeto Shapes

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.