This example adjusts the size and position of the slide show window and then reactivates it.
Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow)
With Wn
.Height = 325
.Width = 400
.Left = 100
.Activate
End With
End Sub