网上找的
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