[已解决]求助一道图表导出的vba问题

wingotoo

真心求教各位大师指点，能实现么？十分感谢

附件
有个文件夹.rar (9.96 KB, 下载次数: 5)

2015-10-8 23:20 上传

点击文件名下载附件


最后导出的图片效果如下（效果展示）：

最佳答案

月排行榜 / 总排行榜

cbg2008

2015-10-9 08:57

1. Sub 宏2()
   
2.     Dim a
   
3.     Set a = ActiveSheet.[d5:k23]
   
4.     ThisWorkbook.Sheets(2).Activate
   
5.     With ThisWorkbook.Sheets(2).ChartObjects.Add(0, 0, a.Width, a.Height).Chart
   
6.         a.CopyPicture
   
7.         .Paste
   
8.         .Export ThisWorkbook.Path & "\Picture.jpg", "JPG"
   
9.         .Parent.Delete
   
10.     End With
    
11.     ThisWorkbook.Sheets(1).Activate
    
12. End Sub

复制代码

跳转到最佳答案楼层

cbg2008

1. Sub 宏2()
   
2.     Dim a
   
3.     Set a = ActiveSheet.[d5:k23]
   
4.     ThisWorkbook.Sheets(2).Activate
   
5.     With ThisWorkbook.Sheets(2).ChartObjects.Add(0, 0, a.Width, a.Height).Chart
   
6.         a.CopyPicture
   
7.         .Paste
   
8.         .Export ThisWorkbook.Path & "\Picture.jpg", "JPG"
   
9.         .Parent.Delete
   
10.     End With
    
11.     ThisWorkbook.Sheets(1).Activate
    
12. End Sub

复制代码