Question

如何把excel里的折线图另存为图片

Answer 1

　　推荐如下几种方法：

　　方法一：

　　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"

Answer 2

打开画图,按ALT+PRTSCSYERQ键,再按CTRL+V复制到画图,在画图里编辑下需要的,再另存.