对于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表示拷贝成矢量图片。
于是乎，我写了大概类似如下的代码。- Range cell = excel.Activesheet.Cells[1,1];
- cell.CopyPicture(1,2);
- Bitmap image = Clipboard.GetImage() as Bitmap;
- if(image != null)
- {
- //可以在这里为所欲为。
- }
然后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上也没见半个字的提醒。
楼主是个比较勤快的人，知道了这个，那还不赶快动手。
于是楼主写下了大概类似如下的代码：
- IntPtr hwnd = excel.Hwnd;
- try
- {
- if (OpenClipboard(hwnd))
- {
- IntPtr data = GetClipboardData(14); // CF_ENHMETAFILE 14
- if (data != IntPtr.Zero)
- {
- using (Metafile mf = new Metafile(data, true))
- {
- //这里有点多余，不过因为需要的是bitmap格式。就忍了。
- Bitmap b = new Bitmap(mf);
- return b;
- }
- }
- }
- }
- finally
- {
- CloseClipboard();
- }
- [DllImport("User32.dll")]
- [return: MarshalAs(UnmanagedType.Bool)]
- public static extern bool OpenClipboard(IntPtr hWndNewOwner);
- [DllImport("User32.dll")]
- [return: MarshalAs(UnmanagedType.Bool)]
- public static extern bool CloseClipboard();
- [DllImport("User32.dll")]
- 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)
|
|
陕公网安备：61019002000258 |
隐私政策 |
网站地图
