Cada vez que creamos o insertamos una imagen en una hoja, esta recibe un nombre: la palabraImagen, seguida de un nmero 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(Imagen3).Delete.
Al seleccionar una imagen aparece su nombre en el Cuadro de nombres. Este nombre consiste en la palabra Imagen seguida de un nmero de orden.
A medida que insertamos y eliminamos nuevas imgenes el nmero se va incrementando y, a menos que llevemos la cuenta, no hay forma de predecir el nmero que recibir una imagen en cada momento. Pero las imgenes tambión pueden identificarse por un nmero óndice, respecto de las que estón en la hoja en un momento dado. Por ejemplo, si tenemos cuatro imgenes, 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 nmero ms alto, igual a la cantidad de imgenes presentes en ese momento. Entonces podemos eliminarla con esta macro:
Sub Borrar_ultima()
figuras = ActuveSheet.Shapes.Count
ActiveSheet.Shapes(figuras).Delete
End Sub
figuras = ActuveSheet.Shapes.Count
ActiveSheet.Shapes(figuras).Delete
End Sub
Esta macro elimina la ms reciente de las imgenes insertadas en la hoja. Su nmero óndice coincide con la cantidad de imgenes en ese momento.
Esta macro primero cuenta cuóntas hojas hay con la instrucciónCount. La cantidad obtenida coincidir con el nmero óndice de la última imagen insertada. A continuación, la borra.
Fuente: RedUsers
