INSERTAR IMAGEN

[Pepito]

Tengo una base de datos en Excel
El cual contiene los nombres de empleados
Deseo que al posesionarse el cursor sobre
el nombre del empleado o codigo aparezca su fotografia
una celda a la derecha del nombre.

Cabe mencionar que son 300 empleados,
solo se debe mostrar una fotografia a la vez
y es la celda activa


La ruta en donde se encuentran las fotos es
"C:\Fotografias\Nombre Archivo y todas son jpg


Encontre es codigo que Fue creado por
HECTOR MIGUEL y muy parecido a lo que
pretendo :

rivate Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
Dim De_donde As String, Foto As Object, _
Arriba As Double, Izquierda As Double, Ancho As Double, Alto
As Double
Application.ScreenUpdating = False
On Error Resume Next
Me.Shapes("La_Foto").Delete
De_donde = "C:\Windows\" & [a1] & ".bmp" 'Aquí va la ruta donde
están las imágenes
If Dir(De_donde) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(De_donde)
With Me.Range("f1:h10")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "La_Foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
End Sub


Casi se ajusta a lo que necesito, con la variante
de que yo lo necesito al señalar el nombre o
codigo, la foto aparezca 1 celda a la derecha..

Ojala tengan alguna idea de cómo adaptarlo.


Gracias..