On Error GoTo saverr Dim strsavefile As String With dlgChart ' CommonDialog object .Filter = "Pictures (*.bmp)|*.bmp" .DefaultExt = "bmp" .CancelError = True .ShowSave strsavefile = .FileName If strsavefile = "" Then Exit Sub End With MSChart1.EditCopy SavePicture Clipboard.GetData, strsavefile Exit Sub saverr: 就可以了,如果有问题再找我
Dim strsavefile As String
With dlgChart ' CommonDialog object
.Filter = "Pictures (*.bmp)|*.bmp"
.DefaultExt = "bmp"
.CancelError = True
.ShowSave
strsavefile = .FileName
If strsavefile = "" Then Exit Sub
End With
MSChart1.EditCopy
SavePicture Clipboard.GetData, strsavefile
Exit Sub
saverr:
就可以了,如果有问题再找我