Export a range of cells from Excel as JPG

Question

Dear Expert,

Just wonder is it possible to export a range of Excel cells to be JPG format (Picture) please?

Say Sheet 1 Range A1:E40.

Is that feasbile?

Thanks for advice,

Answer 1

Worksheets("Sheet1").Range("A1:E40").CopyPicture

Worksheets("Sheet2").Paste

Answer 2

Excel does not have the ability to save as JPG. You need the assistance of a third party application to provide the graphics output.

A simple solution would be to obtain a graphics 'printer' driver. SnagIt www.techsmith.com is ideal. This provides a 'printer' driver that can be configured to save in a variety of graphics formats including jpg and is a simpler solution than pasting into another application and saving the output from that. You can then use a macro to save a range of cells as JPG e.g. using the same range suggested earlier in the thread

Dim strPrinter As String

strPrinter = Excel.ActivePrinter

ActiveSheet.PageSetup.PrintArea = "$A$1:$E$40"

Application.ActivePrinter = "SnagIt 9 on Ne00:"

ActiveSheet.PrintOut

Excel.ActivePrinter = strPrinter

---

<Elton Law> wrote in message news:*** Email address is removed for privacy ***...

Hi Jackpot,

Do we need to define a file name so that it can save the JPG file?

Thanks

Elton

---

Graham Mayor - Word MVP

www.gmayor.com

Posted via the Communities Bridge

http://communitybridge.codeplex.com/

Answer 3

Hi Jackpot,

Do we need to define a file name so that it can save the JPG file?

Thanks

Elton

Answer 4

Hi, I asked for this as I have a lot of cells to be exported as JPG file.

I am afriad youe method does not serve my purpose as it is too manual.

Thanks for advice.

Answer 5

First open an app like Paint or PowerPoint.

Hi-light the area in Excel and:

Paste > As Picture > Copy as Picture

Then click in the Paint screen and CNTRL-v

Then in Paint SaveAs JPG.

---

gsnu201005