Excel Get Images

[pedrotairum]

Hi, sometime ago I posted something about getting all the charts available in an Excel Document and saving them to image files.
I was trying to convert that code to make it look for Images instead of charts and save them in my computer but I wasn't able.

Can someone help do it please?

Thanks!

[Gintaras]

Macro Macro2119

Code:

Copy      Help

str folder="$desktop$\excel pictures"
mkdir folder

ExcelSheet es.Init
Excel.Picture p
foreach p es.ws.Pictures
,_s=p.Name ;;out _s
,p.CopyPicture(Excel.xlScreen Excel.xlBitmap) ;;copy to clipboard
,_s=F"{folder}\{_s}.bmp"
,_s.getclip(CF_BITMAP)

run folder

[pedrotairum]

Perfect!
Thanks a bunch

[pedrotairum]

Perfect!
Thanks a bunch