Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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 .
Paramètres
| 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
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.