I haven't been able to figure this out either.
The lines you get if you record a macro don't work for me.
Nor does something like Application.CommandBars.ExecuteMso "FocusMode" .
The best i have come up with so far is using sendkeys, which is clunky/dicey, but it does mimic the ribbon nav of Alt W O: