Deleting pictures with Excel VBA

Question

How do I delete all the pictures in an Excel 2007 worksheet? A working code example would be great.

Answer 1

Dim shape As Excel.shape

For Each shape In ActiveSheet.Shapes
        shape.Delete
Next