VBA screen cap for specific range export to jpg file with high resolution

Question

I want to screen cap for specific range and export to jpg file with high resolution, can anyone help?

Sub cap_A_chi()

    Dim aChart As Chart, Rng As Range,