CanvasShapes.AddTextEffect (Word)

Adiciona uma forma de WordArt a uma tela de desenho. Retorna um objeto Shape que representa o WordArt.

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.

AddTextEffect (PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)

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

Arguments

O seguinte argumento é opcional

PresetTextEffect (Office.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 (String) - O texto do WordArt.

FontName (String) - O nome da fonte usada no WordArt.

FontSize (Single) - O tamanho (em pontos) da fonte usada no WordArt.

FontBold (Office.MsoTriState) - msoTrue como negrito a fonte da WordArt. msoFalse para definir a fonte usada no WordArt como regular.

FontItalic (Office.MsoTriState) - msoTrue deixa em itálico a fonte da WordArt. msoFalse para definir a fonte usada no WordArt como regular.

Left (Single) - A posição, medida em pontos, da borda esquerda da forma de WordArt em relação à borda esquerda da tela de desenho.

Top (Single) - A posição, medida em pontos, da borda superior da forma de WordArt em relação à borda superior da tela de desenho.