主题：excel报表保存图片的问题

使用甜版的这个代码发现一个问题 就是报表的右边没有数据的区域空白很多是怎么回事 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange 这个代码的意思应该是只取有数据的区域吧
rg.copy
ClipBoard.GetImage.save("d:\abc.jpg")
app.quit

此主题相关图片如下：tim截图20171031081716.png

你excel模板肯定有问题，建议你新建一个sheet重新做一下。

或者是把右边多余的列删除一下看看。

1、做了100列300行测试，生成的图片高度、宽度，是按你excel里面是1：1的比例生成的，没什么问题。

2、把图片放到专业报表中，那自然也是没问题。

3、具体做例子测试。

代码我测试没问题。

请把图片发上来测试。

或者你试试 http://www.foxtable.com/webhelp/scr/1232.htm