如何把Excel中的单元格等对象保存成图片

简介:

对于Excel中的很多对象,比如单元格(Cell),图形(shape),图表(chart)等等,有时需要将它们保存成一张图片。就像截图一样。 
最近做一个Excel相关的项目,项目中遇到一个很变态的需求, 需要对Excel中的一些对象进行拍图,比如,对一个单元格设置一些颜色之后拍图,或者对一个图表,报表拍成图片。经过比较曲折的经历,终于还是完成了。拿出来分享一下。 
要做Excel,首先当然是查看Excel的com对象模型。地址在这里: 
http://msdn.microsoft.com/en-us/library/bb149081(v=office.12).aspx 
这里说明一下: 
官方的Excel2010对象参考没有找到,点进去就是死循环,点来点去就是找不到,哪位神人找到了麻烦回复告知一下。  
Excel2003的对象模型,需要下下来安装,比较麻烦,我也是安装了之后才知道的,这里推荐大家就通过上面的网址查看Excel2007的模型就可以了。    实际上按照微软的兼容惯例,Excel2010和Excel2003的差别应该不大(是吗?)。 
然后是查看Range对象的成员,期待它有没有什么现成的方法就爽了:http://msdn.microsoft.com/en-us/library/bb225606(v=office.12).aspx 
查看了一圈,也没发现类似什么 ExportImage,SaveImage之类的方法。表示沮丧,不过也是情理之中。 
绝望之中发现了一个亮点,一个方法名字叫做CopyPicture。 看了一下方法说明,是要把对象当作图片拷到剪贴板里面。    呵呵,一个比较扭曲的想法诞生了,既然能拷到剪贴板里面,我再从剪贴板里面把图片抠出来不就行了吗。  
好,就这么定了,说干就干。 
…… 
此处省略200字(怎么创建excel的com对象, 怎么取到Range对象就不说了,不知道的自己查,也可以回复提问。) 
…… 
拿到Range对象之后。调用CopyPicture方法,需要两个参数。第一个参数是XlPictureAppearance枚举,1表示按照屏幕的样子拷贝,2表示按照打印时的样子拷贝。 第二个参数是XlCopyPictureFormat枚举,2表示拷贝成位图,-4147表示拷贝成矢量图片。 
于是乎,我写了大概类似如下的代码。

 

 
  1. Range cell = excel.Activesheet.Cells[1,1];  
  2. cell.CopyPicture(1,2);  
  3. Bitmap image = Clipboard.GetImage() as Bitmap;  
  4. if(image != null) { //可以在这里为所欲为。 } 

调试,运行,一切Ok,完全没问题,提交代码(期间还做了无数额外代码,此处不提。)。(嘿嘿,这种小事能难得到楼主吗,得意的笑。) 
然后24小时过去了,话说第二天到了。 
刚一上班,楼主就兴冲冲的发邮件告诉大家:恭喜大家,excel的拍图功能完成啦,大家赶快享用(是enjoy)吧。 
大家也都很配合,纷纷发来贺电:“楼主Nb啊”之类的。 
楼主的虚荣心得到了极大的满足,表示很开心。沉浸在自我陶醉之中。。。 
不多时,同组一MM惊呼楼主的名字,“楼主,楼主,你快来看看吧,你的拍图功能真的太……”。 在最后还有两个字没说出来的时候,楼主已经飞奔到MM的身边。话说此MM那可真是。。(嗯,先不说吧),“太给力吗”,楼主很自信的补充了剩下的几个字。 MM手指屏幕,“你的拍图怎么崩掉了。”, 果然,屏幕上一个NullReferenceException嚣张的躺在屏幕中央。 楼主果断调试代码,跟踪发现,确实是拍图出了问题,上面的Clipboard.GetImage() 返回了null。 怎么会呢, 楼主又反复运行了几次,结果一样,都是返回null。 楼主表示鸭梨很大。 
不过,鸭梨归鸭梨,楼主是个不轻易服输的人,口头禅是:我就不信这个邪了。 这次也是,楼主一边说着口头禅,一边继续跟踪。 
首先当然是要看看剪贴板的数据,看拷贝成功了没, 
Clipboard.GetDataObject().GetFormats() 方法返回: 
  [0]: "EnhancedMetafile" 
    [1]: "MetaFilePict" 
    [2]: "Link" 
看样子,应该是拷出来了。然后楼主通过这几个format来get数据,发现还是不成功。  这就奇怪了。 
楼主很受打击,回到座位上继续调试。 
相同的代码,在楼主的机器上就是好好的,为什么在MM的机器上就是null呢。 
楼主在自己的机器上再次查看剪贴板数据。 
用Clipboard.GetDataObject().GetFormats() 方法返回: 
[0]: "System.Drawing.Bitmap" 
    [1]: "Bitmap" 
    [2]: "DeviceIndependentBitmap" 
    [3]: "Format17" 
    [4]: "Link" 
咦,怎么和上面的不一样呢。楼主很果断的发现,楼主的机器上安装的是Excel2010,而mm的机器上安装的是Excel2007. 原来是它们考出来的数据不一样。 
果断Google之。  于是,经过若干次失败和跳转,楼主来到这里:http://support.microsoft.com/kb/323530/en-us/ 
方才恍然大悟,这里的大概意思是说,由于.Net的一些限制,一些旧的程序(比如这里遇到的Excel2007)复制到剪贴板的数据可能不可用,需要通过本地Api来使用。 我去。。。 msdn上也没见半个字的提醒。 
楼主是个比较勤快的人,知道了这个,那还不赶快动手。 
于是楼主写下了大概类似如下的代码:

 

 
  1. IntPtr hwnd = excel.Hwnd; 
  2. try 
  3.             { 
  4.                 if (OpenClipboard(hwnd)) 
  5.                 { 
  6.                     IntPtr data = GetClipboardData(14); // CF_ENHMETAFILE      14 
  7.                     if (data != IntPtr.Zero) 
  8.                     { 
  9.                         using (Metafile mf = new Metafile(data, true)) 
  10.                         { 
  11. //这里有点多余,不过因为需要的是bitmap格式。就忍了。 
  12.                             Bitmap b = new Bitmap(mf); 
  13.                             return b; 
  14.                         } 
  15.                     } 
  16.                 } 
  17.             } 
  18.             finally 
  19.             { 
  20.                 CloseClipboard(); 
  21.             } 
  22.  
  23.  
  24.  
  25. [DllImport("User32.dll")] 
  26.         [return: MarshalAs(UnmanagedType.Bool)] 
  27.         public static extern bool OpenClipboard(IntPtr hWndNewOwner); 
  28.  
  29. [DllImport("User32.dll")] 
  30.         [return: MarshalAs(UnmanagedType.Bool)] 
  31.         public static extern bool CloseClipboard(); 
  32.  
  33. [DllImport("User32.dll")] 
  34.         public static extern IntPtr GetClipboardData(System.UInt32 uFormat); 

调试,运行,成功。呵呵,又是得意的笑。提交代码(期间省略若干额外代码)。 
楼主又一次兴冲冲的发邮件给大家:excel的拍图可以用啦,大家快来享用吧。 
然后,大家很配合纷纷发来贺电,然后。。。。 
然后。。。。 
然后什么,然后没了,很抱歉让大家失望了,这次没出问题。搞定。得意的笑。 
总结一下吧: 
1. 第一点要注意的是,Excel2007和Excel2010的拷贝数据格式不一样,要特别注意。 
2. 很显然,excel里面凡是带有CopyPIcture方法的对象,都可以这样拍图。 粗略的看了一下,很多对象 都有这个方法,Range,Shape,Chart等等。 
3. 另外,对于Chart对象,它还有一个Export方法,可以直接导出成图片。 
4. 辛勤的楼主把上面的方法稍稍包装了一个Win32ClipboardHelper, 使用其中的GetImage传入excel的hwnd,就可以从剪贴板里面取出图片了。  上传到附件中,供大家享用。 
5. 最后,友情提醒,由于某些原因,上文中出现的代码都是示意代码,与真实项目无关,也不保证上面的代码能编译通过,大家领会精神,不可较真。

 


本文转自 powertoolsteam 51CTO博客,原文链接:http://blog.51cto.com/powertoolsteam/484627,如需转载请自行联系原作者

相关文章
excel中同一单元格内容分隔到不同的单元格
excel中同一单元格内容分隔到不同的单元格
excel中同一单元格内容分隔到不同的单元格
|
4月前
|
BI 索引 Python
python报表自动化系列 - 译码:与Excel单元格索引对应的十进制数坐标
python报表自动化系列 - 译码:与Excel单元格索引对应的十进制数坐标
17 1
iframe 在线预览pdf、word、excel、ppt、txt、图片、视频
iframe 在线预览pdf、word、excel、ppt、txt、图片、视频
|
4月前
|
BI 索引 Python
python报表自动化系列 - Excel单元格(Cell)索引范围对应的所有单元格
python报表自动化系列 - Excel单元格(Cell)索引范围对应的所有单元格
26 0
|
1月前
|
JavaScript
【sgExcelGrid】自定义组件:简单模拟Excel表格拖拽、选中单元格、横行、纵列、拖拽圈选等操作
【sgExcelGrid】自定义组件:简单模拟Excel表格拖拽、选中单元格、横行、纵列、拖拽圈选等操作
【sgExcelGrid】自定义组件:简单模拟Excel表格拖拽、选中单元格、横行、纵列、拖拽圈选等操作
|
2月前
|
存储 SQL C#
C#实现Excel合并单元格数据导入数据集
C#实现Excel合并单元格数据导入数据集
|
2月前
excel 图片地址转成图片
excel 图片地址转成图片
60 1
|
3月前
|
算法 前端开发
Excel 表中某个范围内的单元格
Excel 表中某个范围内的单元格
19 0
excel中组合不同单元格的文字并实现单元格内换行
excel中组合不同单元格的文字并实现单元格内换行