Option Explicit
Sub RangeToJpg()
    ''' Указываем отмеченную область ячеек
    Dim rgExp As Range: Set rgExp = Selection
    ''' Копируем выделенную область как лист при печати за это у нас отвечает xlPrinter
    rgExp.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
    '''Преобразовываем скопированную область и указываем имя RangeToJpgEXPORT
    With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
    Width:=rgExp.Width, Height:=rgExp.Height)
    .Name = "RangeToJpgEXPORT"
    .Activate
    End With
    ''' Вставляем содержимое буфера в наш активный лист
    ActiveChart.Paste
    ''' Выгружаем вставленную картинку туда где находится наш файл xls с именем grafik.jpg
    ActiveSheet.ChartObjects("RangeToJpgEXPORT").Chart.Export ThisWorkbook.Path & "/grafik.jpg"
    ''' удаляем нашу картинку с активного листа
    ActiveSheet.ChartObjects("RangeToJpgEXPORT").Delete
 
End Sub

Option Explicit Sub RangeToJpg() ''' Указываем отмеченную область ячеек Dim rgExp As Range: Set rgExp = Selection ''' Копируем выделенную область как лист при печати за это у нас отвечает xlPrinter rgExp.CopyPicture Appearance:=xlPrinter, Format:=xlPicture '''Преобразовываем скопированную область и указываем имя RangeToJpgEXPORT With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _ Width:=rgExp.Width, Height:=rgExp.Height) .Name = "RangeToJpgEXPORT" .Activate End With ''' Вставляем содержимое буфера в наш активный лист ActiveChart.Paste ''' Выгружаем вставленную картинку туда где находится наш файл xls с именем grafik.jpg ActiveSheet.ChartObjects("RangeToJpgEXPORT").Chart.Export ThisWorkbook.Path & "/grafik.jpg" ''' удаляем нашу картинку с активного листа ActiveSheet.ChartObjects("RangeToJpgEXPORT").Delete End Sub