[求助]foxtable中操作excel 图片问题，请高手看看 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]foxtable中操作excel 图片问题，请高手看看

共有2699人关注过本帖树形打印复制链接主题：[求助]foxtable中操作excel 图片问题，请高手看看

文盲学电脑

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：11 积分：161 威望：0 精华：0 注册：2020/9/3 16:10:00

[求助]foxtable中操作excel 图片问题，请高手看看 发帖心情

Post By：2020/11/4 15:18:00 [只看该作者]

在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)

app.save()

app.quit()

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/4 15:21:00 [只看该作者]

文盲学电脑

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：11 积分：161 威望：0 精华：0 注册：2020/9/3 16:10:00

Post By：2020/11/4 15:23:00 [只看该作者]

找到了，加入App.DisplayAlerts=False即可

[此贴子已经被作者于2020/11/4 15:23:20编辑过]

主题：[求助]foxtable中操作excel 图片问题，请高手看看