怎样用VBA将EXCEL中的图片导出另存为BMP文件?

我自己有下面的代码
Dim shp As Shape

For Each shp In ActiveSheet.Shapes
shp.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
.Paste
.Export "E:\image\" & shp.Name, "JPG"
Selection.Delete
.Parent.Delete
End With

Next
将图片另存为了JPG,可图片质量下降了
我想另存为BMP是不是会好点?
但.Export shp.Name(改为bmp后缀),"BMP" 这样行不通

请问应该怎么做?
或者怎么样才能按原图保存?

[470 byte] By [sunreinhard] at [2008-4-9]