borrar la imagen en la celda activa

hola, Michele !

... otra pregunta ... cual seria ... para borrar la imagen en la celda activa [...]

tal como te menciona Fernando en tus mensajes anteriores:
los objetos 'shape' como las imagenes que insertas por codigo NO son 'parte de' las celdas :(
[aunque...] puedes 'ver si coincide' su posicion [propiedad .TopLeftCell] con la direccion de la celda activa ;)
[sin embargo...] seria necesario hacer un 'ciclo de busqueda' por TODAS las figuras que contenga la hoja :((
[lo bueno es que...] puedes 'descartar' los objetos 'shape' que NO sean del tipo 'msoPicture' :))

un ejemplo:
Sub Borrar_Imagen_En_Celda_Activa()
Dim Fig As Shape
For Each Fig In ActiveSheet.Shapes
If Fig.Type = msoPicture And Fig.TopLeftCell.Address = ActiveCell.Address Then Fig.Delete
Next
End Sub

saludos,
hector.