使用VBA代码，如何在Excel 2003中将Excel工作表导出为图像? [英] Using VBA code, how to export Excel worksheets as image in Excel 2003?

问题描述

请提出一种更好的方法，将excel工作表中的数据范围导出为.jpeg或.png或.gif中的图像.

解决方案

您想尝试以下我在互联网上发现的以下代码吗?

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

参考:

• MSDN-导出方法应用于图表对象.将剪贴板另存为图像

• MSDN-CopyPicture方法因为它适用于Range对象，将范围复制为图片

  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
  

Please suggest the better way of exporting range of data from excel worksheets as image either in .jpeg or .png or in .gif.

解决方案

do you want to try the below code I found on the internet somewhere many moons ago and used.

It uses the Export function of the Chart object along with the CopyPicture method of the Range object.

References:

• MSDN - Export method as it applies to the Chart object. to save the clipboard as an Image

• MSDN - CopyPicture method as it applies to the Range object to copy the range as a picture

  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
  

这篇关于使用VBA代码，如何在Excel 2003中将Excel工作表导出为图像?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！