Image load

[ebea]

Hi! A problem, loading pictures into an image form. I use the image on a UserForm, together with Textboxes, which are loaded by the following code:

But I can't get the images to load as wanted. I have set image name for all rows, into Column O (in this case).
I get the error message "Path not found". And no matter how I set the path, it comes with an error. If I load image "normally", as this: Image1.Picture = LoadPicture("C:\xxx\xxx\1001.jpg") it will works.
Does anybody have a guess of the problem?

Private Sub CommandButton1_Click()
   Box = TextBox14.Value
    With Sheets("dj")
        For Rows = 3 To .UsedRange.Rows.Count
            If Int(Range("B" & Rows).Value) = Int(Box) Or Range("B" & Rows).Value = Box Then
                TextBox1.Value = .Range("B" & Rows).Value
                TextBox2.Value = .Range("C" & Rows).Value
                TextBox8.Value = .Range("D" & Rows).Value


                Image1.Picture = LoadPicture("C:\xxx\xxx").Range("O" & Rows).Value

Exit Sub
            End If
        Next Rows
    End With
End Sub

 

[davesexcel]

Do you know how to step through the code to see what the value of LoadPicture("C:\xxx\xxx").Range("O" & Rows).Value is?
Does Range("O" & Rows) actually have a .jpg file name?

 

[ebea]

Yes. The first part of the failure in code "image1.Picture" says "= nothing" when hovering mouse over.
And the .range part in code, find correctly the Row number. And there is a file name in the cells, but only file name (ex. 1001.jpg). The Path is as in the code in my question (xxx is just for examples).

 

[davesexcel]

Before line- "Image1.Picture = LoadPicture("C:\xxx\xxx").Range("O" & Rows).Value"
have

msgbox ("C:\xxx\xxx").Range("O" & Rows).Value

and see what the msgbox shows

Also could you be missing the backslash? and it doesn't appear to have the correct brackets.

Image1.Picture = LoadPicture("C:\xxx\xxx" & "\" & .Range("O" & Rows).Value)

 

[ebea]

The msg box shows "C:\pictures\data"
And the code line you did show, gives an error code7 (out of memory)!

Could the problem be related to, that in the Column "O" is both text and number (filename). When I enter, by example a letter together with the lookup number in Textbox 14, it will not work at all, to lookup the value, and return an error message.

 

[ebea]

... Does anybody have a guess, of the problem in my question. I simply can't figure out, where the problem is related. I have tried a lot of work arounds, without any luck.
I load some TextBoxes, which pick data from a sheet. But I also have one Image1 picture Control (and that's where the problem is), where I should load a related picture to these Text Boxes. I try do the Picture load, with same workaround, as with the Text boxes, by using:

Image1.Picture = LoadPicture("C:\xxx\xxx").Range("O" & Rows).Value​

Where I have the image name in Column "O".

Any help, greatly appreciated

 

[davesexcel]

Does the file "C:\pictures\data" sound like the correct filename?

You need the complete folder name, file name & file type.

Your out of memory, you should not be using rows as a variable.

 

[ebea]

Thanks for you'r reply Dave! The Filepath is a synonym (real is a danish name). But path is correct, as it shows up, when I hover mouse over in the error handler (yellow line). I have changed the code line a bit, to be like this:
.Picture = LoadPicture(Filepath) & Range("O" & Rows)

And when I hover over the error handler, it shows the full Filepath, and the correct Row number, and cell address (with Filename),

So it becomes to: "C:\pictures\data\1001.jpg" which are correct​

.
So combined, it should load the picture, but don't. If I try in this way: .Picture = LoadPicture("C:\pictures\data\1001.jpg")
the picture is loaded correctly.


So I simply don't understand where the problem is related.

PS:

The error with memory, I'm sure has nothing to do "with reality", but is only an error handler which tells an error number.​

 

[davesexcel]

I still think the folder and filename should be in one bracket

 

[ebea]

No, it's not possible, Dave. As written in my opening question, I load info into TextBoxes, and they all get correct in. And I (try) do the same with the Picture.
It's all loaded from the number, in a specific TextBox, which search Rows, and then the Columns. So it's not possible to have the full string in one. I have tried (as a test) to have the full filepath in the cell, to see if that could return the Picture. But it was also negative
So that's why I'm empty of ideas!