シングルステップでプログラムを動かして、変化を確認してください。

'Excel2013以上のバージョンでテストしてください
'Excel2013では、アプリケーションウインドウの中でブックがxlNormalサイズになることはない
'Excelブックのウインドウとアプリケーションのウインドウは一致
Private Sub Macro2()
    
    'アプリケーションウインドウを 最小、最大、元のサイズ
    Application.WindowState = xlNormal
    Application.WindowState = xlMinimized
    Application.WindowState = xlMaximized
    
    'Excel2013では、アプリケーションウインドウとほぼ同じ動き
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlMinimized
    ActiveWindow.WindowState = xlMaximized
    
    'ウインドウの全画面表示、元のサイズ
    Application.DisplayFullScreen = True
    Application.WindowState = xlNormal

End Sub

'Excel2010以下のバージョンでテストしてください
Private Sub Macro1()
    
    'アプリケーションウインドウを 最小、最大、元のサイズ
    Application.WindowState = xlNormal
    Application.WindowState = xlMinimized
    Application.WindowState = xlMaximized
    
    'ウインドウ内のブックを 最大、最小、元のサイズ
    ActiveWindow.WindowState = xlMaximized
    ActiveWindow.WindowState = xlMinimized
    ActiveWindow.WindowState = xlNormal
    
    'ウインドウの全画面表示、元のサイズ
    Application.DisplayFullScreen = True
    Application.WindowState = xlNormal

End Sub


Excel2013 と Excel2010 以下のバージョンで、同じようにアプリケーションウインドウをフローティング(xlNormal)状態にし、アプリケーションウインドウの中でブックを最大表示にしたい場合は、
ブックを最大にした後、アプリケーションをノーマル(xlNormal)状態にする

Sub Macro3()

    ActiveWindow.WindowState = xlMaximized
    Application.WindowState = xlNormal

End Sub
 

Microsoft Office ブログランキングへ