推荐如下几种方法:
方法一:
1、 复制图表>选择性粘贴在本文档中>选择图片
2、 关闭文档
3、 更改文档扩展名为rar
4、 打开rar文件(左键点击)>xl>media,找到图片
方法二:
1、 复制图表>选择性粘贴在word或ppt中>选择图片
2、 右键,另存为图片
方法三:
使用宏导出图片。“图表 1”是图表名称,点击后可在左上角看到名称。
1、 Alt+F11,打开编辑框
2、 粘贴如下代码
3、 F5运行
Sub Test()
Dim my_Sheet As Worksheet
Dim my_Chart As ChartObject
Set my_Sheet = Worksheets(1)
Set my_Chart = my_Sheet.ChartObjects("图表 1")
my_Chart.Chart.Export ThisWorkbook.Path & "\"& "图片.jpg", FilterName:="jpg"
End Sub
也可直接在快速运行栏,输入如下代码。
1、 Alt+F11,Ctrl+G打开编辑框
2、 粘贴如下代码
3、 回车
ActiveSheet.ChartObjects("图表 1").Chart.Export ThisWorkbook.Path &"\" & "图片.jpg",FilterName:="jpg"
打开画图,按ALT+PRTSCSYERQ键,再按CTRL+V复制到画图,在画图里编辑下需要的,再另存.