更改了图纸，但未更改

classof · 发表于 2022-7-6 22:59:06

你好
我希望命令“缩放扩展”到所有打开的图纸。
所以我使用“windowstate=acmax”来更改活动图形。
我的问题是不要把注意力转移到另一个绘图上，在“应用程序.文档（i）.WindowsState=acMax”上

子测试（）
Dim i为整数
Dim计数为整数

计数=应用程序。文件。计数
i=0

做
应用文件（一）。窗口状态=acMax
应用缩放范围
i=i+1
循环直到i=计数

末端接头

请帮帮我。
非常感谢。

classof · 发表于 2022-7-7 00:51:02

我解决了我的问题。。

放
应用文件（一）。使活动

之后
应用文件（一）。窗口状态=acMax

谢谢你。

更改了图纸，但未更改

发表回复

精选推荐