尝试在程序开始时检查并设置窗口缩放级别。仅当窗口缩放级别设置为 200% 时,该过程才会启动。
试图说:
- 检查窗口缩放级别
- 如果当前设置为 200,则启动
- 如果不是,请使用 MsgBox 通知用户并提供两个选项:
- 确定 = 将缩放级别更改为 200 并开始
- 取消 = 不更改并退出
如果当前级别为“正确”,则到目前为止的代码才会开始。
如何构建它,以便它在更改缩放级别后也启动?
Sub AddChart()
'...
If Not ActiveWindow.Zoom = 200 Then
MsgBox "Set Window Zoom to: 200%", vbOKCancel
Else
ActiveWindow.Zoom = 200
Set ws = ActiveSheet
With ws
'...
End With
End If
End Sub