Macro Borrar Imágenes desde excel 2003 a excel 2010
Es un gusto saludarlos nuevamente.
Por favor si es posible, su ayuda con lo siguiente:
Tengo una macro que trae a excel imágenes desde una carpeta, y tengo otra macro que borra dichas imágenes cuando sea necesario realizar esta acción.
El problema está, en que cambié la ruta de la carpeta donde tengo las imágenes y me trae las fotos sin problemas, pero al querer borrar las fotos no me funciona la macro borrar.
Un dato importante es que cambié el excel de 2003 a 2010.
Esta es la macro que utilizo para borrar:
Sub borrar()
Dim img As Shape
On Error Resume Next
For Each img In ActiveSheet.Shapes
If img.Type = msoPicture Then img.Delete
Next
End Sub
Respuesta de jose romero
1
Se debe cambiar:
If img.Type = msoPicture Then img.Delete
Por:
If img.Type = 11 Then img.Delete
