Método Shapes.AddTextEffect (PowerPoint)
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 utilizada en el objeto WordArt. |
| FontBold | Obligatorio | MsoTriState | Determina si la fuente utilizada en el WordArt se establece en negrita. |
| FontItalic | Obligatorio | MsoTriState | Determina si la fuente utilizada en el WordArt se establece en cursiva. |
| Left | Obligatorio | 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 | Obligatorio | 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. |
Valor devuelto
Forma
Comentarios
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.
Ejemplo:
En este ejemplo se agrega un WordArt que contiene el texto "Test" a myDocument.
Set myDocument = ActivePresentation.Slides(1)
Set newWordArt = myDocument.Shapes _
.AddTextEffect(PresetTextEffect:=msoTextEffect1, _
Text:="Test", FontName:="Arial Black", FontSize:=36, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, Top:=10)
Consulte también
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.