I have tried copying to PowerPoint and then saving as a tif, but the quality
is not as good.

I suppose the easiest way would be for you to download a copy of the free
ASAP utility. As one of its options, you can convert an Excel file into a
..tif... others too. BR


"rlbell" wrote in message
...
I have tried copying to PowerPoint and then saving as a tif, but the
quality
is not as good.

Hello, Brad!
You wrote on Wed, 2 Aug 2006 13:50:48 -0500:

B I suppose the easiest way would be for you to download a
B copy of the free ASAP utility. As one of its options, you
B can convert an Excel file into a .tif... others too. BR

B "rlbell" wrote in message
B ...
?? I have tried copying to PowerPoint and then saving as a
?? tif, but the quality is not as good.

I thought it could be done tho' I'll have to leave quality
judgements to you :-) You can copy an Excel chart into the free
program Irfanview and save it as a TIF.

James Silverton
Potomac, Maryland

E-mail, with obvious anti-spam: not.jim.silverton.at.comcast.not

Great thanks, I did a search for the ASAP utility and did not locate it, can
you tell me how to find it to download?

"Brad" wrote:

I suppose the easiest way would be for you to download a copy of the free
ASAP utility. As one of its options, you can convert an Excel file into a
..tif... others too. BR


"rlbell" wrote in message
...
I have tried copying to PowerPoint and then saving as a tif, but the
quality
is not as good.

Did you use Google? It's the first link, whether I enter 'asap utility' or
'asap utilities'.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"rlbell" wrote in message
...
Great thanks, I did a search for the ASAP utility and did not locate it,
can
you tell me how to find it to download?

"Brad" wrote:

I suppose the easiest way would be for you to download a copy of the free
ASAP utility. As one of its options, you can convert an Excel file into
a
..tif... others too. BR


"rlbell" wrote in message
...
I have tried copying to PowerPoint and then saving as a tif, but the
quality
is not as good.

The following code produced a .tif file that seems to be of very good
quality when imported as an object into Word, PowerPoint and Excel, or
when opened into Microsoft Paint. The only program where the quality
was questionnable was when I opened it in the Microsoft accessory,
Imaging. Give it a try and let me know what you think.


Sub ChartAsTIF()
If TypeName(Selection) = "ChartArea" Then
userFname = InputBox("Filename of Chart File?", "Save Chart",
"ExcelChart")
userNameAndPath = ThisWorkbook.Path & "\" & userFname & ".tif"
ActiveChart.Export Filename:=userNameAndPath, filtername:="TIF"
MsgBox "Chart is saved as" & Chr(13) & userNameAndPath
Else
userReply = MsgBox("Please select a Chart Area, then run macro
again", vbOKOnly, "Error in Selection")
End If

End Sub


(Be careful when copying this code. Google's message area tends to
wrap lines of code at inappropriate places.)

Click on the chart, then run the macro.

A handier chart detection statement would work like this:

If Not ActiveChart Is Nothing Then
'' do the export routine
Else
userReply = MsgBox("Please select a Chart, then run macro again", _
vbOKOnly, "No Active Chart")
End If

This way you can have any chart element selected and it would still work on
the active chart.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


wrote in message
oups.com...
The following code produced a .tif file that seems to be of very good
quality when imported as an object into Word, PowerPoint and Excel, or
when opened into Microsoft Paint. The only program where the quality
was questionnable was when I opened it in the Microsoft accessory,
Imaging. Give it a try and let me know what you think.


Sub ChartAsTIF()
If TypeName(Selection) = "ChartArea" Then
userFname = InputBox("Filename of Chart File?", "Save Chart",
"ExcelChart")
userNameAndPath = ThisWorkbook.Path & "\" & userFname & ".tif"
ActiveChart.Export Filename:=userNameAndPath, filtername:="TIF"
MsgBox "Chart is saved as" & Chr(13) & userNameAndPath
Else
userReply = MsgBox("Please select a Chart Area, then run macro
again", vbOKOnly, "Error in Selection")
End If

End Sub


(Be careful when copying this code. Google's message area tends to
wrap lines of code at inappropriate places.)

Click on the chart, then run the macro.

Very nice improvement. Thanks, Jon.