Método CanvasShapes.AddTextEffect (Word)

Agrega una forma de WordArt a un lienzo de dibujo. Devuelve un objeto Shape que representa a la forma de WordArt.

Sintaxis

expresión. AddTextEffect (PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)

expresión requerida. Variable que representa un objeto CanvasShapes .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
PresetTextEffect	Obligatorio	Mso	Un efecto de texto preestablecido. Los valores de las constantes MsoPresetTextEffect corresponden a los formatos que aparecen en el cuadro de diálogo Galería de WordArt (numerado de izquierda a derecha y de arriba a abajo).
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	msoTrue para poner en negrita la fuente de WordArt. msoFalse para establecer la fuente utilizada en el WordArt como normal.
FontItalic	Obligatorio	MsoTriState	msoTrue para poner en cursiva la fuente de WordArt. msoFalse para establecer la fuente utilizada en el WordArt como normal.
Left	Obligatorio	Single	La posición, medida en puntos, del borde izquierdo de la forma de WordArt con relación al borde izquierdo del lienzo de dibujo.
Top	Obligatorio	Single	La posición, medida en puntos, del borde superior de la forma de WordArt con relación al borde superior del lienzo de dibujo

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 lienzo de dibujo a un documento nuevo y se agrega una forma de WordArt dentro del lienzo que contiene el texto "Hello, World".

Sub NewCanvasTextEffect() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 'Create a new document and add a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=100, Top:=100, Width:=150, _ 
 Height:=50) 
 
 'Add WordArt shape to the drawing canvas 
 shpCanvas.CanvasItems.AddTextEffect _ 
 PresetTextEffect:=msoTextEffect20, _ 
 Text:="Hello, World", FontName:="Tahoma", _ 
 FontSize:=15, FontBold:=msoTrue, _ 
 FontItalic:=msoFalse, _ 
 Left:=120, Top:=120 
End Sub

Consulte también

CanvasShapes (colecció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.