Excel 2013 Macro to Rotate Windows Screen (CTRL+ALT+ARROW)

[nirvehex]

Hey I'm trying to play a prank on a coworker. Can anyone help me out in creating a simple macro that flips the windows screen down or left or right? I've looked around on here and can't find any actual code that works.

Any ideas?

Thanks!

 

[nirvehex]

Nevermind...figured it out.

SendKeys "^%{DOWN}"

This flips it upside down! Such a good prank in the office!

 

[scott_n_phnx]

If you just need within Excel, then use this code:

Private Sub Workbook_Open()

SendKeys "^%{RIGHT}"

End Sub

Just place it in the ThisWorkbook module.

Or, another method is to create a .vbs script and use this:

Set WshShell = WScript.CreateObject("WScript.Shell") 
WScript.Sleep 500

WshShell.Sendkeys "^%{RIGHT}"

To create a vbs script, open Notepad (or any similar editor) and place the above code. Then save the file as filename.vbs. You may have to change the Save As File Type to All files. Once saved, it can be run by double-clicking, or, if you have access to their computer, activate it via a scheduled task. That can be fun too. Set a random time and all of a sudden their screen rotates.