Diagramm als Grafik mit Speicherdialog exportieren

• Diagramm als Grafik mit Speicherdialog exportieren von John Clark vom 18.01.2008 17:40:44
• AW: Diagramm als Grafik mit Speicherdialog exportieren - von Hubert am 18.01.2008 18:44:20
  • AW: Diagramm als Grafik mit Speicherdialog exporti - von John Clark am 19.01.2008 09:23:54
    • AW: Diagramm als Grafik mit Speicherdialog exporti - von John Clark am 21.01.2008 11:44:03
      • AW: Diagramm als Grafik mit Speicherdialog exporti - von Hubert am 22.01.2008 15:41:14

Betrifft: Diagramm als Grafik mit Speicherdialog exportieren
von: John Clark

Geschrieben am: 18.01.2008 17:40:44

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

Betrifft: AW: Diagramm als Grafik mit Speicherdialog exportieren
von: Hubert
Geschrieben am: 18.01.2008 18:44:20
Hi,
bei "VBA gut" sollte der Hinweis auf GetSaveAsFilename ausreichen.
mfg Hubert

Betrifft: AW: Diagramm als Grafik mit Speicherdialog exporti
von: John Clark

Geschrieben am: 19.01.2008 09:23:54
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. ;-)

Betrifft: AW: Diagramm als Grafik mit Speicherdialog exporti
von: John Clark
Geschrieben am: 21.01.2008 11:44:03
Nochmal meine Frage bzgl. des Dialogs "Überschreiben"...

Betrifft: AW: Diagramm als Grafik mit Speicherdialog exporti
von: Hubert

Geschrieben am: 22.01.2008 15:41:14
Hi,
einfach eine Abfrage einbauen:
If Dir("deinPfad\deineDatei") <> "" Then Exit Sub
mfg Hubert

Excel-Beispiele zum Thema "Diagramm als Grafik mit Speicherdialog exportieren"

Diagramm in Userform		Export von Diagrammen im Grafikformat
Diagramm aus Arbeitsblatt in Diagrammblatt übertragen		Balkendiagramm simulieren
Diagramm aus Daten einer Bandbreite bilden		Diagramm-Datenreihen blinken lassen und Linie langsam zeichnen
Diagramm exportieren und in Tabellenblatt importieren		Eine Serie von Diagrammen erstellen und Druckansicht zeigen
Diagramm-Datenbereich über Schaltfläche festlegen		Mit einer Diagramm-Bildlaufleiste durch Tabelle bewegen
Gleiche Zufallszahlen zählen und in Diagramm anzeigen		Diagrammdatenreihe mit VBA ändern
Diagramm erstellen, in UserForm anzeigen und drucken		Dynamisches Diagramm
Diagramm dynamisch erstellen		Hyperlink zu einem Diagrammblatt.
Diagramm zu PowerPoint-Präsentation konvertieren und aufrufen		Bei Rechtsklick auf Diagramm MessageBox-Aufruf
Grafik in Kopfzeile		Grafiken im Tabellenblatt ordnen
Grafiken an eine Seite anpassen		Grafik einfügen, wenn Wert in A1 unter eine Grenze sinkt
Grafikprogramm aufrufen und Bild laden		Grafik in Abhängigkeit einer Zelleingabe einfügen
Grafik nach Doppelklick laden		Grafiken aus ausgeblendeten Blättern einblenden
Grafik nach Eingabe des Dateinamens einfügen		Sich bewegende GIF-Grafik in UserForm
Druckbereiche als GIF-Grafiken exportieren		Tabellenblattbereich als Grafik speichern
Grafik in Internet Explorer laden		UserForm-TextBox-Inhalte mit Grafik-Hyperlinks einfügen
Grafikdateien suchen		Tabellenblattgrafik ein/ausblenden und verschieben
Grafik-Dateinamen aus Zelle auslesen und HTML-Datei erstellen		Animierte Grafik in Tabellenblatt anzeigen
Beim Überfahren einer Grafik mit der Maus Uhrzeit anzeigen		Bei Eingabe Grafiken in alle Tabellen und Makro zuweisen
Grafikdatei aus dem Internet downloaden und in Tabelle einfügen		Grafik importieren und in Zelle zentrieren
Grafik in Abhängigkeit eines Formelwertes ein/ausblenden		Grafiken in Zellkommentaren anzeigen
Grafiken gem. Hyperlinkadressen öffnen		Grafiken nach dem Zufallsprinzip anzeigen
Die ersten beiden Grafiken in Tabellenblatt löschen		Bei Doppelklick Grafik in Kommentar einfügen
Import einer Grafikdatei aus dem Internet		Übernahme einer Grafik gem. SVERWEIS
Module und UserForms einer zu öffnenden Arbeitsmappe exportieren