Convert Excel to JPG Macro does not work with newest Office 365

Hello everyone

I have the following macro:

Please Login or Register  to view this content.

This macro saves an Excel file (from the folder catalog) as JPG file (in folder Picture) and this code works in Excel 2013 but not with the newest Excel version.
With the newest version the JPG is just an empty (white) file.

Is there some change I need to do to make it running with the current Office version?
I have attached a test file.

Thanks in advance.

Seems to work fine on my version of Excel - latest 365 Version 2304

Maybe as you are doing this as a loop it is not being given enough time to paste the image to the chart, you could try replacing this line:

Please Login or Register  to view this content.

With the below lines:

Please Login or Register  to view this content.

To make sure the paste is completed before the code moves on