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