VBA: Una macro de Excel para borrar sólo imágenes entre objetos.

Como principio a una serie de artículos, comenzaré hoy explicando cómo podemos borrar las imagenes (Picture) de una hoja de cálculo, pero sólo las imágenes(Picture)!!, respetando el resto de objetos existentes, como botones, autoformas, gráficos, etc...
Esto es importante en muchos casos cuando queremos 'hacer limpieza' en nuestra hoja de Excel, pero limitada a cierto tipo de objetos.
En primer lugar, para generalizar nuestra macro de hoy, necesitaremos tener conciencia de cómo identifica Excel estos objetos, cómo los diferencia. Para ejemplarizarlo veremos la imagen siguiente donde observamos varias imágenes, junto a otros objetos (dos Botones, un Gráfico, un Rectángulo de texto, una autoforma ovalada):

Usando una instrucción Type sobre cada objeto, veremos de manera muy sencilla, qué identificador único usa Excel para cada objeto.
Insertaremos en un módulo del Explorador de proyectos del Editor de VBA el siguiente código, dándo forma a nuestra macro de Excel:

Sub TipoObjetos()
Dim img As Shape
On Error Resume Next
For Each img In ActiveSheet.Shapes
    MsgBox img.Name & " " & img.Type
Next
End Sub

Al ejecutar esta macro, idetificamos mediante un Cuadro MsgBox el nombre del objeto, y al lado el tipo o identificador. Como vemos en la imagen siguiente para dos de los objetos, lo importante es que para todas las imágenes (Picture) el tipo tiene el valor 11, y por ejemplo el gráfico el valor 3, o la autoforma Ovalada el valor 1.
Para nosotros, el valor 11 de las imágenes es lo importante.

Con la clave descubierta, lo que sigue es lo más sencillo, ya que construiremos una nueva macro, similar a la anterior:
Insertaremos en un módulo del Explorador de proyectos del Editor de VBA el siguiente código, dándo forma a nuestra macro de Excel:

Sub borrarImagenes()
Dim img As Shape
On Error Resume Next
For Each img In ActiveSheet.Shapes
     If img.Type = 11 Then img.Delete
Next
End Sub

Y al ejecutarla podremos observar cómo elimina o borra sólo los objetos tipo imágen, dejando el resto visibles y con todas sus funcionalidades...

En siguientes entradas aprederemos a Listar los ficheros exitentes en una carpeta de nuestro PC, y posteriormente, aprovecharemos esta lista, para insertar imágenes asociadas a esos ficheros, con formatos personalizados.