Salvar gráficos de uma planilha em jpg (baixa qualidade)

[elucasfreitas]

pessoal, bom dia.

Preciso salvar os gráficos feitos no excel em jpg em uma pasta qualquer em meu computador. Como são muitos gráficos optei pelo caminho de programar este salvamento. Este é meu primeiro contato com Macros e VBA mas já consegui estudar, entender e aplicar para salvar os gráficos com este código que busquei na internet (abaixo):

O meu problema agora é, a qualidade desta imagem, do jeito que estou fazendo a imagem fica borrada, (perde a qualidade), como eu poderia salvar os gráficos com a mesma qualidade do que é apresentado noe excel? é possível?

''' Set Range you want to export to file

Dim rgExp As Range: Set rgExp = Sheets("LR").Range("A2:K26")

''' Copy range as picture onto Clipboard

rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

''' Create an empty chart with exact size of range copied

With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _

Width:=rgExp.Width, Height:=rgExp.Height)

.Name = "ChartVolumeMetricsDevEXPORT"

.Activate

End With

''' Paste into chart area, export to file, delete chart.

ActiveChart.Paste

ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export "C:\Users\elucas\Desktop\LR.jpg"

ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete

[felipegomesti]

Olá Lucas. Sim, é possível salvar os gráficos do Excel com boa qualidade.

Para isto você pode usar o seguinte comando:

Obs. O gráfico deve estar selecionado (se o object for o gráfico em si não precisa, basta estar na planilha do gráfico e executar a macro).

ActiveChart.Export "C:.....\NomeDoArquivo.jpg"

Espero ter ajudado.