Creates a label. Returns a Shape object that represents the new label.
Dim shpAddLabel As Shape Set shpAddLabel = ActiveWindow.Selection.SlideRange(1).Shapes.AddLabel(Orientation:=msoTextOrientationMixed, Left:=, Top:=, Width:=, Height:=)
The following arguments are required:
Orientation (Office.MsoTextOrientation) - The text orientation. Some of these constants may not be available to you, depending on the language support (U.S. English, for example) that you have selected or installed.
Left (Single) - The position, measured in points, of the left edge of the label relative to the left edge of the slide.
Top (Single) - The position, measured in points, of the top edge of the label relative to the top edge of the slide.
Width (Single) - The width of the label, measured in points.
Height (Single) - The height of the label, measured in points.