Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Grafik als Bild (jpg...) speichern

Forumthread: Grafik als Bild (jpg...) speichern

Grafik als Bild (jpg...) speichern
17.08.2007 10:49:00
dlhlht
Hallo allerseits,
besteht die Möglichkeit, vielleicht per makro, eine Excelgrafik direkt aus excel heraus als eigenständiges Bild abzuspeichern. Ich möchte nicht den Weg über ein Zeichenprogramm gehen sondern nach Möglichkeit direkt aus Excel das Bild erzeugen und speichern.
Vielen Dank im voraus

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Grafik als Bild (jpg...) speichern
17.08.2007 10:54:12
Beverly
Hi,
hast du schon mal die Suche im Archiv benutzt?
________________________________________

AW: Grafik als Bild (jpg...) speichern
17.08.2007 11:05:00
dlhlht
Ähhhh mal kurz überlegen......ja sonst würde ich nicht posten

AW: Grafik als Bild (jpg...) speichern
17.08.2007 11:13:00
Quicky
hallo du namenloses Etwas,
die Archivsuche mit "Grafik Bild speichern" zeigt dir jede Menge Beiträge!
Bist du etwas auch zu bequem bzw. zu faul hier nachzuschauen?
schönen Tag noch
Quicky

Anzeige
AW: Grafik als Bild (jpg...) speichern
17.08.2007 14:11:34
Lenhard
Moin dlhlht!
Das ist eine interessante Frage die Du da stellst. Als freiberuflicher Bildjournalist setze ich mich mit Bild-Formaten auch ab und zu in Excel auseinander.
Bisher habe ich nur folgenden Weg gefunden, Excel-Grafiken als Bild abzuspeichern: Speicher Deine Datei kpl. mit Grafik bzw. Diagramm als .htm-Dokument. Ecxel legt dann einen Ordner für Deine Datei an Deinem gewünschten Speicherort an, in dem Du Deine Grafik als GIF-Format findest.
Mit dieser GIF-Datei must Du aber immer noch den Umweg über eine Bildbearbeitungsprogramm zur JPG-Datei gehen. Ein ganz einfaches Programm für diesen Zweck wäre "Paint" unter Windows.
Was anderes konnte ich leider bisher nicht in Erfahrung bringen. Sorry.
Gruß aus dem hohen Norden
Lenhard

Anzeige
AW: Grafik als Bild (jpg...) speichern
17.08.2007 14:16:00
Lenhard
...ich vergaß da noch was:
Warum auch als JPG-Datei speichern?!? ...GIF-Dateien sind im Normalfall kleiner und haben auch keine JPG-Artefakte.
Ist aber nur so ein Gedanke, was Du letztendlich möchtest, weiß ich natürlich nicht und es muss ja vielleicht für Dich schon JPG sein.
Gruß
Lenhard

Anzeige
AW: Grafik als Bild (jpg...) speichern
17.08.2007 14:43:00
dlhlht
Nach fleißiger Recherche im Archiv (bin kein faules Kerlchen) habe ich ein Makro gefunden das Bilder selbstständig in eine Datei exportiert. Eine andere Möglichkeit habe ich noch nicht gesehen. Habe das Makro mal angehängt für alle die Interesse haben und nicht nur schlaue Sprüche.
Greetz
Makro:

Sub Bild_exportieren()
Sheets("Qualitätsbericht").Select
Dim myChartObject As ChartObject, myShape As Shape
Dim bolfound As Boolean
Application.ScreenUpdating = False
For Each myShape In ActiveSheet.Shapes
If myShape.Type = msoPicture Then bolfound = True: Exit For
Next
If bolfound Then
myShape.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Worksheets.Add
Set myChartObject = ActiveSheet.ChartObjects.Add(0, 0, myShape.Width, myShape.Height)
With myChartObject
.Activate
.Chart.Paste
.Chart.Export Filename:=ActiveWorkbook.Path & "\durschnittlichesalter.jpg",  _
FilterName:="JPG", Interactive:=False
End With
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Set myChartObject = Nothing
Set myShape = Nothing
Application.ScreenUpdating = True
End If
End Sub


Anzeige
AW: Grafik als Bild (jpg...) speichern
17.08.2007 15:36:00
Walburga
Hallo dlhlht
so gehts auch:
Option Explicit
Private Declare 

Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long



Sub Grafik_kop()
Const strPath As String = "C:\ttemp\"
Const strFile1 As String = "Diagramm1.jpg"
MakeSureDirectoryPathExists strPath
If Dir$(strPath & strFile1)  "" Then Kill (strPath & strFile1)
Sheets("Grafik").ChartObjects("chart 1").Chart.Export Filename:=strPath & _
strFile1, FilterName:="jpg", Interactive:=False
End Sub



Die Namen müssen natürlich angepasst werden.

Schönes Wochenende

Walburga
Anzeige
;

Forumthreads zu verwandten Themen

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
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
Alle Dateien als Excel97 speichern
WolfgangN

Hallo,
ich habe Excel2003 und möchte alle Excel-Tabellen aus einem Ordner (Excel-Tabellen) in einem anderen Ordner (PCShop) als Excel 97 Version speichern, um sie zu brennen und zu einem PC zu nehmen, wo nur Excel 97 installiert ist.
An den Dateien wird nichts geändert, soll nur als Exc...
12.02.2009 19:17:00
Thread-ID: 1050222
3 Beiträge
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
Anzeige
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
Diagramm als Bild einfügen, Diagramm löschen
MBorn

Guten Morgen,
ich murkse an folgendem Problem:
1. Diagramm erzeugen
2. Diagramm als Bild (BMP oder was anderes) an anderer Stelle im Tabellenblatt einfügen
3. Ursprüngliches Diagramm löschen.
Der Teil "Diagramm an anderer Stelle als Bild einfügen" funktioniert nicht.
We...
20.05.2009 10:09:16
Thread-ID: 1076263
4 Beiträge
Datei auch als Copie Speichern
Daniel

Hallo zusammen
Ich hab da mal ein kleines Problem oder besser eine Frage:
Ist es möglich eine Datei beim "normalen" Speichern gleichzeitig auch als Copie zu speichern?
Ich denke mir dies etwa so: abc.xls und abckopie.xls. Die Kopie sollte auf dem gleichen Datenträger wie das Origina...
18.08.2010 23:05:35
Thread-ID: 1172979
5 Beiträge
Zelle als Bild speichern beschleunigen
Reinhard

Hallo Wissende,
nachfolgender Code macht schon das was ich mir erhoffte, er nimmt die Unicode Zeichen, die von A32 bis A65535 stehen und speichert sie als gif ab.
Dazu habe ich drei Fragen.
Wieso als Gif, im Code steht doch "Bitmap"? Ändere ich in
strFile = "c:\Test\meinBild" &...
12.02.2011 19:49:01
Thread-ID: 1200445
13 Beiträge
Makrodatei XLS als XLA abspeichern
ChrisW

Hallo Leute,
Ich habe eine Fremd-Datei mit Makros, in der ich den Code kommentieren soll.
Diese Datei ist eine ".xla" excel 2003 Datei, die Read only ist.
Beim Abspeichern musste ich also einen neuen Namen verwenden, leider habe ich nicht aufgepasst und die datei als ".xls" gespeich...
29.09.2011 16:44:27
Thread-ID: 1232011
3 Beiträge
Diagramm / Grafik als wmf speichern
Sue

Guten Morgen liebe Excel-Janer
Stehe mal wieder auf dem Schlauch.
Nach dem mir Harald beim letzten Mal Hilfestellung geleistet hat (leider hat es dann doch nicht mit dem AddIn geklappt - eine Lösung habe ich dennoch gefunden), verfüge ich nun über hunderte von Diagrammen bzw. Grafiken.<...
06.12.2011 05:33:57
Thread-ID: 1240648
2 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

Excel-Grafiken als Bild speichern: So geht's

Schritt-für-Schritt-Anleitung

Um ein Excel-Diagramm als Bild zu speichern, kannst Du die folgenden Schritte ausführen:

  1. Makro aktivieren: Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Neues Modul erstellen: Klicke im Menü auf "Einfügen" und wähle "Modul".

  3. Makro einfügen: Kopiere das folgende Makro in das Modul:

    Sub Bild_exportieren()
    Sheets("Qualitätsbericht").Select
    Dim myChartObject As ChartObject, myShape As Shape
    Dim bolfound As Boolean
    Application.ScreenUpdating = False
    For Each myShape In ActiveSheet.Shapes
        If myShape.Type = msoPicture Then bolfound = True: Exit For
    Next
    If bolfound Then
        myShape.CopyPicture Appearance:=xlScreen, Format:=xlPicture
        Worksheets.Add
        Set myChartObject = ActiveSheet.ChartObjects.Add(0, 0, myShape.Width, myShape.Height)
        With myChartObject
            .Activate
            .Chart.Paste
            .Chart.Export Filename:=ActiveWorkbook.Path & "\durschnittlichesalter.jpg", _
            FilterName:="JPG", Interactive:=False
        End With
        Application.DisplayAlerts = False
        ActiveSheet.Delete
        Application.DisplayAlerts = True
        Set myChartObject = Nothing
        Set myShape = Nothing
        Application.ScreenUpdating = True
    End If
End Sub

  4. Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle das Makro "Bild_exportieren" und klicke auf "Ausführen". Dein Bild wird im JPG-Format gespeichert.

Häufige Fehler und Lösungen

  • Fehler: „Das Diagramm konnte nicht gefunden werden.“

    • Lösung: Stelle sicher, dass der Name des Diagramms oder der Grafik im Makro korrekt ist.

  • Fehler: „Das Bild wird nicht gespeichert.“

    • Lösung: Überprüfe den Pfad im Makro. Stelle sicher, dass der angegebene Ordner existiert.

Alternative Methoden

Es gibt verschiedene Möglichkeiten, um ein Bild aus Excel als JPG zu speichern:

  1. Speichern als HTML: Speichere Deine Excel-Datei als .htm-Dokument. Excel erstellt einen Ordner, in dem Du Deine Grafiken als GIF-Dateien findest. Diese kannst Du dann mit einem Bildbearbeitungsprogramm in JPG umwandeln.

  2. Screenshot-Methode: Mache einen Screenshot des Diagramms und speichere es als JPG. Dies ist eine einfache, aber weniger präzise Methode.

  3. Direktes Exportieren: Nutze die Funktion „Exportieren“ in Excel, um direkt ein Diagramm als Bild zu speichern, sofern Deine Excel-Version dies unterstützt.

Praktische Beispiele

  • Um ein Excel-Diagramm als Grafik zu speichern, kannst Du das oben genannte Makro verwenden.

  • Ein Beispiel für den Pfad: Wenn Du den Speicherort auf C:\Bilder\ ändern möchtest, passe die Zeile im Makro an:

    .Chart.Export Filename:="C:\Bilder\durschnittlichesalter.jpg", _
FilterName:="JPG", Interactive:=False

Tipps für Profis

  • Achte darauf, dass die DPI (Dots Per Inch) für die JPG-Datei hoch genug ist, um die Bildqualität zu gewährleisten.
  • Experimentiere mit verschiedenen Bildformaten. Manchmal kann ein GIF oder PNG besser geeignet sein, um Artefakte zu vermeiden.
  • Du kannst verschiedene Diagramme in Excel erstellen und diese mithilfe des Makros in Bilder aus Excel exportieren.

FAQ: Häufige Fragen

1. Wie speichere ich ein Diagramm aus Excel direkt als JPG?
Du kannst dafür ein Makro verwenden oder die Funktion „Exportieren“ in Excel nutzen, um das Diagramm direkt als Bild zu speichern.

2. Gibt es eine Möglichkeit, mehrere Bilder aus Excel zu exportieren?
Ja, Du kannst das Makro anpassen, um eine Schleife zu verwenden, die alle Diagramme in einem Arbeitsblatt verarbeitet und sie als JPG-Dateien speichert.

3. Warum sollte ich JPG statt GIF verwenden?
JPG-Dateien sind in der Regel kleiner, können jedoch Artefakte aufweisen. GIF-Dateien sind oft qualitativ hochwertiger, aber größer. Wähle das Format, das am besten zu Deinen Anforderungen passt.

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