WindowResize und Esc-Taste
Jörg
ich habe folgendes Problem und hoffe, jemand kann mir dabei helfen: Ich möchte beim Verändern der Größe des Arbeitsmappenfensters mittels Workbook_WindowResize auch das Anwendungsfenster in der Größe verändern. Wenn also das Mappenfenster minimiert wird, soll auch Excel minimiert werden. Gleichzeitig wird das Arb.-mappenfenster innerhalb des Excelfensters wieder maximiert dargestellt. Der folgende Code löst das auch ganz gut. Allerdings habe ich keine Möglichkeit gefunden, die Unterbrechnung mittels Esc zu unterbinden. Die Zeile "Application.EnableCancelKey = xlDisabled" hat keine Auswirkung. Weiß jemand Rat? Vielen Dank schon mal vorab. Hier der Code:
Private Sub Workbook_WindowResize(ByVal Wn As Excel.Window)
Application.EnableCancelKey = xlDisabled
If Wn.WindowState xlMaximized Then
Select Case Wn.WindowState
Case xlNormal
ActiveWindow.WindowState = xlMaximized
Application.WindowState = xlNormal
Case Else
Application.WindowState = xlMinimized
ActiveWindow.WindowState = xlMaximized
End Select
End If
End Sub