Hi EXCELlent people!
Beginner first post... First of all congratulation for the forum. Used a lot as visitor and learn a lot... thanks!
I am working on a recipes workbook and I need to ask for your help in order to retrieve an image (shape) from a sheet and show it into another one.
I'll explain... I have a sheet with a "database" containing the name, category, author, ingredients, preparation, date inserted and a photo of each recipe.
I inserted all the data in the sheet via a userform.
So now I have a nice long list of recipes, one per row, with all the necessary data and a photo for each recipe in the last column (column 7 or G) named like Image1, Image2, Image3 etc.
I am already able to get all the values of each recipe in Sheet1 into textboxes, calling them from a combobox dropdown list populated with the recipes names.
But I can't figure out how to get the right photo for each recipe when showing the data.....
Private Sub selectrecipe_Change()
Dim msn As String
Dim msnFound As Range
msn = selectrecipe
With Sheets("RECIPESDATABASE")
Set msnFound = .Columns(1).Find(What:=msn, LookIn:=xlValues, Lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
Worksheets("Sheet1").author.Value = msnFound.Offset(, 2).Value
Worksheets("Sheet1").ingredients.Value = Replace(msnFound.Offset(, 3).Value, vbCrLf, "")
Worksheets("Sheet1").preparation.Value = Replace(msnFound.Offset(, 4).Value, vbCrLf, "")
Worksheets("Sheet1").dateinserted.Value = Format(msnFound.Offset(, 5).Value, "dd-mm-yy")
'Worksheets("Sheet1").photorecipe.Picture = msnFound.Offset(, 6).Shapes.Picture 'error here... object doesn't support.....
'using the line below I can just have the first photo for all the recipes...
Worksheets("Sheet1").photorecipe.Picture = Worksheets("RECIPESDATABASE").Image1.Picture 'photorecipe is the name of the image control in sheet1
End With
End Sub
Display More
How can I get the right picture for every recipe I'll call from the combobox?
Any help will be really really really appreciated.
PS I confess I have already asked the same question on mrexcel and excelforum but nobody answered me... not even a hint...