Método Shapes.AddTextEffect (Publisher)
Adiciona um novo objeto Shape que representa um objeto WordArt à coleção Shapes especificada.
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 para usar. 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). Pode ser uma das constantes MsoPresetTextEffect declaradas na biblioteca de tipos do Microsoft Office. Não há suporte para a constante msoTextEffectMixed. |
| Text | Obrigatório | String | O texto a ser usado para o objeto de WordArt. |
| FontName | Obrigatório | String | O nome da fonte a ser usada para o objeto de WordArt. |
| FontSize | Obrigatório | Variant | O tamanho de fonte a ser usado no objeto WordArd. Os valores numéricos são avaliados em pontos; cadeias de caracteres podem estar em todas as unidades com suporte do Microsoft Publisher (por exemplo, "2.5 in"). |
| FontBold | Obrigatório | MsoTriState | Determina se o texto do WordArt deve ser formatado como negrito. |
| FontItalic | Obrigatório | MsoTriState | Determina se o texto do WordArt deve ser formatado como itálico. |
| Left | Obrigatório | Variant | A posição da borda esquerda da forma que representa o objeto de WordArt. |
| Top | Obrigatório | Variant | A posição da borda superior da forma que representa o objeto de WordArt. |
Valor de retorno
Forma
Comentários
Para os parâmetros Esquerdo e Superior , os valores numéricos são avaliados em pontos; cadeias de caracteres podem estar em todas as unidades com suporte pelo Publisher (por exemplo, "2.5 in").
O texto e a formatação do objeto de WordArt determinam sua altura e sua largura.
Use a propriedade Shape.TextEffect para retornar um objeto TextEffectFormat cujas propriedades podem ser usadas para editar um objeto WordArt existente.
O parâmetro FontBold pode ser uma das constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office e mostradas na tabela a seguir.
| Constante | Descrição |
|---|---|
| msoFalse | Não formata o texto do WordArt como negrito. |
| msoTrue | Formata o texto do WordArt como negrito. |
O parâmetro FontItalic pode ser uma das constantes MsoTriState mostradas na tabela a seguir.
| Constante | Descrição |
|---|---|
| msoFalse | Não formata o texto do WordArt como itálico. |
| msoTrue | Formata o texto do WordArt como itálico. |
Exemplo
O exemplo a seguir adiciona um objeto de WordArt à primeira página da publicação ativa.
Dim shpWordArt As Shape
Set shpWordArt = ActiveDocument.Pages(1).Shapes.AddTextEffect _
(PresetTextEffect:=msoTextEffect7, Text:="Annual Report", _
FontName:="Arial Black", FontSize:=24, _
FontBold:=msoFalse, FontItalic:=msoFalse, _
Left:=144, Top:=72)
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.