如何取消OLE的窗口提醒

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

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

31yqc21uvlr.jpg

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

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

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

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

DisplayOLEScale = False
已解决，这行代码可以关闭ole缩放的窗口
不懂得话不要乱说，容易误导别人