Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrere .jpg Bilder erstellen
24.08.2022 10:59:14 Ben
NotSolved
24.08.2022 16:29:32 Jay
NotSolved
24.08.2022 16:49:14 Ben
NotSolved
24.08.2022 17:45:06 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Ben
Datum:
24.08.2022 10:59:14
Views:
310
Rating: Antwort:
  Ja
Thema:
Mehrere .jpg Bilder 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 Bilder erstellen
24.08.2022 10:59:14 Ben
NotSolved
24.08.2022 16:29:32 Jay
NotSolved
24.08.2022 16:49:14 Ben
NotSolved
24.08.2022 17:45:06 ralf_b
NotSolved