I want to convert an Excel Chart to a .tif format file

[rlbell]

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

[Brad]

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" <[email protected]> wrote in message
news:[email protected]...
>I have tried copying to PowerPoint and then saving as a tif, but the
>quality
> is not as good.

[James Silverton]

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" <[email protected]> wrote in message
B> news:[email protected]...
??>> 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

[rlbell]

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" <[email protected]> wrote in message
> news:[email protected]...
> >I have tried copying to PowerPoint and then saving as a tif, but the
> >quality
> > is not as good.
>
>
>

[Jon Peltier]

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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
>> news:[email protected]...
>> >I have tried copying to PowerPoint and then saving as a tif, but the
>> >quality
>> > is not as good.
>>
>>
>>

[[email protected]]

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.

[Jon Peltier]

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
_______


<[email protected]> wrote in message
news:[email protected]...
> 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.
>

[[email protected]]

Very nice improvement. Thanks, Jon.