Método TextRange.InsertAfter (PowerPoint)

Artigo
04/07/2023

Acrescenta uma cadeia de caracteres até o final do intervalo de texto especificado. Retorna um objeto TextRange que representa o texto anexado. Quando usado sem um argumento, esse método retorna uma sequência de caracteres de tamanho zero no fim do intervalo especificado.

Sintaxe

expression. InsertAfter( _NewText_ )

Expressão Uma variável que representa um objeto TextRange .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Newtext	Opcional	String	O texto a ser inserido. O valor padrão é uma sequência de caracteres vazia.

Exemplo

Este exemplo acrescenta a sequência de caracteres ": Test version" ao final do título do slide um da apresentação ativa.

With Application.ActivePresentation.Slides(1).Shapes(1)

    .TextFrame.TextRange.InsertAfter ": Test version"

End With

Este exemplo acrescenta o conteúdo da área de transferência ao final do título do slide um.

Application.ActivePresentation.Slides(1).Shapes(1).TextFrame _
    .TextRange.InsertAfter.Paste

Confira também

Objeto TextRange

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.