Mouseover image

[IGORR]

Hi:

I am searching one solution for a mouseover.

If I put the mouse in A1 open the image of the path that it is in B1, the same for A2 and B2,.....I need a solution with ranges.

When I move the mouse from the cell, the image close automatically.



I don´t want to use the pictures in the comments.

Could you help me?

Thanks in advance

[Catalin.B]

There are many ways. One of them is to insert the image in a comment:

Right-click cell > Insert Comment > right-click comment box > Format Comment > Colors and Lines > Fill > Color > Fill Effects > Picture > select your image > Click OK

The comment box with your image will appear on mouseover.
Cheers,

[IGORR]

Thank for the answer, but I prefer other solution without inserting the picture in a comment box.

I have automatice the insertion of the path in the column, and I prefer to use VB.

What are other solutions?

[Catalin.B]

Hi Igorr,
Is there a reason behind this prefference?
You can use a code to load images in comments, and after this is done, you will not depend on macros to view the images, it will work even without macros enabled...

You can try the file attached for another possibility.
I used the LoadImagePath procedure to insert the images from a folder named Images, located in the same folder where this workbook is saved. (the images are already inserted, no need to run the code again, only if you want to change the images)

Sub LoadImagePath()
Dim Types As String, Nm As String
Types = "JPEG Image, PNG Image" 'add more types if needed
Dim Dest As Worksheet, i As Integer, oFso As Object, Img As Object
Set Dest = Worksheets("Mouse Over")
Set oFso = CreateObject("Scripting.FileSystemObject")
i = 2
For Each Img In oFso.getfolder(ThisWorkbook.Path & "\Images").Files
    If InStr(Types, Img.Type) > 0 Then
            Dest.Cells(i, "A") = Img.Path
            Rows(i).RowHeight = 75
            Nm = Mid(Dest.Cells(i, "A").Text, InStrRev(Dest.Cells(i, "A").Text, "\") + 1, InStr(Dest.Cells(i, "A").Text, ".") - InStrRev(Dest.Cells(i, "A").Text, "\") - 1)
            DoEvents
            Application.Goto Dest.Cells(i, "B")
            Dest.Pictures.Insert(Dest.Cells(i, "A").Text).Select
            Selection.Height = 75
            Selection.Name = Nm
     '      Dest.Cells(i, "E") = Img.Type
            i = i + 1
    End If
Next
End Sub

The ShowHide function below, will react when called from the Hyperlink function used in cells from columns B and C:

Function ShowHideImage(Rw As Integer, ViewOption As Boolean)
Dim Nm As String
Dim Dest As Worksheet
Set Dest = Worksheets("Mouse Over")
Nm = Mid(Dest.Cells(Rw, "A").Text, InStrRev(Dest.Cells(Rw, "A").Text, "\") + 1, InStr(Dest.Cells(Rw, "A").Text, ".") - InStrRev(Dest.Cells(Rw, "A").Text, "\") - 1)

If ViewOption Then
    Dest.Shapes(Nm).Height = 75
Else
    Dest.Shapes(Nm).Height = 0
End If

End Function