Método TextEffectFormat.ToggleVerticalText (Excel)

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

Sintaxe

expressão. ToggleVerticalText

expressão Uma variável que representa um objeto TextEffectFormat .

Comentários

Utilizar o método ToggleVerticalText troca os valores das propriedades Largura e Altura do objeto Forma que representa o WordArt e deixa as propriedades Esquerda e Superior inalteradas.

O método Flip e a propriedade Rotação do objeto Shape e a propriedade RotatedChars e o método ToggleVerticalText do objeto TextEffectFormat afetam a orientação do caráter e a direção do fluxo de texto num 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 WordArt que contém o texto Teste a myDocument e muda do fluxo de texto horizontal (a predefinição para o estilo wordArt especificado, msoTextEffect1) para o fluxo de texto vertical.

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

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.