Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Diagramme als Bilder exportieren

Diagramme als Bilder exportieren
30.08.2004 17:47:16
Doris
Hallo NG
In Powerpoint ist es möglich, alle Folien einer Präsentation als "jpg" abzuspeichern. Jetzt habe ich in Excel eine Arbeitsmappe mit ganz vielen Diagrammen (einzelne Tabellenblätter). Ideal für meine Weiterverarbeitung wäre, wenn ich diese alle in einem Bildformat abspeichern könnte, geht das?
Grüsse Doris
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramme als Bilder exportieren
30.08.2004 17:55:23
Nepumuk
Hallo Doris,
das sollte es tun:


Public Sub Exportieren()
    Dim myWorksheet As Worksheet, myChartObject As ChartObject
    For Each myWorksheet In ThisWorkbook.Worksheets
        For Each myChartObject In myWorksheet.ChartObjects
            myChartObject.Chart.Export Filename:=ThisWorkbook.Path & "\" & myWorksheet.Name & " " & myChartObject.Name & ".jpg", FilterName:="JPG"
        Next
    Next
End Sub


Gruß
Nepumuk
Anzeige
AW: Diagramme als Bilder exportieren
30.08.2004 18:02:38
Doris
öhm, auf Anhieb passiert da gar nix :-( ich nehme an, ich muss "myChartObject" und "myWorksheet" anpassen? Aber wie gesagt, es sind mehrere Chart-Objekte (ca. 50)... was nun?
Gruss, Doris
AW: Diagramme als Bilder exportieren
30.08.2004 18:10:28
Nepumuk
Hallo Doris,
das Programm ist getestet und funktioniert. Anpassen musst du nichts. Kommt eine Fehlermeldung? Die Diagramme weden in dem Ordner gespeichert, in dem sich die Mappe befindet.
Gruß
Nepumuk
Anzeige
AW: Diagramme als Bilder exportieren
30.08.2004 18:15:55
Doris
Hallo Nepumuk
Nein, es passiert einfach konsequent nix! Es erscheint auch keine Fehlermeldung!
Mein Vorgehen:
Alt+F11 - neues Modul - Dein Code eingefügt (Copy/Paste)
dann:
- Extras - Makros - Ausführen...
stimmt doch, oder?!
Doris
AW: Diagramme als Bilder exportieren
30.08.2004 18:47:33
Nepumuk
Hallo Doris,
entschuldie bitte, aberich habe die Frage nicht richtig gelesen. Die Diagramme befinden sich in eigenen Diagrammblättern. Dann geht es so:


Public Sub Exportieren()
    Dim mySheet As Object
    For Each mySheet In ThisWorkbook.Sheets
        If TypeName(mySheet) = "Chart" Then
            mySheet.Export Filename:=ThisWorkbook.Path & "\" & mySheet.Name & ".jpg", FilterName:="JPG"
        End If
    Next
End Sub


Gruß
Nepumuk
Anzeige
AW: Diagramme als Bilder exportieren
31.08.2004 08:12:23
Doris
Super, jetzt funktioniert es wunderbar!
Herzlichen Dank und Gruss
Doris
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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