Question

Excel表格中的图片怎样保存到电脑中

Excel表格中的图片应该怎样保存到电脑中，请各位高手指教。

如下图，我想把图片直接转存到电脑中，除了剪切以外，还有什么办法可直接保存？

Answer 1

材料/工具：Excel2010

1、打开一个又图片的Excel文件。

2、打开之后，可以看到里面有图片，想要将这张图片导出来，然后保存。

3、点击这张图片，然后鼠标右击，在出现的菜单中点击 复制 选项。

4、然后打开电脑自带的画图

5、将刚才复制的图片粘贴到画图中。

6、然后点击画图的右上角，在出现的菜单中点击另存为选项，在另存为窗口中起个文件名、选择要保存的类型

7、然后点击保存按钮，这样就可以从Excel中导出保存图片了。

Answer 2

操作设备：戴尔电脑

操作系统：win10

操作软件：Excel2017

1、打开一个有图片的Excel文件，如下图所示：

2、打开之后，可以看到里面有图片，想要将这张图片导出来，然后保存。

3、点击这张图片，然后鼠标右击，在出现的菜单中点击 复制 选项。

4、然后打开电脑自带的画图

5、将刚才复制的图片粘贴到画图中。

6、然后点击画图的右上角，在出现的菜单中点击另存为选项，在另存为窗口中起个文件名、选择要保存的类型

7、然后点击保存按钮，这样就可以从Excel中导出保存图片了。

Answer 3

如果是单张图片保存，用下面方法：

1、选中EXCEL中的图片；
2、CTRL+C；
3、点击：开始->程序->附件->画图；
4、CTRL+V；
5、点击文件->另存为，选择要保存的路径，同时保存类型选择：JPEG（*.JPG;*.JPEG;*.JPE;*.JFIF)即可。

 

如果是批量保存图片，需用到VBA:

 Sub lqxs()

    Dim ad$, m&, mc$, shp As Shape

    Dim nm$, n&, myFolder$

    Sheet1.Activate

    n = 0

    myFolder = ThisWorkbook.Path & "\图片\"     '指定文件夹名称

    For Each shp In ActiveSheet.Shapes

        If shp.Type = 13 Then

            If Len(Dir(myFolder, vbDirectory)) = 0 Then

                MkDir myFolder

            End If

            n = n + 1

            ad = shp.TopLeftCell.Address

            m = shp.TopLeftCell.Row

            mc = Cells(m, 2).Value

            nm = mc & "-" & Format(n, "00") & ".jpg"

            shp.CopyPicture

            With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart

                .Paste

                .Export myFolder & nm, "JPG"

                .Parent.Delete

            End With

            Range(ad) = nm: shp.Delete

        End If

Next

   

Answer 4

1、选中EXCEL中的图片；
2、CTRL+C；
3、点击：开始->程序->附件->画图；
4、CTRL+V；
5、点击文件->另存为，选择要保存的路径，同时保存类型选择：JPEG（*.JPG;*.JPEG;*.JPE;*.JFIF)即可。

Answer 5

打开windows自带的画图软件：开始-程序-附件-画图，然后在excel表格里选中图片点右键复制（ctrl+C），在画图软件里点粘贴（ctrl+V），然后保存就OK了。
用QQ的截屏功能也能实现，把图片截下来后，点右键-另存为**(文件名）也OK。