Is it possible to programmatically create a JPG or TIF file from an Excel
sheet?

The sheets involved DO NOT contain graphics, just numers, formulas, and
text. I need the resulting file to be a static picture of the spreadsheet in
one of these graphical formats (JPG or TIF).

Perhaps create a picture link of the data and somehow export that
programmatically? I can't find a way.

Thanks in advance for your assistance.

"quartz" wrote in message
...
Is it possible to programmatically create a JPG or TIF file from an Excel
sheet?

The sheets involved DO NOT contain graphics, just numers, formulas, and
text. I need the resulting file to be a static picture of the spreadsheet
in
one of these graphical formats (JPG or TIF).

Perhaps create a picture link of the data and somehow export that
programmatically? I can't find a way.

Thanks in advance for your assistance.

Does it have to be programmatically? Why not simply make a screenshot and
then edit the image in a program like GraphicConverter?

/Fredrik

The only export option to graphic files is the export property of the chart
object. You can copy a range as a picture to get it in the clipboard, then
paste it on a chart object, size to match, then use the export property.



this was recently posted by Robin Hammond:




Mark,

Here's a start at another technique. I think if you search you'll find that
others have perfected this. Pubs open and have to go.

The immediate limitation is that the picture has to fit on the screen as far
as I can see, but give it a whirl and see if it works for you.

Sub ExportPicAsJpg()
Dim chTemp As Chart
Dim picCopy As Picture
Dim dWidth As Double
Dim dHeight As Double
Dim shNew As Worksheet

Set picCopy = Selection
Set chTemp = Charts.Add
Set shNew = Sheets.Add

dWidth = picCopy.Width
dHeight = picCopy.Height

Application.ScreenUpdating = False
With chTemp

.SetSourceData Source:=Sheets("Sheet1").Range("FA16383")
.Location Whe=xlLocationAsObject, Name:=shNew.Name

With shNew.ChartObjects(1)

.Width = dWidth + 2
.Height = dHeight + 2
.Top = 0
.Left = 0
Range("A1").Select
picCopy.Copy
.Activate
ActiveChart.Paste
.Interior.ColorIndex = 1
ActiveChart.Export "c:\TempPic.JPG", "jpg"

End With

End With

Application.DisplayAlerts = False
shNew.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Robin Hammond
www.enhanceddatasystems.com

--
Regards,
Tom Ogilvy

"quartz" wrote in message
...
Is it possible to programmatically create a JPG or TIF file from an Excel
sheet?

The sheets involved DO NOT contain graphics, just numers, formulas, and
text. I need the resulting file to be a static picture of the spreadsheet
in
one of these graphical formats (JPG or TIF).

Perhaps create a picture link of the data and somehow export that
programmatically? I can't find a way.

Thanks in advance for your assistance.

Hi Quartz: Here is what I do. I copy the cells from Excel, do a Paste
Special in Word and select Windows Bitmap, then I can Cut that bitmap and
paste it into Photo Editor and save it as a JPG or TIF.

Let me know if you have problems.

"quartz" wrote:

Is it possible to programmatically create a JPG or TIF file from an Excel
sheet?

The sheets involved DO NOT contain graphics, just numers, formulas, and
text. I need the resulting file to be a static picture of the spreadsheet in
one of these graphical formats (JPG or TIF).

Perhaps create a picture link of the data and somehow export that
programmatically? I can't find a way.

Thanks in advance for your assistance.