Macro to pull multiple images from folder to multiple sheets by image/sheet name

[MrSTruct]

Hello all, happy to be a new member here and looking forward to becoming an active member of the community.

Here's my problem:

I have a workbook that contains 230 sheets which are essentially forms that are pulling data from the first master sheet. Each sheet is named after a specific reference number.
Now, I also have a folder that contains pictures that are named by the relevant reference number as well.

I want to create a macro that will pull the relevant picture to the corresponding sheet. The macro can either read the sheet name or a cell inside each sheet (the ref no can be found inside the sheet too) to determine which photo to pull.

All pictures are/will be resized to the exact dimension I need them to be and the cell will be exactly the same in every sheet.

You can see in the attached image how the forms are and how I'd want them to be. ( I have to do the process two times, one for each pic)

I have run into multiple problems, so I believe it's better not to bother you with what I have done so far.



Your input will be greatly appreciated, as I am afraid i'll lose my sleep over this!

Thanks


Edit: Images removed by moderator at OP's request

 

[Fluff]

Cross posted Macro to pull multiple images from folder to multiple sheets by image/sheet name

While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[MrSTruct]

Cross posted Macro to pull multiple images from folder to multiple sheets by image/sheet name

While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

This makes so much sense, sorry for not providing the link initially. Thanks for your time.

 

[Peter_SSs]

@MrSTruct
Welcome to the MrExcel board!

I have removed the images from post #1 as requested. However, this will make it very hard for anybody to help. If you still need help perhaps you could reply here and post some images with 'dummy' data to demonstrate your problem. If you don't need help a post saying so would also be appreciated.

 

[MrSTruct]

@Peter_SSs Thanks, the question has been resolved on the other forum ( link posted by fluff above). Please mark it as solved?

For everyone's information , below is what I used and worked flawlessly for a batch import of 2x250 pictures at 2 exact same locations in 250 sheets at once.

Code for same file type (code for different file-types on thread above):

Sub Same_Type()
Dim i As Long
    For i = 1 To ActiveWorkbook.Sheets.Count
        Sheets(i).Shapes.AddPicture _
            fileName:="C:\Picture Folder\" & Sheets(i).Name & ".jpg", _
            linktofile:=msoFalse, savewithdocument:=msoCTrue, _
        Left:=50, Top:=50, Width:=250, Height:=250
    Next i
End Sub

 

[Peter_SSs]

Please mark it as solved?

We don't formally mark threads as solved as often an even better solution comes along later. What you have written is sufficient to let readers know that you are satisfied.

 

[talania01]

@Peter_SSs Thanks, the question has been resolved on the other forum ( link posted by fluff above). Please mark it as solved?

For everyone's information , below is what I used and worked flawlessly for a batch import of 2x250 pictures at 2 exact same locations in 250 sheets at once.

Code for same file type (code for different file-types on thread above):

Sub Same_Type()
Dim i As Long
    For i = 1 To ActiveWorkbook.Sheets.Count
        Sheets(i).Shapes.AddPicture _
            fileName:="C:\Picture Folder\" & Sheets(i).Name & ".jpg", _
            linktofile:=msoFalse, savewithdocument:=msoCTrue, _
        Left:=50, Top:=50, Width:=250, Height:=250
    Next i
End Sub

Hi Im new, I just read your solution here, can i get the sample file you used?