如何将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