Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen


Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...

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...

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...

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

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...

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...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige