有图片的excel无法保存?为什么excel的图片无法保存( 二 )


有图片的excel无法保存?为什么excel的图片无法保存

文章插图
注意:图片必须放在和名称对应的单元格里面,并且不能超出单元格范围太多,否则后续操作会出错 。
操作步骤:
把后缀是.xlsx 的文件另存为.xlsm 。
有图片的excel无法保存?为什么excel的图片无法保存

文章插图
将鼠标挪到「工作表标签」上,按右键,选择【代码】,或者按【Alt+F11】打开 VBA 编辑器 。
有图片的excel无法保存?为什么excel的图片无法保存

文章插图
把下面这串代码粘贴进去,点击【运行子过程/用户窗体(F5)】 。
图片导出成功!
有图片的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:\
    表示图片保存在电脑 D 盘,路径可替换 。
    有图片的excel无法保存?为什么excel的图片无法保存

    文章插图
      Offset(0, -1)
      表示名称列在图片左边 1 列,可修改 。
      有图片的excel无法保存?为什么excel的图片无法保存

      文章插图
        .png
        表示导出的图片是 png 格式,可以根据自己的需求替换 。
        有图片的excel无法保存?为什么excel的图片无法保存

        文章插图
        有图片的excel无法保存?为什么excel的图片无法保存

        文章插图
        写在最后
        最后,还是老规矩,来总结一下:
        Excel、PPT、Word 里面的动图都可以利用改扩展名/解压的方法批量导出 。需要导出的动图数量较少时,Word 可以直接按鼠标右键-【另存为图片】 。
        Excel 没有【另存为图片】的选项,需要导出图片时,有 3 种方法 。
        ① 改扩展名为 zip/rar-解压 。
        ② 图片数量少,复制到 PPT/Word/聊天软件( 、QQ等)再保存 。
        ③ 用 VBA 代码一键导出并重命名 。
        还有的方法,大家在评论区留言交流~
        【有图片的excel无法保存?为什么excel的图片无法保存】


        推荐阅读