Eliminación de imágenes con Excel VBA

Question

¿Cómo elimino todas las imágenes en una hoja de cálculo de Excel 2007? Un ejemplo de código de trabajo sería genial.

Answer 1

Dim shape As Excel.shape 

For Each shape In ActiveSheet.Shapes 
     shape.Delete 
Next 

Answer 2

La forma más sencilla:

Activesheet.Pictures.Delete 

o

Activesheet.Shapes.Delete 

Dependiendo del tipo de objeto que la imagen es.

Elimina todas las imágenes con mayor eficiencia y luego itera (en bucle) y las borra una a una.

Answer 3

Para borrar todas las imágenes u otros formas, se puede repetir todos ellos y comprobar el tipo:

Dim shape As Excel.shape 

For Each shape In ActiveSheet.Shapes 

    Select Case shape.Type 
     Case msoPicture, msoMedia, msoShapeTypeMixed, msoOLEControlObject, msoAutoShape 
      shape.Delete 
     Case Else 
      'Do nothing 
    End Select 
Next 

En mi caso este código era muy útil porque mi hoja estaba lleno de formas transparentes de tipo msoAutoShape cual Pensé que eran imágenes. Por lo tanto, Activesheet.Pictures.Delete no funcionaba.

puede encontrar todos los tipos de forma en este enlace: http://msdn.microsoft.com/en-us/library/aa432678(v=office.12).aspx