If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Save chart as .BMP instead of .GIF?
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 |
#2
|
|||
|
|||
Save chart as .BMP instead of .GIF?
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 |
Thread Tools | |
Display Modes | |
|
|