AddLabel Method Example
This example adds a vertical label that contains the text "Test Label" to myDocument.
myDocument
Set myDocument = Worksheets(1) myDocument.Shapes.AddLabel(msoTextOrientationVertical, _ 100, 100, 60, 150) _ .TextFrame.Characters.Text = "Test Label"