主题：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