Método CanvasShapes.AddTextEffect (Word)
Adiciona uma forma de WordArt a uma tela de desenho. Retorna um objeto Shape que representa o WordArt.
Sintaxe
expressão. AddTextEffect (PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)
expressão Obrigatório. Uma variável que representa um objeto CanvasShapes .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| PresetTextEffect | Obrigatório | Mso | 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. msoFalse para definir a fonte usada no WordArt como regular. |
| FontItalic | Obrigatório | MsoTriState | msoTrue deixa em itálico a fonte da WordArt. msoFalse para definir a fonte usada no WordArt como regular. |
| 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
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.