Label Value Loads Picture

[Jaye7]

Can anyone please provide a script that will load a picture in userform 1 based on the value in a label in the userform, the labels value would come from column A.

Say the name in A1 is movie it would then search in the following directory for movie picture. c:\ Documents\Personal, if not found it then looks in c:\ work\images

thank you

 

[Jaye7]

Is anybody out there.............

 

[Jaafar Tribak]

Is anybody out there.............

Maybe something along these lines :

Private Sub UserForm_Initialize()
 
    Const PATH1 = "C:\Documents\Personal\"
    Const PATH2 = "C:\work\images\"
 
 
    If Len(Dir(PATH1 & Label1.Caption & ".jpg")) Then
 
        Set Me.Picture = LoadPicture((PATH1 & Label1.Caption & ".jpg"))
 
    ElseIf Len(Dir(PATH2 & Label1.Caption & ".jpg")) Then
 
        Set Me.Picture = LoadPicture((PATH1 & Label1.Caption & ".jpg"))
 
    End If
 
End Sub

 

[Jaye7]

Thanks for your code Jaafar, works great, can you please provide a script that would also paste the picture into cell B2 on the active sheet.

 

[Jaafar Tribak]

Thanks for your code Jaafar, works great, can you please provide a script that would also paste the picture into cell B2 on the active sheet.

Hi Jaye7.

You could add an Image Control to the active sheet and resize it to fit Cell B2 then load the picture onto the Image control.

 

[Jaafar Tribak]

Correct me anyone but If you are using Excel 2007 or later you could insert a picture directly into the Cell.

 

[Jaye7]

Thanks Jaafar,

I have never used an image control before, can you please provide a script and I will manipulate it to suite.