Método Shapes.AddTextEffect (PowerPoint)

Cria um objeto WordArt. Retorna um objeto Shape representando o novo objeto WordArt.

Sintaxe

expression. AddTextEffect( _PresetTextEffect_, _Text_, _FontName_, _FontSize_, _FontBold_, _FontItalic_, _Left_, _Top_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
PresetTextEffect	Obrigatório	MsoPresetTextEffect	O efeito de texto predefinido.
Text	Obrigatório	String	O texto do WordArt.
FontName	Obrigatório	String	O nome da fonte usada no WordArt.
FontSize	Obrigatório	Single	O tamanho (em pontos) da fonte usada no WordArt.
FontBold	Obrigatório	MsoTriState	Determina se a fonte utilizada no WordArt está definida como negrito.
FontItalic	Obrigatório	MsoTriState	Determina se a fonte utilizada no WordArt está definida como itálico.
Left	Obrigatório	Single	A posição, medida em pontos, da borda esquerda da caixa de contorno do WordArt 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 WordArt em relação à borda superior do slide.

Valor de retorno

Forma

Comentários

Quando você adiciona WordArt a um documento, a altura e largura do WordArt são definidas automaticamente com base no tamanho e na quantidade de texto especificada.

Exemplo

Este exemplo adiciona um WordArt que contém o texto "Test" ("Teste") a myDocument.

Set myDocument = ActivePresentation.Slides(1) 
Set newWordArt = myDocument.Shapes _ 
    .AddTextEffect(PresetTextEffect:=msoTextEffect1, _ 
    Text:="Test", FontName:="Arial Black", FontSize:=36, _ 
    FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, Top:=10)

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.