Mostrar imagen con formula y VBA

Hola amigos subo este tutorial, pensando en que a pesar de que hay muchos tutoriales y muy buenos, pero o eran muy complicados de hacer o solo era para seleccion y lista pero ninguno para que la celda activa dispare con una formula y tambien este es un poco unico o talvez unico.

trata de mostrar una imagen por medio de una forma, este es el codigo que se usaria

Private Sub Worksheet_Calculate()

Dim myImg As String

    If Range("B2").Value < 7 Then

        myImg = ThisWorkbook.Path & "\Imagenes\" & Range("B2").Value & ".jpg"

        Shapes("Contenedor").Fill.UserPicture (myImg)

    End If

End Sub[/CODE]

Dentro del archivo adjunto estan las instrucciones de como hacerlo de manera muy sencilla, espero les guste mucho, sangre mucho para llegar a este resultado, es muy versatil.

disfrutenlo y muchas gracias espero que les guste

tutorial de imagen.rar