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.