AddShape Method Example

This example adds a rectangle to myDocument.

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