• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 172
  • Last Modified:

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
0
Fordraiders
Asked:
Fordraiders
  • 3
  • 2
1 Solution
 
rspahitzCommented:
Bringing up a userform is easy enough.

In VB, add a user form (default name is UserForm1 then add this code to, maybe, the sheet's Worksheet_SelectionChange event prodedure:

UserForm1.Show vbModeless

Open in new window


you'll then need to add code like yours above into the Initialize event procedure for that form:

Private Sub UserForm_Initialize()
...
    UserForm1.Picture = LoadPicture(fPath & Gsku & ".jpg")
End Sub

Open in new window


Also, FYI, some of your code can be rewritten to make it easier to read, such as the entire case statement with this:

gJpg = "C:\Gr_Images_2013\" & Gstart & "_JPG\"

Open in new window

0
 
FordraidersAuthor Commented:
Thanks
0
 
FordraidersAuthor Commented:
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.
0
 
FordraidersAuthor Commented:
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
0
 
rspahitzCommented:
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?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now