создаем или открываем файл Excel
заходим в окно программирования Microsoft Visual Basic нажав Alt+F11
И вставляем данный код
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