您的位置:首页 > 编程语言 > VB

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

2010-07-17 13:07 423 查看
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/
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: