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.