• 从今天开始学习Python了,昨天晚上我创作了我的第一个python程序.我将记录我的学习之路,将我学习的内容分享在这里,

  • 其实我做网站没有其他特别的意思,就是爱好,也不想写什么东西进去,但就是想留下,不想让网站丢掉,这是什么鬼,从现在开始我就记录一些技术上的东西,方便自己用了来取

  • 由于许多工作原因,没有更多的时间监控网站文件上传这块,网站现在停止论坛功能,给网友和会员带来不便敬请谅解!

  • 网站域名备案成功!

  • 直到现在网站所有数据恢复正常!

  • 网站域名已经更换成现在的,原来的yxlz8.com将停止使用!

  • 网站备案中.....

  • 本站入住阿里云服务器,催动于阿里云oss云储存,打开本站任何一个页面可以感觉到打开的速度!

  • 微信终于可以扫码登陆了点击这里体验

  • 最近有小伙伴说付费音乐无法下载,希望弄一个免费下载付费音乐的工具,经过这段时间的辛苦终于个大家见面了,可以输入歌曲名称或者地址即可在线播放或者下载!直达飞机票

将EXCEL表格一键输出图片

EXCEL 海峰博客 2个月前 (09-05) 162次浏览 已收录 0个评论 扫描二维码

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

海峰博客 , 版权所有丨如未注明 , 均为原创丨本网站采用BY-NC-SA协议进行授权
转载请注明原文链接:将EXCEL表格一键输出图片
喜欢 (27)
[]
分享 (0)

您必须 登录 才能发表评论!