Fit pasted pictures into middle of cells consecutively

[Rellsunn]

Hi

Looking for a macro that fits pictures I paste into the middle of the cell. I need to update order forms weekly and do not have time to manually place each image.
When I paste images from the exported file to new form it doesn't place them properly. Both Exported and Order Form have a row height of 120 so you'd think it would paste it to mirror original but it doesn't.

Sample worksheet attached. More images would be shown but reduced due to file size.

Thanks!

[mjr veverka]

Maybe that way, but you have to check it out:
(You can split it into two independent macros)

Please Login or Register  to view this content.

The code snippet (fragment of the code) from the topic below was applied:
https://www.excelforum.com/excel-pro...ror-400-a.html

[Rellsunn]

So it's almost there but when i run it on all imagery it doesn't place them in the center of the cell vertically & horizontally. As I scrolled through parts of the images were still covering the cell black boarder of the cell. If I need to increase the row height i will but need to get the images centered and place first.
Master file attached.
Thx

[Rellsunn]

I tried to copy the code above into a new module under my PERSONAL macros and when I run the macro it keeps coming up with "Compile error: Can't find project or Library"?

[Rellsunn]

Goal is to run a macro that goes to column B and take 1st image and fit it into cell B2, then next image into cell B3 etc...
Once that's done I can then cross check to see if any cells are missing imagery as it's possible our system isn't loaded with everything. But I'd rather fix 1 or 2 than re-place 50.

[mjr veverka]

1. Try:

Code below paste to the worksheet module ("SU18").
Whenever you change the size of a row / column, select any cell and the images will fit to cells.

Please Login or Register  to view this content.

Below corrected code for 'Module1'

Please Login or Register  to view this content.

2. "Compile error: Can't find project or Library"
Which one "References" you have marked/selected in Tools\References option of vba editor ?
Maybe something is unchecked or missing some file '.dll'.

[Rellsunn]

I'm not very savvy at this so I could use your help on adding this properly to my Personal macros so I may use it on the new reports I run each week.

[Rellsunn]

Actually I think I got it and it totally works!!! THANK YOU!
Final question...can I change the Tab heading of SU18? Will that effect the code or not?

[mjr veverka]

No, it will not.
It would be important if, for example, in "Workbook_SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range)" would be literally named sheet names, but not here.
However, will be important the names of shapes/images/pictures you will have in your workbook, e.g.:

Please Login or Register  to view this content.

If they don't have names in the schema above, then it will be an error or something else strange.

[Rellsunn]

Ok. I should be good then. image names will change base don season but if macro is set up to just move any image I add it should work fine

[mjr veverka]

With the exception of "Picture 2" (RVCA), the macro changes all images like "*Untitled Image*" (all the pictures in your workbook have the name "Untitled Image") to another names like "Apparel 2", "Apparel 3", "Apparel 4", etc.