Asignar Imagen a una Celda

No se si te servirà:

Si tienes el nombre de la imagen en la celda B5 i quieres poner la imagen
en la celda B4. El siguiente codigo te pondria la imagen en la celda B4,
lo que no se hacer es encuadrar la imagen dentro la celda.Supongo que se
podra hacer.

Sub CargarImagen()
Dim miPATH As String, direccion As String
'Pongo en la variable miPATH la direccion para llegar a la carpeta con
la imagenes.
miPATH = "C:\Documents and Settings\marc\Mis documentos\Mis imágenes"
With Worksheets("hoja1")
'lo puedes quitar si siempre se ejecuta el codigo en la hoja1
.Activate
'seleccionas la celda B4
.Range(.Cells(4, 2), .Cells(4, 2)).Select
'Agregas al final de la direccion el archivo que contien la imagen
'en este caso esta a la celda B5
direccion = miPATH & "\" & CStr(.Cells(5, 2).Value)
'insertas la imagen en la casilla antes seleccionada
.Pictures.Insert (direccion)
End With
End Sub

Espero que te sirva.