Método Shapes.AddTextEffect (Word)

Adiciona uma forma de WordArt a uma tela de desenho. Retorna um objeto Shape que representa o WordArt e o adiciona à coleção CanvasShapes.

Sintaxe

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

expressão Obrigatório. Uma variável que representa um objeto Shapes .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
PresetTextEffect	Obrigatório	MsoPresetTextEffect	Um efeito de texto predefinido. Os valores das constantes MsoPresetTextEffect correspondem aos formatos listados na caixa de diálogo Galeria WordArt (numerada da esquerda para a direita e de cima para baixo).
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	MsoTrue como negrito a fonte da WordArt.
FontItalic	Obrigatório	MsoTriState	MsoTrue deixa em itálico a fonte da WordArt.
Left	Obrigatório	Single	A posição, medida em pontos, da borda esquerda da forma de WordArt em relação à borda esquerda da tela de desenho.
Top	Obrigatório	Single	A posição, medida em pontos, da borda superior da forma de WordArt em relação à borda superior da tela de desenho.

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 uma tela de desenho a um novo documento e insere uma forma de WordArt na tela que contém o texto "Olá mundo!".

Sub NewCanvasTextEffect() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 'Create a new document and add a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=100, Top:=100, Width:=150, _ 
 Height:=50) 
 
 'Add WordArt shape to the drawing canvas 
 shpCanvas.CanvasItems.AddTextEffect _ 
 PresetTextEffect:=msoTextEffect20, _ 
 Text:="Hello, World", FontName:="Tahoma", _ 
 FontSize:=15, FontBold:=msoTrue, _ 
 FontItalic:=msoFalse, _ 
 Left:=120, Top:=120 
End Sub

Confira também

Objeto da coleção 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.