VBA，把excel单元格复制成图片

最新推荐文章于 2025-01-06 14:24:35 发布

转载最新推荐文章于 2025-01-06 14:24:35 发布 · 1.1w 阅读

文章标签：

#excel #vba #图片

vba 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一段VBA代码，用于将Excel中指定范围的数据导出为图片格式。用户只需简单修改代码中的工作表名称和单元格范围即可实现特定区域的快速截图，并保存为指定路径下的图片文件。

部署运行你感兴趣的模型镜像

网上找的

 Sub 导出为图片()
          Sheets("日报").Range("A1:Q80").Select
          Selection.Copy
           Selection.CopyPicture    '选区复制为图片
           With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart  '通过在当前工作表添加相同大小的图表的方式转存成图片
               .Paste  '粘贴复制后的图片
               .Export "C:\文件\3.JPG", "JPG"    '导出到当前工作表目录下,以当前区域首行单元格的值命名图片
               .Parent.Delete  '删除该图表
           End With
     End Sub