Método Shapes.AddTextEffect (Excel)

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 usada en WordArt.
FontBold	Obligatorio	MsoTriState	Aplica el formato de negrita a la fuente utilizada en el objeto WordArt.
FontItalic	Obligatorio	MsoTriState	Aplica el formato de cursiva a la fuente utilizada en el objeto WordArt.
Left	Obligatorio	Single	Posición, en puntos, de la esquina superior izquierda del cuadro de límite del objeto WordArt con relación a la esquina superior izquierda del documento.
Top	Obligatorio	Single	Posición, en puntos, de la esquina superior izquierda del cuadro de límite del objeto WordArt con relación a la parte superior del documento.

Valor devuelto

Shape

Comentarios

Al agregar WordArt a un documento, el alto y el ancho de WordArt se establecen automáticamente en función del tamaño y la cantidad de texto que especifique.

Ejemplo:

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

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

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.