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

如何取消OLE的窗口提醒

本帖最后由 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

这一看就是高级的东西
页: [1]
查看完整版本: 如何取消OLE的窗口提醒