Sub Pic_in_userForm(f$)
  Dim avFiles, li As Long, oObj As Object, wsSh As Worksheet, wsTmpSh As Worksheet
     Dim sBookName As String, sName As String, r As Range
     Set wsTmpSh = Sheets("Тех замены")
     Set r = Sheets("Тех замены").Range(f)
     r.CopyPicture Appearance:=xlScreen, Format:=xlPicture
     sName = ActiveWorkbook.FullName & "_" & Sheets(2).Name & "_" & ".jpg"
     Set oObj = wsTmpSh.ChartObjects.Add(0, 0, r.Width, r.Height).Chart
     With oObj
         .ChartArea.Border.LineStyle = 0
         .Paste
         .ChartArea.Width = 1000
         .ChartArea.Height = 1000 / r.Width * r.Height
         .Export Filename:=sName, FilterName:="JPG"
         .Parent.Delete
     End With
   Set UserForm1.Image1.Picture = LoadPicture(sName)
   Kill sName
End Sub