Application VisualBasic Script

Sub windowState()
    Application.WindowState = ppWindowMaximized
    Windows.Arrange ArrangeStyle:=ppArrangeCascade
End Sub