Sub 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/