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