Método Shapes.AddTextEffect (Excel)

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

Sintaxis

más sencilla.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 El tamaño (en puntos) de la fuente usada en el 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, la altura y el ancho del WordArt se establecen automáticamente en función del tamaño y la cantidad de texto que especifique.

Ejemplo

En este ejemplo se agrega un objeto de WordArt que contiene el texto Probar a miDocumento.

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.

  • Last updated on