Método TextEffectFormat.ToggleVerticalText (Publisher)

Cambia el flujo de texto del WordArt especificado de horizontal a vertical o viceversa.

Sintaxis

más sencilla.ToggleVerticalText

expresión Variable que representa un objeto TextEffectFormat .

Comentarios

Con el método ToggleVerticalText , se intercambian los valores de las propiedades Left y Top del objeto Shape que representa el WordArt, y se dejan sin modificar las propiedades Width y Height .

El método Voltear y la propiedad Rotación del objeto Forma , la propiedad RotatedChars y el método ToggleVerticalText afectan a la orientación de los caracteres y a la dirección del flujo del texto en un objeto Shape que representa WordArt. Es posible que deba experimentar para descubrir cómo combinar los efectos de estas propiedades y métodos con el fin de obtener los resultados deseados.

Ejemplo

En este ejemplo se agrega el elemento de WordArt que contiene la prueba de texto a la publicación activa y se cambia del flujo de texto horizontal (el valor predeterminado para el estilo de WordArt especificado, msoTextEffect1) al flujo de texto vertical.

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

Soporte técnico y comentarios

¿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.