找回密码
 立即注册

QQ登录

只需一步,快速开始

neil

论坛元老

10

主题

230

帖子

6960

积分

论坛元老

积分
6960

活字格认证

neil
论坛元老   /  发表于:2011-1-22 17:07  /   查看:8688  /  回复:3
对于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)
  5. {
  6. //可以在这里为所欲为。
  7. }
复制代码
调试,运行,一切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. [DllImport("User32.dll")]
  23.         [return: MarshalAs(UnmanagedType.Bool)]
  24.         public static extern bool OpenClipboard(IntPtr hWndNewOwner);

  25. [DllImport("User32.dll")]
  26.         [return: MarshalAs(UnmanagedType.Bool)]
  27.         public static extern bool CloseClipboard();

  28.     [DllImport("User32.dll")]
  29.         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. 最后,友情提醒,由于某些原因,上文中出现的代码都是示意代码,与真实项目无关,也不保证上面的代码能编译通过,大家领会精神,不可较真。
Win32ClipboardHelper.zip (1.43 KB, 下载次数: 1434)

3 个回复

倒序浏览
Arthas
葡萄城公司职员   /  发表于:2011-1-22 23:26:00
沙发
>>话说此MM那可真是。。(嗯,先不说吧)

话说如果未婚女性才可以叫MM的话, 那么MultiRow应该只有一个MM了。。。
即使已婚的也可以算MM, 根据lz的描述, 大家也都懂了。。。

唉, 我好让楼主伤心啊, 好好的技术帖, 一点技术相关的东西都不给回复。
扯淡第一高手
回复 使用道具 举报
gerry
论坛元老   /  发表于:2011-1-24 12:17:00
板凳

每次被此MM呼唤的时候我总是表示鸭梨很大
回复 使用道具 举报
neil
论坛元老   /  发表于:2011-1-26 09:02:00
地板

回复 2# Arthas 的帖子

藏这么深都被你发现了。好吧,你伤我的心了。
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部