AddLabel Method
Applies To
Shapes collection object.
Description
Creates a label. Returns a Shape object that represents the new label.
Syntax
expression.AddLabel(Orientation, Left, Top, Width, Height)
expression Required. An expression that returns a Shapes object.
Orientation Required Long. The text orientation within the label. Can be one of the following MsoTextOrientation constants: msoTextOrientationDownward, msoTextOrientationHorizontal, msoTextOrientationHorizontalRotatedFarEast, msoTextOrientationMixed, msoTextOrientationUpward, msoTextOrientationVertical, or msoTextOrientationVerticalFarEast. The Far East constants are not used in U.S./English Microsoft Excel.
Left, Top Required Single. The position (in points) of the upper-left corner of the label relative to the upper-left corner of the document.
Width, Height Required Single. The width and height of the label, in points.
Example
This example adds a vertical label that contains the text "Test Label" to myDocument.
Set myDocument = Worksheets(1)
myDocument.Shapes.AddLabel(msoTextOrientationVertical, 100, 100, 60, 150) _
.TextFrame.Characters.Text = "Test Label"