简单分三步：
Step1： Alt+ F11 --》 调出 VBA；
Step2： Ctrl+G （开关键）—》调出立即窗口；
Step3: 在立即窗口输入 activesheet.ChartObjects(1).Chart.Export "D:\chart.png" + Enter ---> 到 D盘根目录去找图片chart.png吧
===
http://jingyan.baidu.com/article/d45ad1489514cc69552b8001.html
原文：http://www.cnblogs.com/juking/p/4827973.html