Adds a text label to a drawing canvas. Returns a Shapes object that represents the text label.
AddLabel (Orientation, Left, Top, Width, Height)
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
The following arguments are required:
(Office.MsoTextOrientation) - The orientation of the text.
(Single) - The position, measured in points, of the left edge of the label relative to the left edge of the drawing canvas.
(Single) - The position, measured in points, of the top edge of the label relative to the top edge of the drawing canvas.
(Single) - The width of the label, in points.
(Single) - The height of the label, in points.