以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]foxtable中操作excel 图片问题,请高手看看 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157993) |
-- 作者:文盲学电脑 -- 发布时间:2020/11/4 15:18:00 -- [求助]foxtable中操作excel 图片问题,请高手看看 在excel中的test.xls工作薄的sheet1工作表中已插入三张图片,分别命名为图1、图2、图3,设置其位置后,打开并查看结果,出现“在当前位置已发现名为resume.xlw的文件,您希望将文件替换掉吗?”,不明白为什么出现这情况,请高手们指点迷津。 以下是代码: Dim App As New MSExcel.Application app.visible=True Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("g:\\fox1\\test.xls") Dim sht As Msexcel.worksheet=wb.sheets("sheet1") Dim aa As object For Each aa In sht.shapes aa.left=150 output.show(aa.name) output.show(aa.left) Next app.save() app.quit() |
-- 作者:有点蓝 -- 发布时间:2020/11/4 15:21:00 -- 把test.xls发上来看看:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78 |
-- 作者:文盲学电脑 -- 发布时间:2020/11/4 15:23:00 -- 找到了 ,加入App.DisplayAlerts=False即可 [此贴子已经被作者于2020/11/4 15:23:20编辑过]
|