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.
Cette méthode crée une étiquette. Renvoie un objet Shape qui représente la nouvelle étiquette.
Syntaxe
expression.
AddLabel( _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 l’étiquette par rapport au bord gauche de la diapositive. |
| Top | Obligatoire | Unique | Position, exprimée en points, du bord supérieur de l’étiquette par rapport au bord supérieur de la diapositive. |
| Width | Obligatoire | Unique | Largeur de l’étiquette, exprimée en points. |
| Height | Obligatoire | Unique | Hauteur de l’étiquette, exprimée en points. |
Valeur renvoyée
Shape
Exemple
Cet exemple ajoute à myDocument une étiquette verticale qui contient le texte « Test Label ».
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddLabel(Orientation:=msoTextOrientationVerticalFarEast, _
Left:=100, Top:=100, Width:=60, Height:=150).TextFrame _
.TextRange.Text = "Test Label"
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.