Shapes.AddTextEffect (PowerPoint)

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

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.

AddTextEffect (PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)

Dim strText As String: strText = 
Dim strFontName As String: strFontName = 
Dim shpAddTextEffect As Shape
Set shpAddTextEffect = ActiveWindow.Selection.SlideRange(1).Shapes.AddTextEffect(PresetTextEffect:=msoTextEffectMixed, Text:=strText, FontName:=strFontName, FontSize:=, FontBold:=msoTrue, FontItalic:=msoTrue, Left:=, Top:=)

Arguments

Estos son los argumentos con nombre :

PresetTextEffect (Office.MsoPresetTextEffect) - Efecto de texto preestablecido.

Text (String) - Texto del objeto WordArt.

FontName (String) - Nombre de la fuente utilizada en el objeto WordArt.

FontSize (Single) - Tamaño, en puntos, de la fuente utilizada en el objeto WordArt.

FontBold (Office.MsoTriState) - Determina si la fuente utilizada en el WordArt se establece en negrita.

FontItalic (Office.MsoTriState) - Determina si la fuente utilizada en el WordArt se establece en cursiva.

Left (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 (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.