Propriedade TextEffectFormat.PresetShape (Publisher)
Retorna ou define uma constante MsoPresetTextEffectShape que representa a forma do WordArt especificado. Leitura/gravação.
Sintaxe
expressão. PresetShape
Expressão Uma variável que representa um objeto TextEffectFormat .
Valor de retorno
MsoPresetTextEffectShape
Comentários
O valor da propriedade PresetShape pode ser uma das constantes MsoPresetTextEffectShape declaradas na biblioteca de tipos do Microsoft Office.
Exemplo
Este exemplo define a forma da primeira forma na primeira página da publicação ativa como uma divisa cujo centro aponta para baixo. Para que este exemplo funcione, a primeira forma deve ser uma forma do WordArt.
Sub ChangeTextEffect()
With ActiveDocument.Pages(1).Shapes(1)
If .Type = msoTextEffect Then
.TextEffect.PresetShape = msoTextEffectShapeChevronDown
End If
End With
End Sub
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.