Sub saverng()

Application.DisplayAlerts = False
Application.ScreenUpdating = False
    
WorksheetView.DisplayGridlines = False
WorksheetView.DisplayZeros = False
   
    
  Имя = "C:\pic.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
    
    WorksheetView.DisplayGridlines = True
    WorksheetView.DisplayZeros = True
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

WorksheetView.DisplayGridlines = False

Public Function УбратьСимволыИмяФайла(s)

s = Replace(s, ".", "_")
s = Replace(s, "/", "_")
s = Replace(s, "\", "_")
s = Replace(s, Chr(34), "_")

УбратьСимволыИмяФайла = s

End Function 

Selection.Copy

On Error Resume Next
ActiveWorkbook.Worksheets("Заявка").Delete
Set sstr = ActiveWorkbook.Worksheets.Add(ActiveWorkbook.Worksheets(1))
sstr.Name = "Заявка"

sstr.Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
sstr.Paste
 

Set Стр = Workbooks("PERSONAL.XLSB").Worksheets("ШаблонЗаявка")
Selection.Copy
Стр.Paste 

Selection.Copy
Windows("PERSONAL.XLSB").Activate
ActiveWindow.SmallScroll Down:=-9
Range("A1").Select
ActiveSheet.Paste 

Set myDocument = ActiveSheet
myDocument.Shapes.AddPicture "d:\проба.png", True, True, xx, yy, 100, 100