Hallo Zusammen,

Ich habe einen Code gefunden der mir einen Bereich aus einer Excel Tabelle als .jpg exportiert.

Nun muss ich aber mehrere Bereiche aus dieser Tabelle als .jpg exportiert bekommen.

Die bereiche sind 2x4 Groß und immer 3 nebeneinander und nach unten 7 mal wiederholt. 

Sub RangeToPicture()
' 1. Bild
  Dim FileName As String: FileName = "Dateipfad"
  Dim rPrt As Range: Set rPrt = ThisWorkbook.Sheets("klein_10301").Range("D1:E4")
  ActiveWindow.Zoom = 300
  Dim chtObj As ChartObject
  rPrt.CopyPicture xlScreen, xlBitmap
  Set chtObj = ActiveSheet.ChartObjects.Add(1, 1, rPrt.Width, rPrt.Height)
  chtObj.Activate
  ActiveChart.Paste
  ActiveChart.Export FileName
  chtObj.Delete
  ActiveWindow.Zoom = 100
End Sub

Ich würde gerne den Code erweitern so das von jedem Bereich ein .jpg erstellt wird. Ich bin mit meinen VBA Wissen hier am Enden.

Vielleicht könnt ihr mir Helfen!

Im voraus schoneinmal

DANKESCHÖN