AddShape Method Example

This example adds a rectangle to a new document.

Set myDocument = Documents.Add
myDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200