PPT页码自动变怎么做？如何设置自动翻页？

　　在制作PPT时，自动翻页功能可以大大提高演示的流畅性和专业性。以下是一篇关于如何设置PPT页码自动变和自动翻页的详细指南。

　　 PPT页码自动变怎么做？

　　 1. 选择合适的PPT软件

　　首先，确保你使用的PPT软件支持自动翻页功能。目前市面上常用的PPT软件有Microsoft PowerPoint、WPS演示等。

　　 2. 创建或打开PPT文件

　　在软件中创建一个新的PPT文件或打开一个已有的PPT文件。

　　 3. 设置自动翻页时间

　　以下以Microsoft PowerPoint为例，介绍如何设置自动翻页时间：

　　在PPT中，点击“幻灯片放映”选项卡。

　　在“设置幻灯片放映”组中，选择“排练计时”。

　　此时，PPT会进入排练模式，你可以逐页浏览幻灯片，并设置每页的放映时间。

　　在预览每页幻灯片时，你可以看到页码旁边的时间显示，这表示该页的放映时间。

　　设置完成后，点击“结束排练”按钮，PPT会保存你的设置。

　　 4. 设置页码显示

　　在“幻灯片放映”选项卡中，选择“自定义幻灯片放映”。

　　在弹出的对话框中，勾选“显示幻灯片编号”复选框。

　　点击“确定”按钮，页码就会显示在每页幻灯片的左下角或右下角。

　　 如何设置自动翻页？

　　 1. 使用幻灯片切换效果

　　在“幻灯片放映”选项卡中，选择“幻灯片切换”。

　　在“切换到此幻灯片”选项组中，选择你喜欢的切换效果。

　　在“换片方式”选项组中，选择“设置自动换片时间”。

　　输入你希望的自动翻页时间，然后点击“确定”。

　　 2. 使用排练计时

　　如前所述，通过“排练计时”功能设置每页幻灯片的放映时间，实现自动翻页。

　　 3. 使用宏

　　如果你熟悉VBA（Visual Basic for Applications），可以通过编写宏来实现自动翻页。以下是一个简单的宏示例：

　　```vba

　　Sub AutoSlideShow()

　　Dim sld As Slide

　　Dim i As Integer

　　i = 1

　　For Each sld In Presentations.Slides

　　sld.View.SlideShowTransition.EntryEffect = msoShow

　　sld.View.SlideShowTransition.Speed = msoFast

　　sld.View.SlideShowTransition.Duration = 1

　　sld.View.SlideShowTransition.SoundEffect = msoNone

　　sld.View.SlideShowTransition.SoundEffectEntry = msoNone

　　sld.View.SlideShowTransition.SoundEffectExit = msoNone

　　sld.View.SlideShowTransition.SoundEffectDuring = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfter = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirst = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLast = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterNext = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterPrev = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterAll = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterDoubleClick = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClick = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClick = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowHide = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterLastDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow = msoNone

　　sld.View.SlideShowTransition.SoundEffectAfterFirstDoubleClickShowHideShowShowShowShowShowShowShowShowShowShowShowShowShowShowShowShow