Thema Datum  Von Nutzer Rating
Antwort
Rot mehrere .jpg erstellen
 24.08.2022 11:07:46 Ben
Solved
24.08.2022 15:49:08 Gast72336
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
24.08.2022 11:07:46		 Views:
357		 Rating:
     
Antwort:
 Nein
Thema:
mehrere .jpg erstellen

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot mehrere .jpg erstellen
 24.08.2022 11:07:46 Ben
Solved
24.08.2022 15:49:08 Gast72336
NotSolved