Can this be modified to save a .BMP instead of .GIF?

Sub Save_ChartAsGif()
Dim oCht As Chart
Set oCht = ActiveChart
'ActiveSheet.Name
On erRROR GoTo Err_Chart
oCht.Export FileName:="D:\My Documents\_wip\Pic_" & ActiveSheet.Name
&
".gif", Filtername:="gif"
'oCht.Export FileName:="C:\PopularICON.jpg", Filtername:="JPG"
Err_Chart:
If Err < 0 Then
Debug.Print Err.Description
Err.Clear
End If
End Sub

Hi,

If you have xl2007 then .bmp is supported. Here is some more information
about graphics filters.
http://office.microsoft.com/en-us/pu...CH100487811033

Here a blog on the merits of graphic type.
http://peltiertech.com/WordPress/ima...ported-charts/

You might also have a look at Stephen Bullen's PastePicture workbook.
http://www.oaltd.co.uk/Excel/Default.htm

Cheers
Andy
--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"Fan924" wrote in message
...
Can this be modified to save a .BMP instead of .GIF?

Sub Save_ChartAsGif()
Dim oCht As Chart
Set oCht = ActiveChart
'ActiveSheet.Name
On erRROR GoTo Err_Chart
oCht.Export FileName:="D:\My Documents\_wip\Pic_" & ActiveSheet.Name
&
".gif", Filtername:="gif"
'oCht.Export FileName:="C:\PopularICON.jpg", Filtername:="JPG"
Err_Chart:
If Err < 0 Then
Debug.Print Err.Description
Err.Clear
End If
End Sub