Code: Select all
ActiveSheet.Shapes.SelectAll
Once photo(s) have been selected, select "Format" on toolbar
Next select “Compress Pictures”
Check box “Apply to selected pictures only” then select options I then made my selections, then selected OK and then OK again to complete compression process And each worksheet would have to be done separately. I could not find any way to compress all photos at once (excel 2007) that would serve my needs.
My workbooks could hold anywhere between 20 to 200 photos and could get quite large. From 30mb before compression to 5mb after compression.
I’m sure we all like that simple click of a button to full fill our needs; sometimes it takes a little work.
All in all it served my purpose well. I have become pretty proficient with this approach and only takes 5 to 10 seconds to complete.