Mostrar imagen al pasar el mouse por una celda

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