如何将EXCEL表格一键输出图片并且保存在你的电脑,只需一段VBA代码即可,新建模块，输入以下代码,运行即可
Sub printA4()
Dim rng As Range '定义截图范围变量
Set rng = ActiveSheet.Range("A1:E23") '设置截图范围如A1:G10单元格。
rng.CopyPicture xlPrinter, xlPicture '截图范围复制为图片，
'用with简化命令行。在sheet2中新建一个绘图框来保存复制的图片。(放在哪个sheet中没有要求)
With Sheet2.ChartObjects.Add(0, 0, rng.Width * 2, rng.Height * 2).Chart
'选中新建的绘图框，这是office2016版本新增的要求，没有这句会导致导出的图片是一片空白。
.Parent.Select
'粘贴复制后的图片
.Paste
'弹出保存文件框，以当前日期设置默认文件名（也可以省略这个），不能直接用date函数，否则文件名中可能出现符号“/”导致无法保存。
' SaveName = Application.GetSaveAsFilename(InitialFileName:=Year(Date) & Month(Date) & Day(Date) & "数据表A4", filefilter:="图片文件(*.png),*.png")
'如果文件名不为空则导出png格式图片至指定位置
' If SaveName <> "False" Then .Export SaveName, "PNG"
.Export "E:\logo.png", "png" '这是另一种保存语句
.Parent.Delete '删除该临时绘图框
End With
MsgBox "成功"
End Sub
