Eliminar imagen especifica de una celda

Hola expertos. Estoy estancado con un formulario que edita y elimina datos

El tema es el siguiente. Necesito borrar un registro completo con su imagen inclusive (una pequeña imagen del alumno asociado a ese registro).

El tema es que borro el registro pero en lo que toca a la imagen veo que sigue ahi.

Me doy cuenta que el tema pasa por identificar la ruta de la imagen y el tipo al que corresponde. Consulte este vinculo y otros

http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/1851030/macro-eliminar-imagenes

en el botón "eliminar" tengo este código

Private Sub BtnEliminarRegistro_Click()
sino = MsgBox("¿Deseas eliminar este registro?", vbYesNo, "Confirmar")
If sino = vbYes Then
EntireRow.Delete
img.Delete
End Sub

previo a ello había declarado la variable "img" como publica (Public img As Shapes)

y en el botón "buscar" de ese mismo formulario, había seteado la variable "img" si encontraba el registro. Aclaro que el botón botón "buscar" se activa antes de "eliminar".

La ruta de la imagen la guardo en la variable "rutaimagen"

Set img = ActiveSheet.Pictures.Insert(rutaimagen).Select

Pero se ve que algo desconozco y estoy haciendo mal pues me salta falla y en el depurador "img" se muestra como vacío.

Agradecere cualquier sugerencia.