Insertar WordArt por codigo

[Jomen]

Hola excelente grupo

Necesito ayuda del basto conocimiento de ustedes.
¿Cuál es el código para insertar un objeto de "wordart" en excell?

Gracias de antemano por tan valiosa ayuda

Saludos,

Josué

[H�ctor Miguel]

hola. Josu� !

> Cual es el codigo para insertar un objeto de "wordart" en excell?

(p.e.)

Sub Macro1()
ActiveSheet.Shapes.AddTextEffect _
msoTextEffect28, "Texto de prueba", "Arial", 20#, _
msoTrue, msoFalse, 50, 50
End Sub

Sub Macro2()
ActiveSheet.Shapes.AddTextEffect _
msoTextEffect1, "Escriba aqui el texto", "Arial Black", 36#, _
msoFalse, msoFalse, 165#, 199.5
End Sub

no dejes de consultar la ayuda en linea {F1} desde vba-excel por el tema relativo al metodo AddTextEffect

saludos,
hector.

=====
metodo AddTextEffect

sintaxis: expresion.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)

expresion: expresion que devuelve un objeto Shapes

PresetTextEffect: efecto de texto preestablecido. Puede ser una de las siguientes constantes MsoPresetTextEffect:
msoTextEffect1 .. hasta msoTextEffect30

Text: texto del WordArt.

FontName: nombre de la fuente utilizada en el objeto WordArt.

FontSize: tamano, en puntos de la fuente utilizada en el objeto WordArt.

FontBold: true para establecer en negrita la fuente establecida en el objeto WordArt.

FontItalic: true para establecer en cursiva la fuente establecida en el objeto WordArt.

Left, Top: posicion, en puntos, de la esquina superior izquierda del cuadro de limite del WordArt
con relacion a la esquina superior izquierda del documento
=====