For the first try:

Sub from3()
ActiveWindow.View.GotoSlide 3
Application.CommandBars.ExecuteMso ("SlideShowFromCurrent")
End Sub

I don't think you can switch modes without closing the show, even if you link to another presenation it inherits the mode.