以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 数据转图片 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152799) |
|
-- 作者:13968559581 -- 发布时间:2020/7/22 16:22:00 -- 数据转图片 你好,我现在想把一个表格的数据,导出来,以图片的形式保存(图片保存存一定大小,比如说20CM*10CM),这怎么操作 |
|
-- 作者:有点蓝 -- 发布时间:2020/7/22 16:28:00 -- 一个表格的数据?我理解不了怎么能够保存为图片? |
|
-- 作者:13968559581 -- 发布时间:2020/7/22 17:57:00 -- 就是这个表格的数据,现在可以导成EXCEL表格的形式嘛 但我想要转成图片,转成图片后,我可以调用这张图片,去实现签名的效果,直接在电脑上签名 |
|
-- 作者:有点蓝 -- 发布时间:2020/7/22 20:16:00 -- 可以把数据先导入execl,http://www.foxtable.com/webhelp/topics/0559.htm 然后把execl保存为图片: 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 range = ws.range("A3:D10") range.CopyPicture(Appearance:=1, Format:=2) ClipBoard.GetImage.save("d:\\aaa.jpg") |
|
-- 作者:13968559581 -- 发布时间:2020/7/29 14:03:00 -- 你好,我用你这个代码,实现效果了,但在实际使用过程中,有时候会出现提示:EXCE在使用中什么的 怎么在代码结束后把这个EXCEL关闭 正确的写法应该是怎样的 |
|
-- 作者:有点蓝 -- 发布时间:2020/7/29 14:06:00 -- Dim App As New MSExcel.Application try
catch ex As Exception msgbox(ex.message) finally App.quit End try |