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

Answer 2

The simplest way:

Activesheet.Pictures.Delete

or

Activesheet.Shapes.Delete

Depending on the type of object your picture is.

Deletes all pictures with greater efficiency then iterating (looping through) and deleting them one by one.