CanvasShapes.AddTextEffect (Word)

Agrega una forma de WordArt a un lienzo de dibujo.

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)

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

Arguments

Estos son los argumentos con nombre :

PresetTextEffect (Office.MsoPresetTextEffect) - Un 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) - msoTrue para poner en negrita la fuente de WordArt.

FontItalic (Office.MsoTriState) - msoTrue para poner en cursiva la fuente de WordArt.

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