如何取消OLE的窗口提醒

forverd · 发表于 2021-7-6 21:53:17

本帖最后由 forverd 于 2021-7-6 21:55 编辑

······
myfile.Sheets(1).Range("A1").CurrentRegion.Copy
······
Activedoc.SendCommand "_pasteclip" & vbCr & "0,0" & vbCr

再执行上述代码时cad中会出现

这个窗口，请问如何取消这个窗口？

bluelover · 发表于 2021-7-7 14:32:05

你粘贴进去的是Excel OLE对象，用sendcommand命令基本上没办法取消跳出的对话框。

forverd · 发表于 2021-7-7 15:50:42

bluelover 发表于 2021-7-7 14:32
你粘贴进去的是Excel OLE对象，用sendcommand命令基本上没办法取消跳出的对话框。

DisplayOLEScale = False

已解决，这行代码可以关闭ole缩放的窗口

不懂得话不要乱说，容易误导别人

zedc_ly · 发表于 2022-8-5 07:59:22

forverd 发表于 2021-7-7 15:50
DisplayOLEScale = False

已解决，这行代码可以关闭ole缩放的窗口

此属性在applicaiton.preferences.system下

cq4920 · 发表于 2022-11-9 00:48:45

这一看就是高级的东西

账号		自动登录	找回密码
密码			注册

如何取消OLE的窗口提醒

本帖子中包含更多资源