vba - 使用VBA代码，如何在Excel 2003中将Excel工作表导出为图像？

Question

请建议将 Excel 工作表中的数据范围导出为 .jpeg 或 .png 或 .gif 图像的更好方法。

Answer 1

你想尝试一下我很久以前在互联网上找到并使用过的以下代码吗？

它使用 Chart 对象的 Export 函数以及 Range 对象的 CopyPicture 方法。

引用文献:

• MSDN - Export method as it applies to the Chart object.将剪贴板另存为图像

• MSDN - CopyPicture method as it applies to the Range object将范围复制为图片

  dim sSheetName as string
  dim oRangeToCopy as range
  Dim oCht As Chart
  
  sSheetName ="Sheet1" ' worksheet to work on
  set  oRangeToCopy =Range("B2:H8") ' range to be copied
  
  Worksheets(sSheetName).Range(oRangeToCopy).CopyPicture xlScreen, xlBitmap
  set oCht =charts.add
  
  with oCht
      .paste
      .Export FileName:="C:\SavedRange.jpg", Filtername:="JPG"
  end with