Save chart as .BMP instead of .GIF?

[Fan924]

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

 

[Andy Pope]

Hi,

If you have xl2007 then .bmp is supported. Here is some more information
about graphics filters.
http://office.microsoft.com/en-us/publisher/HP030743141033.aspx?pid=CH100487811033

Here a blog on the merits of graphic type.
http://peltiertech.com/WordPress/image-file-type-comparison-of-exported-charts/

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

Cheers
Andy