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/
本文提供了一个使用VBA代码从Excel工作表中导出图表为JPG格式文件的例子。通过定义变量并设置路径，可以实现自动化图表导出的功能。
扫一扫
765
到【灌水乐园】发言
本文提供了一个使用VBA代码从Excel工作表中导出图表为JPG格式文件的例子。通过定义变量并设置路径，可以实现自动化图表导出的功能。
