Dim strFile As String
Dim objChart As ChartObject
Dim rngRange As Range
Set rngRange = Worksheets("Tabelle1").Range("A5:C20")
' Tabellenname anpassen
strFile = ThisWorkbook.Path & "\IMG1.jpg"
rngRange.CopyPicture xlScreen, xlBitmap
Application.ScreenUpdating = False
Set objChart = ActiveSheet.ChartObjects.Add(0, 0, rngRange.Width, rngRange.Height)
With objChart.Chart
  .Paste
  .Export strFile, "JPG"
End With
With UserForm1 ' UserForm-Name anpassen
  .Picture = LoadPicture(strFile)
  .PictureAlignment = fmPictureAlignmentTopRight ' Beispiel
  .PictureSizeMode = fmPictureSizeModeZoom
End With
objChart.Delete
Kill strFile
Application.ScreenUpdating = True
Set objChart = Nothing
Set rngRange = Nothing