Office: (Office 2019) Excel-Bereich als Bild speichern

Hallo liebes Forum,

ich habe einen super Code hier im Forum gefunden:

PHP:

         Sub DiagrammAuswertung()
Application.ScreenUpdating = False
ActiveSheet.Range("A1:E14").CopyPicture Appearance:=xlScreen, Format:=xlPicture
With ActiveSheet.ChartObjects.Add(0, 0, Range("A1:E14").Width, Range("A1:E14").Height).Chart
.Parent.Activate
.Paste
.Export "H:ControllingSandraMuellerBilderAuswertungsergebnis.jpg"
.Parent.Delete
End With
Application.ScreenUpdating = True
End Sub


:)

 

Hallo,

na ja ... wenn die Bildqualität schlecht ist, ist der Code wohl auch nicht ganz so super, oder ?

Du kannst es noch mit ... Format:=xlBitmap ... versuchen ... aber das dürfte auch nicht allzu viel bringen.

Richtig gute Bildqualität, bekommst du nur über eine API-Lösung, die direkt auf das Handle der Bitmap im Arbeitsspeicher zugreift und bitweise die Struktur in ein weiteres Handle schreibt, dass du dann speichern kannst.

Als GIF, BMP oder PNG zu speichern, wäre relativ einfach, basieren alle auf der Struktur der Bitmap.
JPG oder TIF(F) ist dagegen schon komplizierter, geht aber auch.

Was genau brauchst du ? Und was soll es am Schluss werden ?

Sabina

 

Moin!
Warum nicht einfach die Range.ExportAsFixedFormat(XlTypePdf)-Methode nutzen.

Fragt sich Ralf vom Phone

 

\@RPP63neu

Das ist ja noch viel besser *wink.gif* Danke!