AddShape Method Example

This example adds a rectangle to myDocument.

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200