ブックの大きさと位置を決める

ActiveWindow.Height = 416.26
ActiveWindow.Width = 550.5
ActiveWindow.top = 1
ActiveWindow.Left = 215.5

ActiveWindow.Zoom = 80　　　　　'　倍率の指定


'　先にブックの大きさと位置を決めて,その数値を取得する。
Sub wind()
ActiveWindow.WindowState = xlNormal 'ウインドウが最大か最小の時は，一旦ノーマルにして、数値指定ウインドウにする。
MsgBox "takasa:" & ActiveWindow.Height & "haba:" & ActiveWindow.Width & "top:" & ActiveWindow.top & "left:" & ActiveWindow.Left

End Sub