Método Shapes.AddTextEffect (Excel)

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

Sintaxe

expressão. 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	A fonte usada no WordArt como negrito.
FontItalic	Obrigatório	MsoTriState	A fonte usada no WordArt como itálico.
Left	Obrigatório	Single	A posição (em pontos) do canto superior esquerdo da caixa delimitadora do WordArt em relação ao canto superior esquerdo do documento.
Top	Obrigatório	Single	A posição (em pontos) do canto superior esquerdo da caixa delimitadora do WordArt em relação à parte superior do documento.

Valor de retorno

Formato

Comentários

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

Exemplo

Este exemplo adiciona o WordArt que contém o teste de texto ao myDocument.

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

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.