Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Load Image from Listbox Change Event

Posted on 2013-01-30
6
Medium Priority
?
549 Views
Last Modified: 2013-01-30
excel 2010 vba...

I need a function to activate during the Change event for a listbox.
I passing variable for the value to load an image will be in column(0) in the listbox.

What I need:

When a user scrolls in the listbox  a new image is displayed depending on the value in Column(0) in the listbox.

The path for the images file are in:

C:\MyPics\

trying to get this to work..

Dim Gsku As String
    Dim fPath As String
     
     'selects the range to look for a name.  You have to have a range
     'named  myName set up on column A.  Go to insert-name-define to
     'see how this one is set up.
    Gsku = ListBox1.Column(0)
        On Error Resume Next
        If Gsku Is Nothing Then
            Image1.Picture = LoadPicture(fPath & "NOTAVAIL.JPG")
        Else
                'Look in the directory where this workbook is located.
                fPath = "C:\MyPics"
                On Error Resume Next
                 'If a matching picture is found then display it.
                Image1.Picture = LoadPicture(fPath & Gsku & "_AS01.jpg")
                 'If No picture found then display the default picture.
                If Err = 0 Then Exit Sub
                Image1.Picture = LoadPicture(fPath & "nopic.gif")
         
        End If
0
Comment
Question by:Fordraiders
  • 4
  • 2
6 Comments
 
LVL 35

Accepted Solution

by:
Norie earned 2000 total points
ID: 38837069
Does the code you posted not work?

One thing I can seet that might cause problems is the missing end \ from fPath.

Try adding it.
fPath = "C:\MyPics\"

Open in new window

0
 
LVL 3

Author Closing Comment

by:Fordraiders
ID: 38837123
aaah ...Crazy  Thanks
0
 
LVL 3

Author Comment

by:Fordraiders
ID: 38837226
during the change event I want to clear the pic for each change ?

this: Image1.Picture = Null

or this: Image1.Picture = "" 

is not working...
Sorry to ask again.
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 35

Expert Comment

by:Norie
ID: 38837236
The 2nd code should work.

Are you getting an error?
0
 
LVL 3

Author Comment

by:Fordraiders
ID: 38837430
yes
0
 
LVL 3

Author Comment

by:Fordraiders
ID: 38837434
nm , its workin correctly...
my bad..
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
Microsoft's Excel has many features that most people will never need nor take advantage of.  Conditional formatting is one feature that you may find a necessity once you start using it.
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

916 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question