Mschart所得图片太大了，怎么办？

Question

Private Sub Command3_Click()
    Clipboard.Clear
    MSChart1.EditCopy
        SavePicture Clipboard.GetData(), "D:\DQ\OutputDoc\" & Combo1.Text & " _tH_Date.jpg"
    Clipboard.Clear
    MSChart2.EditCopy
        SavePicture Clipboard.GetData(), "D:\DQ\OutputDoc\" & Combo1.Text & " _tZ_Date.jpg"
End Sub
在上述过程中所得图片太大了，怎么处理，望高手指点！！！！

Answer 1

这样生成的不是jpg文件
搜索bmp->jpeg的代码

Answer 2

JPG文件已经生成，没有问题，但就是每个文件都有800K左右，太大了，我想把文件给减小点或用其它格式输出都可以，但是我已经没有办法了，请各位高手指点！！！

Answer 3

只是后缀变成了jpg
实际上还是bmp.
搜索bmp->jpeg的代码