Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Grafik oder Bereich mit VBA als Bild speichern

Forumthread: Grafik oder Bereich mit VBA als Bild speichern

Grafik oder Bereich mit VBA als Bild speichern
DieterL
Hallo Excelfreunde,
ich habe in einem Datenblatt ein Bild eingefügt (jpg) und mit den Excel Werkzeugen noch Linien und Flächen hizugefügt, die ich mit VBA ansprechen und die Farbe ändern kann. Ich habe das Bild und die Objekte gruppiert und das ganze heißt jetzt Gruppierung 3. Nun möchte ich nach einer Änderung die komplette Grafik mit VBA im Wurzelverzeichnis der Arbeitsmappe als .jpg oder .gif abspeichern wobei eine vorhandene Datei ohne Meldung überschrieben werden soll. Die Lösung, per Hand kopieren und in ein Grafikprogramm als Bild einzufügen, kommt nicht in Frage da der Ablauf automatisch erfolgen soll. Es währe auch schon hilfreich wenn ich den Bereich in dem die Grafik liegt als Bild exportieren könnte z.B. (A1-C20).
Ich hoffe das ich mich verständlich ausgedrückt habe und jemand einen Tip für mich hat. Die Suchfunktion hat jedenfalls keine brauchbare Lösung gebracht. Beste Dank schon mal für die Mühe.
Gruß, DieterL
Anzeige
AW: Grafik oder Bereich mit VBA als Bild speichern
17.01.2010 10:05:07
Beverly
Hi Dieter,
speichere die Datei als Webseite. In diesem Fall wird auch ein Ordner erstellt, in welchem das Bild abgelegt wird.
Es gibt natürlich auch die Möglichkeit, die Gruppierung per VBA direkt als Bilddatei abzuspeichern.

Anzeige
AW: Grafik oder Bereich mit VBA als Bild speichern
17.01.2010 10:47:24
DieterL
Hallo Beverly,
das abspeichern als htm bringt eine besch.... Qualität und passt auch nicht in meinen Ablauf. Die Grafik die ich abspeichern will, wird sofort von einem FTP Programm das den Speicherort überwacht zu einem Internetserver hochgeladen und soll eine vorhandene ersetzen. Es geht nur, wenn ich die Gruppierung oder den Bereich als Bild speichern kann.
DieterL
Anzeige
AW: Grafik oder Bereich mit VBA als Bild speichern
17.01.2010 11:35:43
Beverly
Hi Dieter, 
Sub BilderExportierenShape()
Dim shBild As Shape
Set shBild = ActiveSheet.Shapes(1)
BildExportShape shBild
Set shBild = Nothing
End Sub
Sub BildExportShape(shExport As Shape)
Dim chDiagramm As ChartObject
Application.ScreenUpdating = False
shExport.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shExport.Width, shExport.Height)
With chDiagramm.Chart
.Paste
.Export Filename:="C:\Test\Bild1.jpg", FilterName:="JPG" ' andere Grafikformate sind mö  _
_
glich
End With
chDiagramm.Delete
Set chDiagramm = Nothing
Set shExport = Nothing
Application.ScreenUpdating = True
End Sub


Anzeige
AW: Grafik oder Bereich mit VBA als Bild speichern
17.01.2010 17:03:10
DieterL
Hallo Beverly,
ich habe Deinen Code ausprobiert und es klappt auch!!
Vielen Dank, jetzt habe ich für beides, Grafik und Bereich als Bild speichern einen Code.
Mehr kann man nicht erwarten.
DieterL
AW: Grafik oder Bereich mit VBA als Bild speichern
17.01.2010 11:15:53
Josef
Hallo Dieter,
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Range_To_Image()
  Dim objPict As Object, objChrt As Chart
  Dim rngImage As Range, strFile As String
  
  On Error GoTo ErrExit
  
  With Sheets("Tabelle1") 'Tabellenname - Anpassen!
    
    Set rngImage = .Range("A1:C20")
    
    rngImage.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
    
    .PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
    
    Set objPict = .Shapes(.Shapes.Count)
    
    strFile = "E:\Temp\meinBild.gif" 'Pfad und Dateiname für das Bild
    
    objPict.Copy
    
    Set objChrt = .ChartObjects.Add(1, 1, objPict.Width + 8, objPict.Height + 8).Chart
    
    objChrt.Paste
    objChrt.Export strFile
    objChrt.Parent.Delete
    objPict.Delete
    
  End With
  
  ErrExit:
  Set objPict = Nothing
  Set objChrt = Nothing
  Set rngImage = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Grafik oder Bereich mit VBA als Bild speichern
17.01.2010 11:32:18
DieterL
Hallo Sepp,
das wars, das hift mir weiter.
Danke DieterL
;

Forumthreads zu verwandten Themen

Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Export von Excel Diagrammen als JPG
Excel

Hi zusammen!
Ich habe ein Prblem mit einem (bzw. mehreren) Excel-Diagrammen:
Ich habe eine Datebank mit einer Vielzahl von Datensätzen. Ich wähle in einem anderen Tabellenblatt per Dropdown-Feld je einen Datensatz aus und aus den per sverweis hierher gezogenen Werten aus der Datenbank w...
12.11.2008 11:27:00
Thread-ID: 1023758
6 Beiträge
Bereich als Bild in bestimmter Größeexportieren
dirkraeder

Hallo Excelgemeinde!!
Ich habe ein Problem und benötige eure Hilfe!
Ich habe mir eine Excel Datei gebastelt. In dieser Datei habe ich ein Formular, dass sich durch Auswahl in einem Kombinationsfeld verändert.
Nun muss ich die Ansicht dieses Formulars als GIF-Bilddatei immer wieder m...
26.11.2008 11:08:00
Thread-ID: 1027962
3 Beiträge
screenshot als JPG speichern
heike

Hallo experten,
ich suche eine VBA - Lösung um einen Screenshot zu erzeugen und diesen als JPG abzuspeichern.
Eine Lösung, um eine BMPdatei zu speicher habe ich bereits (sieh unten).
Danke Nepumuk.
Am besten währe genau dieser Ansatz, weil ich das Bild beschneiden kann.
Nur...
16.12.2008 20:47:09
Thread-ID: 1033426
2 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Diagramm als .PNG abspeichern
Grabner

Hallo!
Es geht um folgendes Thema, dass ich vor einiger Zeit mal gestellt hatte:
https://www.herber.de/forum/archiv/1040to1044/t1040069.htm
Das Problem ist, dass es immer nur das erste Diagramm des aktiven Excel-Registers exportiert. Jetzt habe ich mal testweise ActiveSheet.ChartObj...
30.01.2009 12:33:19
Thread-ID: 1045360
4 Beiträge
Anzeige
Bild aus Exceldatei speichern
Dave

Hallo,
habe ein Bild das sich in einer Exceldatei befindet und welches ich gerne
unter "Eigene Bilder" speichern möchte.
Habe aber keine Ahnung wie ich das Bild aus dieser Datei heraus bekomme.
Bitte um Hilfe
Gruß
Dave
13.02.2009 21:52:00
Thread-ID: 1050642
2 Beiträge
Bereich als Bild oder ähnlich in Zwischenspeicher
Theo

Hallo,
irgendwo hab ich mal diese Funktion gesehen, weiß aber leider nicht mehr wo.
Zellen markieren
Tastenkombi und Menü-Einfügen öffnen
Es erscheint ein weiteres Untermenü
(ich glaube irgend etwas mit als Bild in Zwischenspeicher oder ähnlich)
Kennt einer von euch das...
06.03.2009 20:31:40
Thread-ID: 1057450
6 Beiträge
Bilder aus Word als GIF exportieren
Dirk

Hallo Excelgemeinde,
ich habe folgendes Problem, bei dem ich einfach nicht weiter komme und bitte um Hilfe!
Ich habe Worddateien, in diesen Worddocumenten befinden sich Bilder. Ich möchte diese Bilder als GIF-Bilddateien speichern.
Im Archiv habe ich leider nichts Passendes gefunden...
06.04.2009 19:49:39
Thread-ID: 1067174
9 Beiträge
Anzeige
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
Anzeige
Diagramm als Bild
Ulf

Hallo zusammen,
mir will es einfach nicht gelingen ein Diagramm als Bild in eine andere Datei zu kopieren. Vielleicht habt Ihr eine Idee. Bisher habe ich es geschafft das Diagramm zu kopieren, dass sieht dann so aus:
Sheets("Grafiken").Select
Application.Workbooks("Masterdatei_Aktie...
16.04.2009 15:51:00
Thread-ID: 1069109
2 Beiträge
alle Diagramme i allen Tabellenblättern als Grafik
Till

Hallo Leute,
wie kann ich alle Diagramme in einer Exceldatei (aus allen Dateiblättern) in fortlaufend nummerierte Grafiken speichern.
Als Ausgangsposition hab ich dieses hier:
Sub Create_GIF() Dim mychart As Chart Set mychart = ActiveSheet.ChartObjects(1).Chart mychart.Export File...
22.04.2009 09:17:53
Thread-ID: 1070226
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Grafik oder Bereich in Excel mit VBA als Bild speichern

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Modul einfügen: Klicke im Menü auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Code einfügen: Füge den folgenden Code in das Modul ein, um ein Bild aus Excel zu exportieren:

    Sub BilderExportierenShape()
   Dim shBild As Shape
   Set shBild = ActiveSheet.Shapes(1) ' Hier die gewünschte Form auswählen
   BildExportShape shBild
   Set shBild = Nothing
End Sub

Sub BildExportShape(shExport As Shape)
   Dim chDiagramm As ChartObject
   Application.ScreenUpdating = False
   shExport.CopyPicture Appearance:=xlScreen, Format:=xlPicture
   Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shExport.Width, shExport.Height)
   With chDiagramm.Chart
       .Paste
       .Export Filename:="C:\Test\Bild1.jpg", FilterName:="JPG" ' Pfad anpassen
   End With
   chDiagramm.Delete
   Set chDiagramm = Nothing
   Application.ScreenUpdating = True
End Sub

  4. Makro ausführen: Schließe den VBA-Editor und führe das Makro über Entwicklertools > Makros aus.

Häufige Fehler und Lösungen

  • Fehler: "Datei nicht gefunden": Stelle sicher, dass der Speichersort in deinem Code korrekt angegeben ist und der Ordner existiert.
  • Fehler: "Objekt nicht gefunden": Überprüfe, ob die Form, die du speichern möchtest, tatsächlich in der angegebenen Auswahl vorhanden ist.
  • Qualitätsprobleme beim Speichern: Experimentiere mit den Exportformaten (z.B. JPG, PNG) und den Einstellungen, um die bestmögliche Bildqualität zu erzielen.

Alternative Methoden

  • Direktes Speichern als Bild: Du kannst auch die gesamte Auswahl als Bild speichern, indem du den Bereich anstelle einer Form auswählst.

    Sub BereichAlsBildSpeichern()
   Dim rngImage As Range
   Set rngImage = ActiveSheet.Range("A1:C20") ' Bereich anpassen
   rngImage.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
   ' Rest des Codes einfügen, um das Bild zu exportieren
End Sub

  • Excel als Webseite speichern: Speichere die gesamte Arbeitsmappe als Webseite, um automatisch alle Bilder in einem Ordner abzulegen.

Praktische Beispiele

  1. Diagramm als Bild speichern: Um ein Diagramm als Bild zu speichern, kannst du den Diagrammobjekt direkt ansprechen:

    Sub DiagrammAlsBildSpeichern()
   Dim chDiagramm As ChartObject
   Set chDiagramm = ActiveSheet.ChartObjects(1) ' Erstes Diagramm auswählen
   chDiagramm.Chart.Export Filename:="C:\Test\Diagramm.jpg", FilterName:="JPG"
End Sub

  2. Excel-Bereich als PNG speichern: Wenn du die Bildqualität erhöhen möchtest, speichere den Bereich als PNG:

    Sub BereichAlsPNGSpeichern()
   Dim rngImage As Range
   Set rngImage = ActiveSheet.Range("A1:C20")
   rngImage.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
   ' Rest des Codes wie oben, aber als PNG speichern
   ' .Export Filename:="C:\Test\Bereich.png", FilterName:="PNG"
End Sub

Tipps für Profis

  • Nutze Variablen, um den Speicherort dynamisch zu gestalten, z.B. durch Benutzerabfrage.
  • Experimentiere mit verschiedenen Grafikformaten, um die Kompatibilität und Qualität zu optimieren.
  • Denke daran, die Automatisierung zu testen, indem du den Prozess mehrmals durchführst, um sicherzustellen, dass alles reibungslos funktioniert.

FAQ: Häufige Fragen

1. Wie speichere ich ein Bild aus Excel als JPG?
Du kannst das Bild mit einem VBA-Skript speichern, das die .Export-Methode verwendet, um das Bild im JPG-Format zu speichern.

2. Kann ich mehrere Bilder gleichzeitig exportieren?
Ja, du kannst eine Schleife verwenden, um durch alle Shapes oder Diagramme auf dem Arbeitsblatt zu iterieren und jede Form oder jedes Diagramm als Bild zu speichern.

3. Was ist der Unterschied zwischen JPG und PNG?
JPG ist ein komprimiertes Format, das weniger Speicherplatz benötigt, während PNG verlustfrei ist und Transparenzen unterstützt, was es ideal für Grafiken macht.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige