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