Método TextEffectFormat.ToggleVerticalText (Word)

Alterna o fluxo de texto no WordArt especificado de horizontal para vertical ou vice-versa.

Sintaxe

expression. ToggleVerticalText

expression é obrigatório. Uma variável que representa um objeto 'TextEffectFormat'.

Comentários

Usando a método ToggleVerticalText troca entre si os valores das propriedades Width e Height do objeto Shape que representa o WordArt e deixa as propriedades Left e Top inalteradas.

O método Flip e a propriedade Rotation do objeto Shape e a propriedade RotatedChars e método ToggleVerticalText do objeto TextEffectFormat afetam a orientação de caractere e a direção do fluxo de texto em um objeto Shape que representa o WordArt. Talvez você precise experimentar para descobrir como combinar os efeitos dessas propriedades e métodos para obter o resultado desejado.

Exemplo

Este exemplo adiciona ao documento ativo um WordArt contendo o texto "Test" e alterna de fluxo de texto horizontal (o padrão para o estilo de WordArt especificado, msoTextEffect1msoTextEffect1) para fluxo de texto vertical.

Dim newWordArt As Shape 
 
Set newWordArt = _ 
 ActiveDocument.Shapes.AddTextEffect( _ 
 PresetTextEffect:=msoTextEffect1, Text:="Test", _ 
 FontName:="Arial Black", FontSize:=36, FontBold:=False, _ 
 FontItalic:=False, Left:=100, Top:=100) 
newWordArt.TextEffect.ToggleVerticalText

Confira também

Objeto TextEffectFormat

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.