AddLabel Method 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"