工具:Win10电脑系统和2010版excel
1、先打开excel,以下图为例,点击图片然后按Ctrl+C键复制图片;
2、点击电脑左下角的开始菜单,然后找到”Windows附件“并点击下拉箭头,在出来的选项里面选择”画图“;
3、打开画图后,按Ctrl+V键粘贴图片;
4、最后点击文件里面的”保存“,将图片保存到桌面即可。
excel中图片导出可采用如下几种方式:
1、粘贴其他软件中另存
复制后直接粘贴在某些图片浏览或编辑软件中,另存即可。这些软件包括Photoshop, ACDsee,PPT等均支持该操作。
优点:操作较为简便。
缺点:需要借助其他软件,并且不能批量处理。
2、另存网页后定位图片
将ppt另存为网页(格式为*.html),在网页的文件夹中(files)寻找相关图片。
优点:可批量处理,效率较高。
缺点:所有对象(包括编辑过程的不同级别对象)均在同一文件夹中,需要进行筛选。
3、更改扩展名(rar)后定位图片
将文件的扩展名直接更改为rar,而后点击该压缩文件(左键点击,并非解压缩),压缩列表>XL>Media,所有图片均在该位置。
优缺点:与方法2类似。
4、宏操作
运用如下代码操作。
优点:需要使用VBA操作,较为繁琐。
缺点:可批量操作,并且对图片名、扩展名和存放路径等可进行灵活设定。
Sub Import_Pic()
Dim my_Chart As ChartObject
Dim my_Sheet As Worksheet
Set my_Sheet = Worksheets(1)
Dim my_Shape As Shape
Dim pic_Num As Single
pic_Num = 1
For Each my_Shape In Worksheets(1).Shapes
Set my_Chart = my_Sheet.ChartObjects.Add(0, 0, my_Shape.Width, my_Shape.Height)
my_Shape.Copy
my_Chart.Chart.Paste
my_Chart.Chart.Export ThisWorkbook.Path & "\" & pic_Num & ".jpg", filtername:="jpg"
pic_Num = pic_Num + 1
my_Chart.Delete
Next
End Sub
这个问题我以前也困扰很久,不过解决了。你点击图片后复制。然后打开一个PPT文件,在PPT里粘贴,然后点住图片按右键,另存为图片就可以啦,简单吧
另存成网页格式,然后在保存位置找一个与文档名称差不多的文件夹,里面就是所有图片。png格式的是原尺寸的。
点右键 复制 打开画图软件 点编辑 点粘贴 点保存 保存路径选择桌面 起文件名 点保存 就ok了