谁说Excel里的图片不能保存？我强烈推荐这3种神级技巧
秋叶Excel
Posted on
点击蓝字【秋叶 Excel】👆
发送【交流】
立即进秋叶 Excel 读者快乐交流群！
本文作者：竺兰
本文编辑：竺兰
大家好，我是和 Excel「相爱相杀」的小兰~
前两天，自诩「精通」Excel 的我，狠狠在上面栽了一个跟头。
发生了什么事？
作为一名编辑，我经常需要和图片打交道。
但是，一旦这些图片被 Excel「困」住了呢？
通俗点来讲，其实就是把动图塞到了 Excel 里，但是却没办法「另存为图片」。。
（当时也就是随手一放，真没想到以后还有用到的机会……大家千万不要学我，资料什么的还是要及时归纳整理好。）
问题是怎么解决的？
在某度上花样搜索了十几分钟无果之后，我突然想起了以前写过一篇文章，里面提到了【批量导出图片】的方法，虽然导出的不是动图，但是！可以一试！
Sub main()Dim shp As ShapeFor Each shp In ActiveSheet.Shapesshp.CopyWith ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart.Parent.Select.Paste.Export "D:\" & shp.TopLeftCell.Offset(0, -1) & ".png".Parent.DeleteEnd WithNext shpEnd Sub▲ 左右滑动查看
D:\
Offset(0, -1)
.png