Eventos MouseMove y Change con el objeto Image.

Taller

Diseña el siguiente formulario

Tenga en cuenta:

Las imagenes deben estar en la misma carpeta donde esta el archivo de Excel.

Copie el siguiente código siguiente:

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Respuesta = ""

Image2.Picture = LoadPicture()

End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  With ActiveWorkbook

      Image2.Picture = LoadPicture(.Path + "\Ojo.jpg")

      Respuesta = "Explica el Ojo"

  End With

End Sub

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  With ActiveWorkbook

      Image2.Picture = LoadPicture(.Path + "\oreja.jpg")

      Respuesta = "Explica la Oreja"

  End With

End Sub