CanvasShapes.AddTextEffect, méthode (Word)

  • Article

Ajoute une forme WordArt à une zone de dessin. Renvoie un objet Shape qui représente l'objet WordArt.

Syntaxe

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

expression Obligatoire. Variable qui représente un objet CanvasShapes .

Parameters

Nom Requis/Facultatif Type de données Description
PresetTextEffect Obligatoire Mso Un effet de texte prédéfini. Les valeurs des constantes MsoPresetTextEffect correspondent aux formats répertoriés dans la boîte de dialogue Galerie WordArt (numérotée de gauche à droite et de haut en bas).
Text Obligatoire Chaîne Texte dans l'objet WordArt.
FontName Obligatoire Chaîne Nom de la police utilisée dans l'objet WordArt.
FontSize Obligatoire Simple Taille (en points) de la police utilisée dans l'objet WordArt.
FontBold Obligatoire MsoTriState la valeur msoTrue pour mettre en gras la police de l'objet WordArt. msoFalse pour définir la police utilisée dans l'objet WordArt et régulière.
FontItalic Obligatoire MsoTriState la valeur msoTrue pour mettre en italique la police de l'objet WordArt. msoFalse pour définir la police utilisée dans l'objet WordArt et régulière.
Left Obligatoire Simple Position, exprimée en points, du bord gauche de la forme WordArt par rapport au bord gauche de la zone de dessin.
Top Obligatoire Simple Position, exprimée en points, du bord supérieur de la forme WordArt par rapport au bord supérieur de la zone de dessin.

Remarques

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.

Exemple

Cet exemple montre comment ajouter une zone de dessin à un nouveau document et comment insérer une forme WordArt dans la zone de dessin comportant le texte « Bonjour le monde ».

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

Voir aussi

CanvasShapes, Collection

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.