ZoomToFit Property Example
The following example sets the view in document window one to slide view, with the zoom automatically set to fit the dimensions of the window.
With Windows(1) .ViewType = ppViewSlide .View.ZoomToFit = True End With