Shapes.AddTextEffect, méthode (Word)

Article
04/07/2023

Ajoute une forme WordArt à une zone de dessin. Renvoie un objet Shape qui représente l'objet WordArt et l'ajoute à la collection CanvasShapes.

Syntaxe

expression. AddTextEffect( _PresetTextEffect_ , _Text_ , _FontName_ , _FontSize_ , _FontBold_ , _FontItalic_ , _Left_ , _Top_ )

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

Parameters

Nom	Requis/Facultatif	Type de données	Description
PresetTextEffect	Obligatoire	MsoPresetTextEffect	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.
FontItalic	Obligatoire	MsoTriState	La valeur MsoTrue pour mettre en italique la police de l'objet WordArt.
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

Shapes, Collection d'objets

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.

Partager via