Public Sub СохранитьРегион()

Application.DisplayAlerts = False
Application.ScreenUpdating = False
      
Activewindows.DisplayGridlines = False
Activewindows.DisplayZeros = False
     
      
     s = ActiveWorkbook.FullName
     'Поиск расширения
     a = InStr(1, s, ".", vbTextCompare)
     имя = Left(ActiveWorkbook.FullName, a) + "jpg"
      
     With Selection
         .CopyPicture
         Set oChart = ActiveSheet.ChartObjects.Add(.Left, .Top, .Width, .Height)
         With oChart.Chart
             .ChartArea.Border.LineStyle = 0
             .Paste
             .Export Filename:=имя, FilterName:="jpg"
             .Parent.Delete
         End With
     End With
      
     Activewindows.DisplayGridlines = True
     Activewindows.DisplayZeros = True
      
     Application.DisplayAlerts = True
     Application.ScreenUpdating = True

End Sub