saving chart as .jpeg...

1 reply [Last post]
User offline. Last seen 2 years 2 weeks ago. Offline
Joined: 01/20/2010
Posts: 1
HI... I HAVE A CHART... I WANT THAT IT WILL BE SAVE AS A JPEG FILE WHEN I CLICK A COMMAND BUTTON. IS IT POSSIBLE? THANK YOU SO MUCH!
User offline. Last seen 3 weeks 6 days ago. Offline
Joined: 06/02/2008
Posts: 15
Saving Chart as JPEG image

Something like this should work:

Sub test
Dim mychart As Chart
Set mychart = ActiveSheet.ChartObjects(1).Chart
mychart.Export FileName:="c:\Mychart.JPEG", FilterName:="JPEG"
end sub

I hope this helps.