Cada vez que creamos o insertamos una imagen en una hoja, esta recibe un nombre: la palabra Imagen, seguida de un número de orden (Imagen 1, Imagen 2, etc.).
Este nombre se usa, escrito entre comillas, como argumento de la instrucción Shapes. Por ejemplo, si queremos eliminar la imagen llamada Imagen 3, usamos la instrucción:
Shapes(“Imagen 3”).Delete.
Al seleccionar una imagen aparece su nombre en el Cuadro de nombres. Este nombre consiste en la palabra “Imagen” seguida de un número de orden.
A medida que insertamos y eliminamos nuevas imágenes el número se va incrementando y, a menos que llevemos la cuenta, no hay forma de predecir el número que recibirá una imagen en cada momento. Pero las imágenes también pueden identificarse por un número índice, respecto de las que estén en la hoja en un momento dado. Por ejemplo, si tenemos cuatro imágenes, la primera será Shapes(1); la segunda, Shapes(2) y así sucesivamente. Si luego eliminamos la primera imagen, la segunda pasará a ser Shapes(1). De esta forma, la última imagen insertada se identificará con el número más alto, igual a la cantidad de imágenes presentes en ese momento. Entonces podemos eliminarla con esta macro:
Sub Borrar_ultima()
figuras = ActuveSheet.Shapes.Count
ActiveSheet.Shapes(figuras).Delete
End Sub
Esta macro elimina la más reciente de las imágenes insertadas en la hoja. Su número índice coincide con la cantidad de imágenes en ese momento.
Esta macro primero cuenta cuántas hojas hay con la instrucción Count. La cantidad obtenida coincidirá con el número índice de la última imagen insertada. A continuación, la borra.
Borra la última. No sé qué quisieron decir con el título.
Pero la macro borra imagenes repetidas como dice el título o solo la última imagen?