AddLabel Method Example

This example adds a vertical label that contains the text "Test Label" to myDocument.

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes _
    .AddLabel(msoTextOrientationVerticalFarEast, 100, _
    100, 60, 150).TextFrame.TextRange.Text = "Test Label"