Note
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.
Cette méthode crée une zone de texte. Renvoie un objet Shape qui représente la nouvelle zone de texte.
Syntaxe
expression.
AddTextbox( _Orientation_, _Left_, _Top_, _Width_, _Height_ )
expression Variable qui représente un objet Shapes.
Paramètres
| 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 | Unique | Position, exprimée en points, du bord gauche de la zone de texte par rapport au bord gauche de la diapositive. |
| Top | Obligatoire | Unique | Position, exprimée en points, du bord supérieur de la zone de texte par rapport au bord supérieur de la diapositive. |
| Width | Obligatoire | Unique | Largeur de la zone de texte, exprimée en points. |
| Height | Obligatoire | Unique | Hauteur de la zone de texte, exprimée en points. |
Valeur renvoyée
Shape
Exemple
Cet exemple montre comment ajouter une zone de texte qui contient le texte « Test Box » à myDocument.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=200, Height:=50).TextFrame _
.TextRange.Text = "Test Box"
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.