Loading an image into Userform.Image and loss of image quality

I have code that adds images from a selected folder to cells. Everything works, but not always - on two out of four computers it works, but on the other two it doesn't. What's going on with the non-working computer:

When trying to rotate the image by 90?, it does not reload the rotated image into userform.image (it displays as if it were an empty shape) Additionally, is there a way to perform this operation without losing image quality, because later when I display the image in a Windows program by clicking on it in the cell, it is enlarged and the quality of the image is greatly reduced (hardly visible).

There are two questions: How can I do this so that the image quality is better when displayed, and why doesn't this code work on all computers? sample file attached.

Maybe 'cause IE was removed from the computers …

dareksg, I've arranged for you to rotate the image on each computer (at least I hope so ) using a different method than copying the chart. But keep in mind that the rotation occurs only in the UserForm, into the sheet the image is inserted in its original form.

Consider whether the clicked image needs to be opened in an external program. Since you're storing images in the workbook, maybe zooming the image can also happen in the workbook. When you open an image in an external program, especially small images can be distorted because that program can zoom in to fill the entire screen (or at least a large part of it). Then the original pixels are enlarged, which ends up blurring the image. And you are unlikely to be able to control the scale of this zooming.
If you choose to enlarge the image in the sheet, then you can control the magnification size yourself. For example, you click on the image and it zooms in 2 or 3 times (depending on what magnification scale you choose). Another click on that image (enlarged) should return it to a small size.

Attention. The code is adapted to the 32-bit version of MS Office. For the 64-bit version, the winAPI function declarations must be adjusted accordingly.

Artik

Thank you Artik, for the neat proposal with the clipboard. Although adapting it to 64-bit scared me, it seems like I managed to adjust the code to the 64-bit version, and it works. As for the pictures, they have to be displayed like that, but I won't reduce their size too much, so as not to lose quality.

Below I am sending the code that works for me on 32 and 64.

Dzięki

Please Login or Register  to view this content.