Paste as image code not working on newer Excel versions

I had the code below running great on Excel 2010 however for some reason it won´t work properly on any of the newer versions. I have a few worksheets that together generate a report with a barcode, which then are saved as pdf (the function below the code). As the barcodes represent a kind of font, not installed on most computers, I need to paste it as an image before saving. I can see the macro effectively generating and pasting the barcode as an image on the last sheet, however when I open the .pdf file, it's just a lot of scrambled letters as if it was pasted as value or something.

Bottom line: are there any changes on Excel that may affected the code, maybe when saving it, which stopped it from working as it should?

Any ideas are appreciated.

Thanks

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Thanks Herry but Ive tried that before posting (since I wasnt the one who wrote the original code, it seemed wrong for me too), and it didnt work. The code, as written, works fine on excel 2010 and below, as I said, so the only thing I imagine would be possible is some kind of change on excel pasting or saving functions

Bumping my old thread, still need to figure out how to change this macro to make it work (paste as image) on newer excel versions