Shapes.AddTextbox, méthode (Word)

Article
04/07/2023

Cette méthode ajoute une zone de texte à une zone de dessin.

Syntaxe

expression. AddTextbox( _Orientation_ , _Left_ , _Top_ , _Width_ , _Height_ )

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

Parameters

Nom	Requis/Facultatif	Type de données	Description
Orientation	Obligatoire	MsoTextOrientation	Orientation du texte. Certaines de ces constantes ne soient pas disponibles, en fonction de la prise en charge de langue (anglais (États-Unis), par exemple) que vous avez sélectionnée ou installée.
Left	Obligatoire	Simple	Position, exprimée en points, du bord gauche de la zone de texte.
Top	Obligatoire	Simple	Position, exprimée en points, du bord supérieur de la zone de texte.
Width	Obligatoire	Simple	Largeur, exprimée en points, de la zone de texte.
Height	Obligatoire	Simple	Hauteur, exprimée en points, de la zone de texte.

Valeur renvoyée

Forme

Exemple

Cet exemple montre comment ajouter une zone de texte à une zone de dessin dans un nouveau document.

Sub NewCanvasTextbox() 
 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:=75, Width:=150, Height:=200) 
 
 'Add a text box to the drawing canvas 
 shpCanvas.CanvasItems.AddTextbox _ 
 Orientation:=msoTextOrientationHorizontal, _ 
 Left:=1, Top:=1, Width:=100, Height:=100 
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