Método TextEffectFormat.ToggleVerticalText (Word)
Cambia el flujo de texto del WordArt especificado de horizontal a vertical o viceversa.
expresión. ToggleVerticalText
expresión obligatoria. Variable que representa un objeto "TextEffectFormat".
Usar el método ToggleVerticalText se intercambian los valores de las propiedades Width y Height del objeto Shape que representa el WordArt y deja las propiedades Left y Top sin cambios.
El método Flip y la propiedad Rotation del objeto Shape y la propiedad RotatedChars y el método ToggleVerticalText del objeto TextEffectFormat afectan a la orientación de carácter y la dirección del flujo de texto en un objeto Shape que representa WordArt. Es podrán que deba experimentar para descubrir cómo combinar los efectos de estas propiedades y métodos para obtener el resultado que desea.
En este ejemplo, se agrega al documento activo un WordArt que contiene el texto "Test" y se cambia a vertical el flujo de texto horizontal (valor predeterminado para el estilo del WordArt especificado msoTextEffect1).
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
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.