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

如何取消OLE的窗口提醒

······
myfile.Sheets(1).Range("A1").CurrentRegion.Copy
······
Activedoc.SendCommand "_pasteclip" & vbCr & "0,0" & vbCr
再执行上述代码时cad中会出现


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

bluelover 发表于 2021-7-7 14:32:00

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

forverd 发表于 2021-7-7 15:50:00


DisplayOLEScale = False
已解决，这行代码可以关闭ole缩放的窗口
不懂得话不要乱说，容易误导别人
页: [1]
查看完整版本: 如何取消OLE的窗口提醒