江苏龙网

  1. 主页 > 生活百科 > >

有图片的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 代码一键导出并重命名 。
        还有的方法，大家在评论区留言交流~


        推荐阅读


        上一篇：朋友之间的感情变了?朋友之间的友谊变了_1

        下一篇：有关梅的诗句 古诗词?有关梅的诗句和赏析