Utiliza la siguiente macro para mostrar una imagen en la hoja con simplemente pasar el mouse por la celda que contiene la fórmula:
=SI.ERROR(HIPERVINCULO(MiEvento(FILA(),COLUMNA()),"Ver imagen"),"Ver imagen")
Inserta el siguiente código en un módulo:
-----------------------------------------
Public Function MiEvento(fila As Long, columna As Long)
Dim imagen As Object
Dim nombre As String, carpeta As String
Dim celda As Range
Dim pict As Object
carpeta = "C:\trabajo\imagenes\" 'Carpeta con los archivos
Set celda = Range("A" & fila) 'Columna con el nombre de los archivos
nombre = celda.Text
On Error Resume Next
Set imagen = ActiveSheet.Pictures(celda.Text)
For Each pict In ActiveSheet.Pictures
If pict.Name <> nombre Then
pict.Delete
End If
Next
On Error GoTo 0
If imagen Is Nothing Then
Set imagen = ActiveSheet.Pictures.Insert(carpeta & nombre & ".JPG") 'Extensión del archivo
With imagen
.Name = nombre
.Top = celda.Top
.Left = Cells(fila, columna + 1).Left + 10
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 105 'Alto de la imagen
.ShapeRange.Width = 75 'Ancho de la imagen
End With
End If
End Function
-----------------------------------------
Consulta el procedimiento en el vídeo:
Saludos
Dante Amor