Finding specific picture in a specific folder and insert it somewhere specific

Thank you it worked ! But its still to time consuming if I have like 60+ photos to enter ! My next question is below ↓

Please Login or Register  to view this content.

***Another question, if we select all the shapes in a worksheet, will they have an order ? Because if yes, we could replace shpArr with a selectAll function so we don't have to write their name one by one also.

Sorry for not being clear enough !

Capture2.PNG

The ideal scenario would be that the macro would look in the Range("A") and keep in memory every data that is in the column in order. As in the picture, it would be ("PIC001", "PIC056", "PIC099" etc.) Then, I want the macro to look in a specific folder to find the pictures with the same name as in the column A and insert it in order in the shapes on the other page. So PIC001 with the first rectangle, PIC056 with the rectangle under etc.

I want the selection of the pictures and the rectangles selection to be fully automated. Same for the picture inserting. I dont' want to have to enter anything by hand except the value in the column A.

I hope I am clearer !

Are the rectangles named, from top to bottom like "Rectangle 1", "Rectangle 2". "Rectangle 3" etc or just any name?
It looks like the Rectangles are pretty well under one another but are all the top left cells of each rectangle in the same column?
It looks like they are not right in the corner of the cell.

Code assumes that the rectangles are named "Rectangle 1", "Rectangle 2", "Rectangle 3" and so on.
Change references (Sheet names, cell addresses, path, picture extension) as required.

Please Login or Register  to view this content.

It works perfectly fiine ! And its ok to say that the rectangles are named in order like 1, 2, 3, 4, 5 etc because that I will set 1 time and the workbook will be a template, so you set it only one time and its done for further use.

Now, is it possible to say that if the macro does not find a picture for the FUN488 for example, that it skips to the rectangle below and search for its next associated picture.

Capture.PNG

If I don't have a picture to put in rectangle 2 that is called FUN488 (sometimes I don't have any pictures at all) I want the macro to skip it and go see if the rectangle 3 have a picture that is called FUN002 in the folder. Now if it doesn't find a picture for rectangle 2 I get an error and it will stop there and won't give me a picture for the next rectangle.

Note that the code above works fine except if I don't have a picture for all the FUN numbers that I have. If I have less pictures (2 in this example) than the exact number in the A column (less than 3), I get an error when it does not find anything.

Thanks for ur time we are close to the goal

Try this for pictures with different extensions and possible pictures missing.
Remember to change references like Sheet names etc where needed.

Please Login or Register  to view this content.

To start at Row 41 (B41), change this

Please Login or Register  to view this content.

to this

Please Login or Register  to view this content.

and to have a space of 28 cells, change this

Please Login or Register  to view this content.

to this

Please Login or Register  to view this content.

and this

Please Login or Register  to view this content.

to this

Please Login or Register  to view this content.

so you will end up with this

Please Login or Register  to view this content.

You must have noticed that the rectangles are named starting at 1 for the first rectangle and increase by 1 for each subsequent rectangle.

Hello jolivanes !

I was wondering if we could add a little tweak to the code sequence :

Step #1 would be this (inserting rectangle):

Please Login or Register  to view this content.

Then we would use this to insert pictures :

Please Login or Register  to view this content.

That were the codes you created for me ! I have been using them almost every week since the last time we chatted, but I would like it more compact !

I would like to combine both code so that it can follow these next steps :

1. Check if the string in the cell is matching the picture name in the folder. If it can't find a match then do nothing

2. If it finds a match, create the rectangle and insert the picture in it.

3. Repeat the first steps like the actual code until it imported all the pictures .


In step 1, If am only actualising the picture I would like that :

If there was a picture that I don't use anymore, I want the code to delete the rectangle and the picture.

So it would be like :

Check if there is a rectangle, if yes, check if you have a match, if no match then delete rectangle and go to the next one.

If rectangle is yes with a match, insert the picture in the rectangle and if there is no rectangle with a match, create one and insert the picture in it.

The rectangle's name shall stay Rectangle 1, Rectangle 2 and so on like it is already.

Hope you can understand what I mean and help!

Thanks in advance

Re: "If it finds a match, create the rectangle and insert the picture in it."
This means that there was no rectangle.

Re: "Check if there is a rectangle, if yes, check if you have a match, if no match then delete rectangle and go to the next one. If rectangle is yes with a match, insert the picture in the rectangle and if there is no rectangle with a match, create one and insert the picture in it.
This means there are rectangles.

Would it not be better to check if the picture exist in the folder, if it does not, go to the next cell with picture name.
If it does exist, make a rectangle and insert the picture into it.
That way you don't have to add and/or delete rectangles. This would probably also result in having possibly large empty spaces between pictures.

Or am I misunderstanding your new request?


Forgot to ask if the rectangles are there to size the pictures? You can insert pictures to be the same size as the rectangles in the same range where the rectangles are.

Ok so, normally, I would insert my rectangles first with the macro that does it. Then, run the code that check a match with the cell and the picture name in the folder.

Now I would want something like this :

Check If in the Sheets("Sheet1"), the Range("D1") have a match with a picture that goes by the same name in a (specific foler) Then (if true)

Insert the picture cropped to 100 x 100 in the cell B41 of Sheet2 '----- Start at 41 and add 28 each time after (same as previous code)

Else

Do nothing and skip to the next

Loop that for Range("D1:D100") in Sheet1

I think the rectangles could be useless at this point.

Could you name the pictures when inserting like this: Picture 1, Picture 2 etc please ?

Hope its more clear ?

Thanks

Very nice !

I only have noticed one little detail.

Lets say you have this data in row A :

1
2
3
4
5

Normally, as the code run, it will associate the cell value with the picture and insert it like this

1 → print picture with name 1.(extension) in cell B41
2 → print picture with name 2.(extension) in cell B69
3 → print picture with name 3.(extension) in cell B97
4 → print picture with name 4.(extension) in cell B125
5 → print picture with name 5.(extension) in cell B153

Lets say the picture 3 is not found in the folder, instead of skipping it completely like this :

1 → print picture with name 1.(extension) in cell B41
2 → print picture with name 2.(extension) in cell B69
3 → "Leave blank cell B97 and resume next"
4 → print picture with name 4.(extension) in cell B125
5 → print picture with name 5.(extension) in cell B153

It does that :

1 → print picture with name 1.(extension) in cell B41
2 → print picture with name 2.(extension) in cell B69
4 → print picture with name 4.(extension) in cell B97
5 → print picture with name 5.(extension) in cell B125

And its not supposed to !

Other than that everything seems perfect !

Waiting for ur feedback.

And thx btw for the advices and making the code more compact