Using VBA code, how to export Excel worksheets as image in Excel 2003?

Question

Please suggest the better way of exporting range of data from excel worksheets as image either in .jpeg or .png or in .gif.

Accepted Answer

do you want to try the below code I found on the internet somewhere many moons ago and used.

It uses the Export function of the Chart object along with the CopyPicture method of the Range object.

References:

- MSDN - Export method as it applies to the Chart object. to save the clipboard as an Image

MSDN - CopyPicture method as it applies to the Range object to copy the range as a picture

```
dim sSheetName as string
dim oRangeToCopy as range
Dim oCht As Chart

sSheetName ="Sheet1" ' worksheet to work on
set  oRangeToCopy =Range("B2:H8") ' range to be copied

Worksheets(sSheetName).Range(oRangeToCopy).CopyPicture xlScreen, xlBitmap
set oCht =charts.add

with oCht
    .paste
    .Export FileName:="C:\SavedRange.jpg", Filtername:="JPG"
end with
```

Solution