Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
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
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm als Grafik mit Speicherdialog exportieren

Forumthread: Diagramm als Grafik mit Speicherdialog exportieren

Diagramm als Grafik mit Speicherdialog exportieren
18.01.2008 17:40:44
John
Hallo Zusammen,
ich möchte gerne ein Diagramm als Grafikdatei aus einem Excel-Blatt exportieren. Das klappt soweit.
Ich möchte allerdings den User fragen, wo er speichern möchte - am Besten mit einem Standard "Speichern-Unter"-Dialog. Geht das?
Mein Code
ActiveSheet.Activate
For e = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(e).Select
Set Dia = ActiveSheet.ChartObjects(e).Chart
Dia.Export Filename:="c:\" & ActiveSheet.ChartObjects(e).Name & ".jpg", Filtername:="jpg"
Next e

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm als Grafik mit Speicherdialog exportieren
18.01.2008 18:44:00
Hubert
Hi,
bei "VBA gut" sollte der Hinweis auf GetSaveAsFilename ausreichen.
mfg Hubert

AW: Diagramm als Grafik mit Speicherdialog exporti
19.01.2008 09:23:00
John
Hallo Hubert,
danke für deine Hilfe - habe ich jetzt mal so angepasst und funktioniert auch:
ActiveSheet.Activate
For e = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(e).Select
Set Dia = ActiveSheet.ChartObjects(e).Chart
Dia.Export Application.GetSaveAsFilename(Dia.ChartTitle.Text & ".jpg", fileFilter:="JPG Files (*.jpg), *.jpg")
Next e
Noch eine Verständnisfrage... wenn die Datei bereits existiert, wird sie einfach überschrieben, ohne die Abfrage, ob man das wirklich tun möchte. Ist das kein Standard-Dialog von Windows?
Bzgl. VBA gut.... kommt immer auf den Bereich an und ich würde mir noch ne Einstellung zwischen bescheiden und gut wünschen. ;-)

Anzeige
AW: Diagramm als Grafik mit Speicherdialog exporti
21.01.2008 11:44:03
John
Nochmal meine Frage bzgl. des Dialogs "Überschreiben"...

AW: Diagramm als Grafik mit Speicherdialog exporti
22.01.2008 15:41:00
Hubert
Hi,
einfach eine Abfrage einbauen:
If Dir("deinPfad\deineDatei") "" Then Exit Sub
mfg Hubert
;

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
Anzeige
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 von Tabelle1 als Grafik in Tabelle2 einfüg
Tabelle1

Hallo Leute,
ich komm irgendwie nicht weiter und benötige Hilfe.
es soll z.B. von Sheets("Tabelle1") Range("a1:b5")
als Grafik
in Sheets("Tabelle2")
Gruss
Atikar
19.11.2008 17:09:19
Thread-ID: 1026118
3 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
Anzeige
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
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
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
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

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