Sub myWindowState()

    'ウインドウ操作

    

    Application.ScreenUpdating = False

     

    If Application.Version < 15 Then

        ActiveWindow.WindowState = xlMaximized

    End If

    

    Application.WindowState = xlNormal

    If Application.Left < 165 Then Application.Left = 165

End Sub


Application.Version で、15 は Excel 2013

各バージョンによる数値は、
Msgbox Application.Version　するか、
イミディエイトウインドウで、?Application.Version　して調べてください。

2013 からは、ブックごとにWindowが開くので、ActiveWindow.WindowState = xlMaximized　にしなくても、Windowの中で最大サイズになる。

2010 までは、ActiveWindow.WindowState = xlMaximized　にしてから、
Application.WindowState = xlNormal　にしないと、Window の中で最大にならず、ブックが浮いた状態になる。

Application.Left < 165 Then Application.Left = 165
は、ブックを起動した時の、Window の位置。ユーザーフォームを左に配置する為に、Window を少し右にずらしている。


 　↓　facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ