Office: (Office 2007) Excel Diagramm exportieren in guter Qualität!

Hey Leute,

Ich weiß inzwischen, wie ich Excel Diagramm in eine Grafikdatei exportieren kann, allerdings ist die Qualität, die dabei rauskommt, sehr schlecht.

Bisher habs ichs über Shift-Bearbeiten-Bild kopieren versucht, und mit einem Makro mit
strGrafikName = Application.GetSaveAsFilename( _
"diagramm", FileFilter:="GIF-Format (*.gif)," & _
" *.gif,JPG-Format (*.jpg), *.jpg")

Beides hat das gleiche ergebnis: eine Datei, die der Bildschirmauflösung (72dpi) entspricht und die Maße des Diagramms auf dem Bildschirm hat (bei 100% ansicht). Leider entspricht das überhaupt nicht dem sehr guten Druckbild, das wesentlich besser aufgelöst ist.

Kann mir jemand weiterhelfen?

Danke. Zakoon

:)

 

Moin, zakoon,

Du kannst Dein Glück ja einmal mit Graphics Exporter bzw. ChartSaver oder von kommerzieller Seite her per Amigo 2000. Inwieweit aber diese Formate vom/durch den MAC bzw. das Produkt unterstützt werden, kann ich Dir nicht sagen...

 

Hi Zakoon,

mir ist natürlich nicht bekannt, wie du die Grafiken weiterverarbeiten möchtest und ob du sie als Bilddatei abspeichern musst. Falls das nicht der Fall sein sollte und du sie mittels Word weiterverarbeiten willst, dann gibt es folgende Möglichkeit: Word und Excel parallel öffnen -> Bereich markieren -> Strg+C -> in Word auf Bearbeiten -> Inhalte einfügen - dazu kann man dort auch ein kleines Makro schreiben.
Die Qualität ist die selbe wie in Excel.

 

Hallo zakoon,

ich mache es immer wie folgt:
Diagramm in Excel kopieren
in word oder powerpoint einfügen
aus dieser datei ein pdf-file erzeugen
in diesem pdf-file die gewünschte Grafik markieren
DANACH den Zoom-Faktor auf 400% (ca.) einstellen
kopieren
in ein Grafikprogramm einfügen und dort als TIF oder gif abspeichern

es ist zwar ein wenig eleganter Weg, führt aber zu sehr ansehnlichen Ergebnissen...

Jan

 

Hi Leute,

Danke erstmal für eure Antworten. Ich habs mal durchprobiert:

@jinx: Die Addins sind leider. mist. Machen genau das selbe wie mein VBA-Code oder die viel einfach zu bedienende SHIFT-Bearbeiten-Bild kopieren methode.
Das kostenpflichtige hab ich zwar nicht ausprobiert, denke aber mal, das ist das gleiche.

@Berverly: Leider muss ich die Grafiken auf einen MAC überspielen, daher auch der ganze Terz :-/ Wenn ich die Word-Datei mit den durch deine Methode hineinkopierten Diagrammen auf dem MAC-Word öffne, sind die Diagramme schlicht und ergreifend ins Datennirvana abgeritten :-(

@jann: Deine Methode ist zwar umständlich (muss vieeele Diagramm konvertieren) aber bringt das beste Ergebnis! Und es ist weniger umständlich als meine inzwischen neu herausgefundene Variante:
Das Diagramm in Excel als Postscript Datei drucken (entsprechende Druckertreiber sind im Netz kostenlos erhältlich). Diese Datei kann man dann in Photoshop öffnen, und dort die Auflösung angeben! Super praktisch, wenn man Diagramme im DIN A x Format hat, aber da meine Diagramme ganz unterschiedliche Größen haben, zerschiesst es damit leider meine Beschriftungen.


Also Danke euch erstmal, falls jemandem eine bessere Methode einfällt: heraus damit!

 

Hi,

ich kann das Problem nicht nachvollziehen. Wenn ich ein Diagramm in guter Qualität exportieren will, dann vergrößere ich es erst mal um 200%. Das wird mit der Export - Methode als jpg gespeichert. Das Ergebnis ~ DIN A4 sieht doch gar nicht so schlecht aus.

 

Hi Zakoon,

hast du es auch schon mal mit Corel-Draw versucht -> Inhalte einfügen? Da kannst du es als Bild oder Excel-Diagramm einfügen (musst halt ausprobieren, was besser ist). Anschließend dann -> exportieren als JPG oder ein anderes Bildformat. Damit sparst du dir den Schritt über PDF.

 

\@Nepumuk: Was meinst du mit "vergrößern"? Setzt du die Anzeige einfach auf 200 Prozent? Wenn ja: bei mir hat die Anzeige keinen Effekt auf die mit der Export-Methode kopieren Bilder und deren Auflösung.
Oder meinst du in den Seiteneinstellungen einfach doppelt so große Maße für Höhe und Breite eingeben? Das funktioniert bei mir auch nicht, weil dann die Beschriftungen zerschossen werden.
Bitte schreib doch nochmal, was genau du meinst!

@Beverly: Öhm, leider hab ich kein Corel oder andere Vektor-programme... sowas fehlt mir noch :-/

 

Hallo zakoon,

ich mache das mit folgendem Code:

Public Sub prcExport()
Dim objShape As Shape
For Each objShape In ActiveSheet.Shapes
If objShape.Type = msoChart Then
With objShape
.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
.ScaleHeight 2, msoFalse, msoScaleFromTopLeft
.OLEFormat.Object.Chart.Export Filename:="C:\" & _
objShape.Name & ".jpg", FilterName:="JPG"
.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
End With
End If
Next
End Sub

Der gilt für in Tabellen eingebettete Diagramme.

 

Hi Zakoon,

gibt's als preiswerte OEM Versionen *wink.gif*

 

Hallo,

ich "muß" diesen alten Beitrag nochmals hochholen, weil ich noch eine Frage dazu habe.

Der Code für das Exportieren der Charts aus #9 finde ich genial und habe ihn mir in die personl.xls gepackt. Allerdings würde ich gerne statt der direkten Angabe des Pfades und Ordners angeben, daß die Charts in dem Ordner gespeichert werden, in dem auch die Datei mit den Charts ist. Kann mir jemand helfen, wie ich die Zeile
Code:

umbauen muß, damit ich nicht jedesmal vor dem Export den Pfad anpassen muß? Danke vorab.

 

Hallo Peppi,

schreib an Stelle von:

"C:\"

einfach

ActiveWorkbook.Path & "\"

 

Hallo Nepumuk,

vielen Dank - hat prima geklappt. Man muß halt nur wissen, wie es geht. Hatte nämlich zwischenzeitlich selbst ein wenig rumprobiert, aber das & "\" vergessen. Und da ging überhaupt nix *grins...

 

Hallo allerseits

Mit Interesse habe ich Euren Thread studiert. Gibt es eine Möglichkeit, das Makro von Nepumuk so anzupassen, dass wmf-Dateien exportiert werden können. Leider habe ich das nicht hingekriegt.

Für Vorschläge bin ich sehr dankbar.

 

Hallo VBAler,

vielen Dank für die ganzen Beiträge. Mir haben die bisher alle sehr viel gebracht.

Nun habe ich aber eine Frage und zwar, wie kann ich ein Diagramm, das in einem Extra-Register bzw. Extra-Tabellenblatt steht exportieren?

Kann mir jemand helfen?

Vielen Dank und Grüße

Bire