MSCHART有一个editcopy方法,可以把图拷到剪贴板中,然后你再把它取到一个picture控件中,最后调用savepicture 方法存贮为文件就行了
MSChartCenter.EditCopy
PictureCenter.Picture = Clipboard.GetData
With CDg
.FileName = ""
.Filter = "*.bmp|*.bmp|*.*|*.*"
.DefaultExt = ".bmp"
.ShowSave
If .FileName = "" Then Exit Sub
SavePicture PictureCenter.Picture, .FileName
End With