Propriedade TextEffectFormat.RotatedChars (Publisher)
Retorna msoTrue se os caracteres no WordArt especificado forem girados 90 graus em relação à forma delimitadora do WordArt. Retorna msoFalse se os caracteres no WordArt especificado mantiverem sua orientação original em relação à forma delimitadora. Leitura/gravação.
Sintaxe
expressão. Gráficos Rotativos
Expressão Uma variável que representa um objeto TextEffectFormat .
Valor de retorno
Comentários
Se o WordArt tiver texto horizontal, a definição da propriedade RotatedChars como True gira os caracteres 90 graus no sentido anti-horário.
Se o WordArt tiver texto vertical, a definição da propriedade RotatedChars como False gira os caracteres 90 graus no sentido horário.
Use o método ToggleVerticalText para alternar entre o fluxo de texto horizontal e vertical.
O método Flip e a propriedade Rotation do objeto Shape e a propriedade RotatedChars e o método ToggleVerticalText afetam a orientação do caractere e a direção do fluxo de texto em um objeto Shape que representa o WordArt. Talvez você tenha de experimentar para descobrir a maneira de combinar os efeitos dessas propriedades e métodos, a fim de obter o resultado desejado.
Exemplo
Este exemplo adiciona o WordArt que contém o teste de texto à publicação ativa e gira os caracteres 90 graus no sentido anti-horário.
Sub CreateFormatWordArt()
With ActiveDocument.Pages(1).Shapes _
.AddTextEffect(PresetTextEffect:=msoTextEffect1, _
Text:="Test", FontName:="Arial Black", FontSize:=36, _
FontBold:=False, FontItalic:=False, Left:=10, Top:=10)
.TextEffect.RotatedChars = msoTrue
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.