asked on

Display Pics while selecting cell in a certain Range

excel 2010

Range is 02:02500

When i move my from cell to cell in The Range 02:02500

I would like a pic displayed for the value in that cell.

I have a folder(s) of pics:

The following code works for me using a userform and a listbox value to get the correct pic.

What I need:
To move from cell to cell and bring up a useform with a just a pic box with an image in it.
from the value that is in the cell.

Thanks
fordraiders

GskuL = frmResultAll.ListBox1.Column(1)
End If

End If

Gstart = Left(GskuL, 1)
Gstart = Gstart

Select Case Gstart
Case 1
gJpg = "C:\Gr_Images_2013\1_JPG\"
Case 2
gJpg = "C:\Gr_Images_2013\2_JPG\"
Case 3
gJpg = "C:\Gr_Images_2013\3_JPG\"
Case 4
gJpg = "C:\Gr_Images_2013\4_JPG\"
Case 5
gJpg = "C:\Gr_Images_2013\5_JPG\"
Case 6
gJpg = "C:\Gr_Images_2013\6_JPG\"
Case 7
gJpg = "C:\Gr_Images_2013\7_JPG\"
Case 8
gJpg = "C:\Gr_Images_2013\8_JPG\"
Case 9
gJpg = "C:\Gr_Images_2013\9_JPG\"
Case Else

End Select

On Error Resume Next
If Gsku = "" Then
fPathNF = "C:\Gr_Images_2013\"
frmResultAll.Image1.Picture = LoadPicture(fPathNF & "NOTAVAIL.JPG")
Else
'Look in the directory where this workbook is located.
' fPath = "C:\Gr_Images_2013\"
fPath = gJpg '"C:\Gr_Images_2013\"
' On Error Resume Next
'If a matching picture is found then display it.
frmResultAll.Image1.Picture = LoadPicture(fPath & Gsku & ".jpg")
'If No picture found then display the default picture.

If Err = 0 Then
frmResultAll.Repaint
Exit Sub
End If
fPathNF = "C:\Gr_Images_2013\"
frmResultAll.Image1.Picture = LoadPicture(fPathNF & "NOTAVAIL.JPG")
frmResultAll.Repaint
End If

ASKER CERTIFIED SOLUTION

rspahitz

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Fordraiders

ASKER

Thanks

Fordraiders

ASKER

matt, got everything to working.

but i cant use my arrow keys to navigate while the userform is up ?

I can use the move to go from cell to cell.

Fordraiders

ASKER

rspahitz
got everything to working.

but i cant use my arrow keys to navigate while the userform is up ?

I can use the move to go from cell to cell.

the form is set to modeless and showmodal = false

rspahitz

if the form is modeless, then you should be able to navigate with arrows on the sheet, but it will need to have the focus first.
Is that what you meant?