Shapes.AddLabel, méthode (Word)

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

Syntaxe

expression. AddLabel (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.
Left	Obligatoire	Simple	Position, exprimée en points, du bord gauche de l'étiquette par rapport au bord gauche de la zone de dessin.
Top	Obligatoire	Simple	Position, exprimée en points, du bord supérieur de l'étiquette par rapport au bord supérieur de la zone de dessin.
Width	Obligatoire	Simple	Largeur de l'étiquette, en points.
Height	Obligatoire	Simple	Hauteur de l'étiquette, en points.

Valeur renvoyée

Shapes

Exemple

Cet exemple montre comment ajouter une étiquette de texte bleue comportant le texte « Bonjour le monde » à une zone de dessin dans le document actif.

Sub NewCanvasTextLabel() 
 Dim shpCanvas As Shape 
 Dim shpLabel As Shape 
 
 'Add a drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas _ 
 (Left:=100, Top:=75, Width:=150, Height:=200) 
 
 'Add a label to the drawing canvas 
 Set

shpLabel = shpCanvas.CanvasItems.AddLabel _ 
 (Orientation:=msoTextOrientationHorizontal, _ 
 Left:=15, Top:=15, Width:=100, Height:=100) 
 
 'Fill the label textbox with a color, 
 'add text to the label and format it 
 With

shpLabel 
 With .Fill 
 .BackColor.RGB = RGB(Red:=0, Green:=0, Blue:=192) 
 'Make the fill visible 
 .Visible = msoTrue 
 End With 
 With .TextFrame.TextRange 
 .Text = "Hello World." 
 .Bold = True 
 .Font.Name = "Tahoma" 
 End With 
 End With 
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.