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
转自 http://blog.youkuaiyun.com/laoyebin/article/details/5741671
本文详细介绍了如何使用VBA代码将Excel图表导出为JPG文件,包括设置工作簿路径、获取指定图表对象并进行导出操作。
1万+

被折叠的 条评论
为什么被折叠?



