Propiedad ShapeRange.TextEffect (Publisher)

Devuelve un objeto TextEffectFormat que representa las propiedades de un objeto de WordArt de formato de texto.

Sintaxis

expresión. TextEffect

expresión Variable que representa un objeto ShapeRange .

Ejemplo

En este ejemplo se agrega un objeto WordArt a la publicación activa y se da formato e se inserta texto adicional en él.

Sub AddFormatNewWordArt() 
 With ActiveDocument.Pages(1).Shapes.AddTextEffect( _ 
 PresetTextEffect:=msoTextEffect1, Text:="Test", _ 
 FontName:="Snap ITC", FontSize:=30, FontBold:=msoTrue, _ 
 FontItalic:=msoFalse, Left:=150, Top:=130) 
 .Rotation = 90 
 With .TextEffect 
 .RotatedChars = msoTrue 
 .Text = "This is a " & .Text 
 End With 
 .Width = 250 
 End With 
End Sub

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.