Save picture macro

[doriannjeshi]

Hello,

I need a macro to save the pics in a column with the adjacent cell name in a specified folder locally

picture is in column A but is not showing here

Book16
	A	B
1		1231
2		1232
Sheet2

 

[NdNoviceHlp]

Hi doriannjeshi. Place the msgbox line of code in the test sub after the...

For Each sh In .Shapes

line of code. I suspect that your transfer files are linked pictures which would be excluded by the code. They will produce an 11 result from the msgbox if this is the case. Dave

 

[doriannjeshi]

Yes Dave, got code 11 error, and a nr 3 error last

 

[NdNoviceHlp]

They were not error messages... the msgbox was telling us what type of shapes were present. 13 is msoPicture; 11 is msoLinkedPicture and 3 is the chart. So you need to change this line of code in the Test sub...

If sh.Type = msoPicture Then

to....

If sh.Type = msoPicture Or sh.Type = msoLinkedPicture Then

and that should work for all of your pics. Dave

 

[doriannjeshi]

Thank you Dave, it took around 4 min for 1200 pics !

 

[NdNoviceHlp]

You are welcome. It was a bit of a journey. Thanks for posting your outcome. Dave