用VBA导出Excel里的图表为JPG文件

ExportChart() ExportChart()
         Dim myChart As Chart
         Dim myFileName As String
         Set myChart = Sheet1.ChartObjects(1).Chart
        myFileName = "myChart.jpg"
         On Error Resume Next
        Kill ThisWorkbook.Path & "\" & myFileName
        myChart.Export Filename:=ThisWorkbook.Path & "\" & myFileName, Filtername:="JPG"
        MsgBox "OK"
         Set myChart = Nothing
End Sub

作者：laoyebin(Paladin.lao)

博客园出处： http://www.cnblogs.com/laoyebin/

个人网站英文出处： http://mrvsto.com/

个人网站中文出处： http://cn.mrvsto.com/