Shapes.AddLabel (Word)

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

AddLabel (Orientation, Left, Top, Width, Height, Anchor)

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

Arguments

Les arguments nommés :

Orientation (Office.MsoTextOrientation) - Orientation du texte.

Left (Single) - Position, exprimée en points, du bord gauche de l'étiquette par rapport au bord gauche de la zone de dessin.

Top (Single) - Position, exprimée en points, du bord supérieur de l'étiquette par rapport au bord supérieur de la zone de dessin.

Width (Single) - Largeur de l'étiquette, en points.

Height (Single) - Hauteur de l'étiquette, en points.

Optional arguments

Les arguments suivants sont facultatifs

Anchor - Range