Userform image picture send to worksheet cell.

[asyamonique]

Application.ScreenUpdating = FalseOn Error Resume Next
If Dir("W:\EMPLOYEE INFORMATIONS\STAFF PHOTOS\ALL TOGETHER\" & TextBox4.Value & ".jpg", vbHidden) = "" Then
Image1.Visible = False
Else
Image1.Picture = LoadPicture("W:\EMPLOYEE INFORMATIONS\STAFF PHOTOS\ALL TOGETHER\" & TextBox4.Value & ".jpg", vbHidden)
Image1.Visible = True
End If

Good Day,
That code given above show me the pictures base on the textbox value and all is fine with that.
I want to ask that is it possible to send that image1 picture lets say Worksheets("sheet5").Range("b6")
and every time image1 picture changes last one on cell b6 will delete and new picture will show up.
Many Thanks

 

[asyamonique]

Hello all,
I've tryed that but it doesn't worked!

[COLOR=#000000]Sheets("info").Range("D8") = Me.image1.picture[/COLOR]

Is there anything I supposed to add on that code?