Shapes.AddTextEffect, méthode (Excel)

Crée un objet WordArt. Renvoie un objet Shape qui représente le nouvel objet WordArt.

Syntaxe

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

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
PresetTextEffect	Requis	MsoPresetTextEffect	Effet de texte prédéfini.
Texte	Obligatoire	Chaîne	Texte dans l'objet WordArt.
FontName	Obligatoire	Chaîne	Nom de la police utilisée dans l'objet WordArt.
FontSize	Obligatoire	Unique	Taille (en points) de la police utilisée dans l’objet WordArt.
FontBold	Obligatoire	MsoTriState	Police en gras utilisée dans l'objet WordArt.
FontItalic	Obligatoire	MsoTriState	Police en italique utilisée dans l'objet WordArt.
Left	Obligatoire	Unique	Position (en points) du coin supérieur gauche de la zone de délimitation de l'objet WordArt par rapport au coin supérieur gauche du document.
Top	Obligatoire	Unique	Position (en points) du coin supérieur gauche de la zone de délimitation de l'objet WordArt par rapport au sommet du document.

Valeur renvoyée

Forme

Remarques

Lorsque vous ajoutez un objet WordArt à un document, la hauteur et la largeur de l’objet WordArt sont automatiquement définies en fonction de la taille et de la quantité de texte que vous spécifiez.

Exemple

Cet exemple montre comment ajouter un objet WordArt contenant le texte Test à myDocument.

Set myDocument = Worksheets(1) 
Set newWordArt = myDocument.Shapes.AddTextEffect( _ 
    PresetTextEffect:=msoTextEffect1, Text:="Test", _ 
    FontName:="Arial Black", FontSize:=36, _ 
    FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, _ 
    Top:=10)

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.