Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Agrega una forma de WordArt a un lienzo de dibujo. Devuelve un objeto Shape que representa el WordArt y lo agrega a la colección CanvasShapes.
Sintaxis
expresión.
AddTextEffect( _PresetTextEffect_ , _Text_ , _FontName_ , _FontSize_ , _FontBold_ , _FontItalic_ , _Left_ , _Top_ )
expresión necesaria. Variable que representa un objeto Shapes .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| PresetTextEffect | Obligatorio | MsoPresetTextEffect | 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. |
| FontItalic | Obligatorio | MsoTriState | MsoTrue para poner en cursiva la fuente de WordArt. |
| 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 |
Observaciones
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
Vea también
Objeto de la colección de formas
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.