Sub ExportChartGIF()
ActiveChart.Export Filename:="C:\a\MyChart.gif", _
FilterName:="GIF"
End Sub
Sub ExportChartJPG()
ActiveChart.Export Filename:="C:\a\MyChart.jpg", _
FilterName:="jpeg"
End Sub
Using Andy's or Don's suggestions, export the chart as a GIF, not a JPEG. GIFs are
better suited to drawing object like charts, while JPEGs are better suited to
photographic images. PNGs are also good for charts, if that filter is available on
your computer.
Using Bernard's suggestion, save the final image as GIF or PNG.
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions http://PeltierTech.com/
_______