CanvasShapes.AddTextbox, méthode (Word)

Ajoute une zone de texte à une zone de dessin. Renvoie un objet Shape qui représente la zone de texte.

Syntaxe

expression. AddTextbox (Orientation, Left, Top, Width, Height)

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

Parameters

Nom	Requis/Facultatif	Type de données	Description
Orientation	Obligatoire	MsoTextOrientation	Orientation du texte. Certaines constantes MsoTextOrientation 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.

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

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.