请问如何让一个正常的PPT文件只播放第一张

40381438

请问如何让一个正常的PPT文件只播放第一张，就好像出了问题似的，亟盼高手指教！使用VBA能达到这样的效果也可以。

75lu

以下示例的第一部分设置活动演示文稿中的所有幻灯片在五秒后自动换片。第二部分设置幻灯片放映从第二张开始到第四张结束，使用在第一部分中设置的计时切换幻灯片，并且连续循环放映幻灯片，直到用户按下 Esc。最后，该示例运行幻灯片放映。
Private Sub CommandButton1_Click()
    For Each s In ActivePresentation.Slides
        With s.SlideShowTransition
            .AdvanceOnTime = True
            .AdvanceTime = 5
        End With
    Next
    With ActivePresentation.SlideShowSettings
        .RangeType = ppShowSlideRange
        .StartingSlide = 2
        .EndingSlide = 4
        .AdvanceMode = ppSlideShowUseSlideTimings
        .LoopUntilStopped = True
        .Run
    End With
End Sub
试试这段代码