Convert print area on sheet to picture

[ISMI]

Hello, my friends!

Could you please advise VBA code, which can convert print area of sheet (may vary) to picture and place this picture to current sheet and afterwards delete all text on this sheet?

Thanks in advance.

[YasserKhalil]

Try this code

Please Login or Register  to view this content.

[YasserKhalil]

If you want to deal with the print area try this code

Please Login or Register  to view this content.

[ISMI]

Txh for quick reply. One question: why you select cell H3? Maybe A1?

[YasserKhalil]

Change the destination to suit your needs. This is just example

[ISMI]

Ok, good And last question , how I can delete all text, lines, color from this sheet and leave picture on it?

[YasserKhalil]

Try this line

Please Login or Register  to view this content.

[ISMI]

Dear Khalil, i had received this result 123.PNG

Maybe the reason is that I have a lot of columns...Could you fix resolution for the picture? Thank you

[YasserKhalil]

I have no idea. It is better to attach sample workbook

[ISMI]

Dear Khalil, i solved it by changing to Format:=xlBitmap. Could you please modify code: to choose only one sheet "Chart", and made all operations mentioned above...but don't touch other sheets in workbook? and If I don't have sheet "Chart", then do not made anything in workbook?

[YasserKhalil]

Just replace ActiveSheet with Sheets("Chart")