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

查看:321
本文介绍了使用VBA代码如何在Excel 2003中将excel工作表导出为图像?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

请建议使用excel工作表将数据导出的更好方式以.jpeg或.png或.gif格式导出。

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.

它使用Chart对象的导出功能使用Range对象的CopyPicture方法。

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

参考文献:

  • 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屋!

查看全文
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆