Question

我有以下代码来获取Excel工作簿的全屏视图。但是当我最小化工作簿和最大化时，全屏功能会自动禁用。我需要在这个工作簿的所有条件下全屏。请建议。

Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Enabled = False
'Disable the Esc key.
Application.OnKey "{ESC}", ""

Answer 1

试试这个。

Private Sub Workbook_Open()
'this sub is automatically called on opening the workbook

Application.WindowState = xlMaximized
'the active window is expanded to the biggest size available 
End Sub

Answer 2

最适合我的解决方案：

在工作簿中->事件Windows调整大小在这种情况下，不必禁用ESC键

Private Sub Workbook_WindowResize(ByVal Wn As Window)
   Application.DisplayFullScreen = True
End Sub

最小化和最大化时，excel全屏禁用

2 个答案: