VBA Copy range as image has low resolution?

[daveasu]

I have some VBA code that finds named ranges throughout a workbook and saves those ranges as images.

The code works great, but the resolution of the images is not that great. If you do a manual screen capture of the range and put that image next to the image created from the macro, there is a noticeable difference in the resolution.

I've read online that Format:=xlBitmap will create a high resolution image, but is there a way to increase the resolution so that the text in the image is easier to read?

Sub Export_Pictures()
    Dim Nm As Name
    Dim rgExp As Range
   For Each Nm In Names
        If Nm.Name Like "Week*" Then 
          Range(Nm).CopyPicture Appearance:=xlScreen, Format:=xlBitmap
          With ActiveSheet.ChartObjects.Add(Left:=Range(Nm).Left, Top:=Range(Nm).Top, Width:=Range(Nm).Width, Height:=Range(Nm).Height)
                .Name = "TempArea"
                .Activate
           End With
          ActiveChart.Paste
           ActiveSheet.ChartObjects("TempArea").Chart.Export "C:\Users\user\Dropbox\" + Nm.Name + ".png"
           ActiveSheet.ChartObjects("TempArea").Delete
        End If
    Next
End Sub

 

[Domenic]

Actually, have you tried to copy the picture of your range as a picture (xlPicture), instead of a bitmap (xlBitmap)?

 

[daveasu]

Domenic thank you for the response. Gave that a try, but it didn't make an improvement. Not sure if the "print screen" resolution is going to be possible

 

[NdNoviceHlp]

Hi daveasu. Here's a link that might help. Dave

Viewing a different excel workbook in a userform

Can this be done? I have googled this question, and most of the solutions show I need to process the spreadsheet data into a listbox. But what I want is a simple viewer within the userform to show a different excel file. Are there 3rd party controls that I can use, or any other way besides the...

www.mrexcel.com

 

[yky]

The way I save an Excel file as a high resolution picture is first to save it as a PDF file. Then, you can save PDF as a 600 dpi jpg file. If you have Adobe Acrobat, I think the whole process can be automated though I have never tried it.