PPT音频自动播放结束后怎么停止？如何设置自动停止播放？
作者：佚名|分类：PPT教程|浏览：159|发布时间：2025-02-11 22:38:20
在制作PPT演示文稿时，有时我们希望音频在播放结束后能够自动停止，以便于演示的流畅进行。以下是一篇关于如何设置PPT音频自动播放结束后停止的文章，内容详细，旨在帮助您更好地掌握这一技巧。
一、PPT音频自动播放结束后停止的方法
1. 使用PowerPoint内置功能
在PowerPoint中，我们可以通过以下步骤设置音频自动播放结束后停止：
（1）打开PPT文件，找到需要设置自动播放的音频文件。
（2）右键点击音频文件，选择“编辑音频”。
（3）在弹出的“音频工具”选项卡中，点击“效果”按钮。
（4）在“效果选项”中，勾选“停止播放”复选框。
（5）点击“确定”按钮，完成设置。
2. 使用VBA宏代码
如果需要更灵活的控制音频播放，可以使用VBA宏代码来实现音频播放结束后自动停止。以下是实现该功能的VBA代码：
Sub StopAudio()
On Error Resume Next
With ActivePresentation.Slides(1).ShowWindow
.PlayAudio(1, msoPlayLoopContinuous)
Do While .IsRunning
DoEvents
Loop
End With
On Error GoTo 0
End Sub
使用方法：
（1）按下“Alt + F11”键，打开VBA编辑器。
（2）在“插入”菜单中选择“模块”，创建一个新的模块。
（3）将上述代码复制粘贴到新模块中。
（4）按下“F5”键运行宏，即可实现音频播放结束后自动停止。
二、如何设置自动停止播放
1. 设置音频播放时长
在PowerPoint中，我们可以通过设置音频播放时长来实现自动停止播放。具体操作如下：
（1）右键点击音频文件，选择“编辑音频”。
（2）在弹出的“音频工具”选项卡中，点击“效果”按钮。
（3）在“效果选项”中，设置音频播放时长。
（4）点击“确定”按钮，完成设置。
2. 设置幻灯片切换时间
在PowerPoint中，我们还可以通过设置幻灯片切换时间来实现音频播放结束后自动停止。具体操作如下：
（1）选中需要设置切换时间的幻灯片。
（2）在“动画”选项卡中，点击“切换到此幻灯片”。
（3）在“切换效果”下拉菜单中选择合适的切换效果。
（4）在“切换声音”下拉菜单中选择“无声音”。
（5）在“持续时间”框中设置幻灯片切换时间。
（6）点击“全部应用”按钮，完成设置。
三、相关问答
1. 问：音频播放结束后，如何确保幻灯片不会自动切换？
答： 在设置音频播放时长时，确保幻灯片切换时间与音频播放时长一致，这样音频播放结束后，幻灯片不会自动切换。
2. 问：如果使用VBA宏代码，如何实现音频播放结束后，自动跳转到下一张幻灯片？
答： 在VBA宏代码中，使用以下代码可以实现音频播放结束后，自动跳转到下一张幻灯片：
```vba
On Error Resume Next
With ActivePresentation.Slides(1).ShowWindow
.PlayAudio(1, msoPlayLoopContinuous)
Do While .IsRunning
DoEvents
Loop
End With
ActivePresentation.Slides(1).GoToSlide (1)
On Error GoTo 0
```
3. 问：如何设置音频在播放结束后，暂停一段时间再继续播放下一张幻灯片？
答： 在VBA宏代码中，可以使用以下代码实现音频播放结束后，暂停一段时间再继续播放下一张幻灯片：
```vba
On Error Resume Next
With ActivePresentation.Slides(1).ShowWindow
.PlayAudio(1, msoPlayLoopContinuous)
Do While .IsRunning
DoEvents
' 暂停时间，单位为秒
DoEvents (10000)
Loop
End With
ActivePresentation.Slides(1).GoToSlide (1)
On Error GoTo 0
```