Loading a picture from hyperlink address into a frame within a userform...

[kbishop94]

Not sure if something like this is even possible, but I thought I would ask:

I have a frame (name = "fraPicture") in a userform that when my userform loads I would like this frame to load a picture that is located in a specific folder (via hyperlink, I think?)

Ideally, I would like it to work like this (again, if its even possible):

With ws
    .Cells(RecordRow, 29).value = Me.fraPicture.Picture 
End With

Where "29" is the cell location where the address to the picture is located, and fraPicture is the name of the frame where I want the picture to populate when the userform loads.

The address for the picture that is inside cell 'RecordRow, 29' looks like this: J:\QMS_General Facility\INCIDENT LOGS\Incident_Pictures\22.1191.bmp

Can something like this be done, or would I have to have the picture itself not located in a separate folder like I do now, but inside the cell in the spreadsheet itself?

Thanks for any help or suggestions to accomplish this in another way if what I am proposing cant be done or if there is a better way.

 

[Domenic]

Try . . .

With ws
    Me.fraPicture.Picture = LoadPicture(.Cells(RecordRow, 29).Hyperlinks(1).Address) 
End With

Hope this helps!

 

[kbishop94]

Try . . .

With ws
    Me.fraPicture.Picture = LoadPicture(.Cells(RecordRow, 29).Hyperlinks(1).Address)
End With

Hope this helps!

That worked!! Thank you! (this has stumped me forever so a double TY to you, sir!!)
However, what you showed didnt exactly work at first... I had to remove the "." in front of the "Cells(RecordRow, 29)"... but, after that it loaded the pic perfectly. (maybe edit it so if someone ever searches for this and stumbles onto it it will work for them right away. )

 

[Domenic]

You're very welcome, glad I could help.

Actually, the dot ( . ) is there so that the specified range will refer to the worksheet defined by your variable ws, just like your original code. Otherwise, without it, the range will refer to the active worksheet instead. I'm assuming that you've assigned the variable the worksheet containing the hyperlink, correct?

 

[Domenic]

So, for example, let's say that "Sheet1" contains your hyperlink, then you could have something like this . . .

Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

With ws
    Me.fraPicture.Picture = LoadPicture(.Cells(RecordRow, 29).Hyperlinks(1).Address)
End With

Although, in this case, you can do without the With/End With statement . . .

Me.fraPicture.Picture = LoadPicture(ws.Cells(RecordRow, 29).Hyperlinks(1).Address)

 

[kbishop94]

Understood! Thank you for following up with that. It is much appreciated!!!