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"