Método Shapes.AddTextEffect (PowerPoint)

Crea un objeto WordArt. Devuelve un objeto Shape que representa el nuevo objeto WordArt.

Sintaxis

expresión. AddTextEffect( _PresetTextEffect_, _Text_, _FontName_, _FontSize_, _FontBold_, _FontItalic_, _Left_, _Top_ )

expresión Variable que representa un objeto Shapes.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
PresetTextEffect	Obligatorio	MsoPresetTextEffect	Efecto de texto preestablecido.
Text	Obligatorio	String	Texto del objeto WordArt.
FontName	Obligatorio	String	Nombre de la fuente utilizada en el objeto WordArt.
FontSize	Obligatorio	Single	Tamaño, en puntos, de la fuente utilizada en el objeto WordArt.
FontBold	Obligatorio	MsoTriState	Determina si la fuente utilizada en el WordArt se establece en negrita.
FontItalic	Obligatorio	MsoTriState	Determina si la fuente utilizada en el WordArt se establece en cursiva.
Left	Obligatorio	Single	Posición, medida en puntos, del borde izquierdo del cuadro de límite del WordArt en relación con el borde izquierdo de la diapositiva.
Top	Obligatorio	Single	Posición, medida en puntos, del borde superior del cuadro de límite del WordArt en relación con el borde superior de la diapositiva.

Valor devuelto

Forma

Comentarios

Al agregar un objeto WordArt a un documento, el alto y el ancho se establecen automáticamente según el tamaño y cantidad de texto especificado.

Ejemplo

En este ejemplo se agrega un WordArt que contiene el texto "Test" a myDocument.

Set myDocument = ActivePresentation.Slides(1) 
Set newWordArt = myDocument.Shapes _ 
    .AddTextEffect(PresetTextEffect:=msoTextEffect1, _ 
    Text:="Test", FontName:="Arial Black", FontSize:=36, _ 
    FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, Top:=10)

Vea también

Objeto Shapes

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.