AddShape Method Example
This example adds a rectangle to a new document.
Set myDocument = Documents.Add myDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200