Bohužel, musím se opakovat:

Ten kód ale není celý, zde jen definuješ oblast, kterou chceš převést do obrázku. Vlastní převod pak dělá funkce "exportrangetopicture" a ta tu jaksi chybí...

Vezmu to trochu obšírněji:
Funkci ExportRangeToPicture jsem našel zde. Jedná se o trochu složitější příklad, kdy ve vybrané oblasti má autor dotazu ještě několik grafů a exportuje je do jednoho obrázku spolu s tou vybranou oblastí. Pokud tyto grafy pomineme, důležitý je v tom makru řádek:

rRng.CopyPicture xlScreen, xlPicture

CopyPicture je přitom ta důležitá metoda, která z vybrané oblasti udělá obrázek. Má parametry xlScreen a xlPicture. Pokud se podíváš do nápovědy k VBA pro tuto metodu, zjistíš, že první parametr má možnosti:

xlPrinter - The picture is copied as it will look when it's printed.
xlScreen (default) - The picture is copied to resemble its display on the screen as closely as possible

A druhý parametr:

xlBitmap
xlPicture (default)

(význam viz níže)
Takže by to chtělo najít v kódu ten řádek s příkazem CopyPicture a zkusit různé kombinace parametrů.