Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

Show slides 4 through 8 in the presentation

Sub settings()     With Presentations("Corporate.ppt").SlideShowSettings         .RangeType = ppShowSlideRange         .StartingSlide = 4         .EndingSlide = 8         .Run     End With End Sub