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