show jpeg picture inside a userform image control box

hi
I have a jpeg image that the path is saved to a cell, i hyperlink to userform but cannot get it to resize and show in userform image control box,just ap
pears on screen
any ideas please
cheers colin

Colin

What do you mean you 'hyperlink' to the userform?

Colin

Why are you hyperlinking?

If you want to load an image in an image control use LoadPicture.

Hyperlinking is just going to open it in a browser window.s

Accidental duplicate.

Colin

What problems are you having?

Wrong picture? Wrong size? Exploding monitor?

Colin

Can you post the code you are using to try and load the picture?

Also, are you sure that code is actually executing?

Sorry, the code is where?

Works fine for me, have you checked the path and filename are valid?

At least something's happening now.

PS Why not set up a dummy form with an image control in a blank workbook and test things there?

for the first step you can try to add it on your userform...then you'll see how to control it

Private Sub UserForm_Initialize()
ComboBox1.SetFocus
    Set MyData = Sheet1.Range("a1").CurrentRegion   'database
    With Me
        .Caption = "Database Example"    'userform caption
        .Height = frmHt
        .Width = frmWidth
    End With
    Image1.Picture = LoadPicture("C:\Documents and Settings\blue\Desktop\office.jpg")
End Sub

Colin

Your code doesn't check for the existence of a file.

If you want to do that use Dir.

Where is the actual path anyway, you only seem to have a filename, and that doesn't look right - for one thing files don't normally have 2 file extensions.

What is the actual path to the image(s)?

If you aren't sure of that open Windows Explorer, navigate to the folder then either copy the path from the address bar or right click and select Copy Address as text.

Then you can paste it somewhere.

What are there file names?

If you want to find out the filenames you could run this in an empty workbook.

Sub ListJPGs()
Dim rng As Range
Dim strFileName As String
Dim strPath As String

     Set rng = Range("A1")

     strPath = "C:\Pictures\"  ' change this to whatever path you got when you opened Explorer as suggested above

     strFileName = Dir(strPath & "*.jpg")
     
     While strFileName <>""
            rng.Value = strFileName
            Set rng = rng.Offset(1)
            strFileName = Dir()
     Wend

End Sub

try to add a listbox, let' s say listbox2 and just try to see if the images are changing...

Private Sub UserForm_Initialize()
'
'
ListBox2.AddItem "picture1"
ListBox2.AddItem "picture2"
End Sub

and

Private Sub ListBox2_Click()

If ListBox2.Value = "picture1" Then
Image1.Picture = LoadPicture("C:\Documents and Settings\blue\Desktop\office1.jpg")


ElseIf ListBox2.Value = "picture2" Then
Image1.Picture = LoadPicture("C:\Documents and Settings\blue\Desktop\office2.jpg")
End If
End Sub

Have a look at the attached.

It's a bit rough but perhaps it'll help.

hi
run time 424 with blue chio answer and my path is

c:\users\colin\desktop\1t.jpeg

which seems to be right ,loads one pic but no others
cheers colin

Are you sure you are getting the correct path and filename from the sheet every time?

How are you actually getting them?

Why have you hyperlinked?

Just put the full path and filename in the cell, not just the filename.

Without the path VBA will look for the image file in the current directory, whatever that is.

Also, if the files are on a network drive you might want to look at using the UNC address.

Hi Colin
Thank you for the feedback! And for the rep also, the credits have to go to Norie! He/She offered a very nice example and it works excellent.

Cheers!