Can an excel page be converted to a jpg image?

P

PeggyN

Is it possible to take a snapshot of an excel page and save it as a jpg, or
to convert an excel page to a jpg file in another way?
 
H

houghi

PeggyN said:
Is it possible to take a snapshot of an excel page and save it as a jpg, or
to convert an excel page to a jpg file in another way?
Click to expand...

Screenshot?

houghi
 
J

Jon Peltier

1. You probably want GIF or PNG instead of JPG, because JPG is developed for
photographic art with gradual color changes, but is highly unsuitable for
screen shots with sharp transitions between distinct color regions and for
text.

2. You can use the Prt Scrn key, which copies the screen as a bitmap to the
clipboard, then paste it into a graphics program (Alt + Prt Scrn copies the
active window).

3. You could use a screen capture program. There are numerous free ones
available, and for a very reasonable price, SnagIt is highly functional.

- Jon
 
C

CLR

You can not save part of a Excel sheet directly as a .jpg file. In order to
do that you must copy and paste the desired area into an image editor program
like Paint Shop Pro, and then save the file as a .jpg from there.

Vaya con Dios,
Chuck, CABGx3
 
D

Don Guillett

From a post by Bob Phillips

Sub RangeToGIF()
CreateImageFile _
TheExportRange:=Range("B2:e7"), _
TheFileName:="c:\a\myPic", _
TheFileFormat:="gif"


End Sub


Sub CreateImageFile(TheExportRange As Range, _
TheFileName As String, _
TheFileFormat As String)


TheExportRange.CopyPicture Appearance:=xlScreen, _
Format:=xlPicture


Dim chtobj As ChartObject
Set chtobj = TheExportRange.Parent.ChartObjects.Add(1, 1, 1, 1)


With chtobj
.Width = TheExportRange.Width + 8
.Height = TheExportRange.Height + 8
.Chart.ChartArea.Border.LineStyle = 0
.Chart.Paste
.Chart.Export Filename:=TheFileName & "." & TheFileFormat, _
FilterName:=TheFileFormat
.Delete
End With


Set chtobj = Nothing


End Sub
 
C

CLR

Now THAT is 'WAY BEYOND COOL!!!...........thanks for sharing that Don, and
thanks to Bob for the creativity........I'll get a lot of mileage out of that
one......

Vaya con Dios,
Chuck, CABGx3
 
Top