AddLabel Method

AddLabel method as it applies to the CanvasShapes object.

Adds a text label to a drawing canvas. Returns a Shapes object that represents the drawing canvas and adds it to the CanvasShapes object.

expression.AddLabel(Orientation, Left, Top, Width, Height)

expression Required. An expression that returns a CanvasShapes object.

MsoTextOrientation

MsoTextOrientation can be one of the following MsoTextOrientation constants:

msoTextOrientationDownward

msoTextOrientationHorizontal

msoTextOrientationHorizontalRotatedFarEast

msoTextOrientationMixed

msoTextOrientationUpward

msoTextOrientationVertical

msoTextOrientationVerticalFarEast

Some of these constants may not be available to you, depending on the language support (U.S. English, for example) that you've selected or installed.

Left    Required Single. The position, measured in points, of the left edge of the label relative to the left edge of the drawing canvas.

Top    Required Single. The position, measured in points, of the top edge of the label relative to the top edge of the drawing canvas.

Width    Required Single. The width of the label, in points.

Height    Required Single. The height of the label, in points.

AddLabel method as it applies to the Shapes object.

Adds a text label to a document. Returns a Shape object that represents the text label and adds it to the Shapes collection.

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

expression Required. An expression that returns a Shapes object.

MsoTextOrientation

MsoTextOrientation can be one of the following MsoTextOrientation constants:

msoTextOrientationDownward

msoTextOrientationHorizontal

msoTextOrientationHorizontalRotatedFarEast

msoTextOrientationMixed

msoTextOrientationUpward

msoTextOrientationVertical

msoTextOrientationVerticalFarEast

Some of these constants may not be available to you, depending on the language support (U.S. English, for example) that you've selected or installed.

Left    Required Single. The position, measured in points, of the left edge of the label relative to the anchor.

Top    Required Single. The position, measured in points, of the top edge of the label relative to the anchor.

Width    Required Single. The width of the label, in points.

Height    Required Single. The height of the label, in points.

Anchor    Optional Variant. A Range object that represents the text to which the label is bound. If Anchor is specified, the anchor is positioned at the beginning of the first paragraph in the anchoring range. If this argument is omitted, the anchoring range is selected automatically and the label is positioned relative to the top and left edges of the page.

Example

As it applies to the CanvasShapes object.

This example adds a blue text label with the text "Hello World" to a new drawing canvas in the active document.

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
    SetshpLabel = 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
    WithshpLabel
        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

As it applies to the Shapes object.

This example adds a label that contains the text "Test Label" to a new document.

Sub NewTextLabel()
    Dim docNew As Document
    Dim shpLabel As Shape

    Set docNew = Documents.Add

    'Add label to new document
    Set shpLabel = docNew.Shapes _
        .AddLabel(Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=100, Width:=300, Height:=200)

    'Add text to the label
    shpLabel.TextFrame.TextRange = "Test Label"
End Sub

Applies to | CanvasShapes Collection | Shapes Collection Object

See Also | AddTextbox Method | CreateTextbox Method | TextFrame Object