In diesem Beispiel wird in myDocument ein Rechteck eingefügt.
Set myDocument = Worksheets(1) myDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200