Método TextEffectFormat.ToggleVerticalText (Publisher)

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

Sintaxis

expresión. ToggleVerticalText

expresión Variable que representa un objeto TextEffectFormat .

Observaciones

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

El método Flip y la propiedad Rotation del objeto Shape y las propiedades RotatedChars y ToggleVerticalText afectan a la orientación del carácter y a la dirección del flujo de 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 WordArt que contiene el texto Test 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.