Shapes.AddTextEffect (Word)

Ajoute une forme WordArt à une zone de dessin.

Quand vous ajoutez un objet WordArt à un document, la hauteur et largeur de l'objet sont définies automatiquement selon la taille et quantité de texte que vous spécifiez.

AddTextEffect (PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top, Anchor)


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

Les arguments nommés :

PresetTextEffect (Office.MsoPresetTextEffect) - Un effet de texte prédéfini.

Text (String) - Texte dans l'objet WordArt.

FontName (String) - Nom de la police utilisée dans l'objet WordArt.

FontSize (Single) - Taille (en points) de la police utilisée dans l'objet WordArt.

FontBold (Office.MsoTriState) - La valeur MsoTrue pour mettre en gras la police de l'objet WordArt.

FontItalic (Office.MsoTriState) - La valeur MsoTrue pour mettre en italique la police de l'objet WordArt.

Left (Single) - Position, exprimée en points, du bord gauche de la forme WordArt par rapport au bord gauche de la zone de dessin.

Top (Single) - Position, exprimée en points, du bord supérieur de la forme WordArt par rapport au bord supérieur de la zone de dessin.

Optional arguments

Les arguments suivants sont facultatifs

Anchor - Range