Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Retorna ou define o estilo do WordArt especificado. Os valores dessa propriedade correspondem aos formatos da caixa de diálogo Galeria de WordArt (menu Inserir) numerados da esquerda para a direita, de cima para baixo). MsoPresetTextEffect para leitura/gravação.
Sintaxe
expression. PresetTextEffect
expression é obrigatório. Uma variável que representa um objeto 'TextEffectFormat'.
Comentários
Configuração da propriedade PresetTextEffect define automaticamente muitas outras propriedades de formatação da forma especificada.
Exemplo
Este exemplo define o estilo de todos os WordArts em myDocument como o primeiro estilo listado na caixa de diálogo Galeria do WordArt.
Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
If s.Type = msoTextEffect Then
s.TextEffect.PresetTextEffect = msoTextEffect1
End If
Next
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.