Van excel sheet naar jpg?

[pd1lg]

Ik gebruik onderstaande formule om een jpg te maken van excel sheet.
Maar de jpg is resolutie te laag en het aantal pixels is dusdanig dat vergroten van de jpg het wazig maakt.
Iemand een idee hoe ik de resolutie van de jpg groter kan maken?

Sub Totaal_Click()
Dim i  As Integer
Dim intCount As Integer
Dim objPic As Shape
Dim objChart As Chart
'copy the range as an image
Call Blad16.Range("E5:AS35").CopyPicture(xlScreen, xlBitmap)

'remove all previous shapes in sheet2
intCount = Blad18.Shapes.Count
For i = 1 To intCount
    Blad18.Shapes.Item(1).Delete
Next i
'create an empty chart in sheet2
Blad18.Shapes.AddChart
'activate sheet2
Blad18.Activate
'select the shape in sheet2
Blad18.Shapes.Item(1).Select
Set objChart = ActiveChart
'paste the range into the chart
objChart.Paste
'save the chart as a JPEG
objChart.Export ("F:\Bert\Documents\NBR-BILJART\TOTAAL.jpeg")
End Sub

 

[snb]

waarom maak je niet gewoon een PDF van Range("E5:AS35") ?

En met

    Range("A1:E32").CopyPicture 1, -4147

Is de kwaliteit al beter.

 

[alphamax]

Wat wil je verder doen met die jpeg?
Zie https://social.msdn.microsoft.com/F...gpng-with-high-resolution-in-vba?forum=isvvba voor hetzelfde probleem en kwalitatief verschillende oplossingen.

 

[pd1lg]

Wat wil je verder doen met die jpeg?
Zie https://social.msdn.microsoft.com/F...gpng-with-high-resolution-in-vba?forum=isvvba voor hetzelfde probleem en kwalitatief verschillende oplossingen.

Het is de bedoeling dat de jpeg op facebook van onze club komt te staan.