Saving ranges as Bitmaps

I have been using the following method to save ranges as bitmaps so that they can then be inserted into outlook emails:

Please Login or Register  to view this content.

The only issue is that the images are slightly blurry, as compared to if I just copied a range and pasted it into Outlook. Does anyone know of a solution to this issue? Or is there another method I can use to copy ranges in VBA and paste them into Outlook (several images in a single email)?

Thanks

Also thank you to humdingaling for providing the original code in this thread: https://www.excelforum.com/excel-pro...using-vba.html

Try:

Please Login or Register  to view this content.

I do not know is that help, but it worth to try.

I've found alternative method:

First pasting into PoerPoint in EMF format then from there into outlook:

Please Login or Register  to view this content.

standard method:

Please Login or Register  to view this content.

there are difference:
Capture.JPG