正文

如何让PPT演示结束时自动关闭背景音乐？

/0 浏览量
1115

在制作PPT演示时，添加背景音乐可以增加演示的趣味性和吸引力。然而，有时候我们希望演示结束后音乐能够自动停止，以免给听众带来不便。以下是一些方法，可以帮助你实现PPT演示结束时自动关闭背景音乐。

方法一：使用PowerPoint内置功能

  1. 添加背景音乐：

    • 打开PowerPoint，点击“插入”选项卡。
    • 在“媒体”组中，选择“音频”。
    • 选择你想要添加的音乐文件，点击“插入”。

  2. 设置自动播放：

    • 在音频播放区域，点击右键，选择“播放”。
    • 在下拉菜单中选择“在演示时自动播放”。

  3. 设置自动停止：

    • 同样在音频播放区域，点击右键，选择“效果选项”。
    • 在“开始播放”选项卡中，选择“在演示开始时”。
    • 在“停止播放”选项卡中，选择“在演示结束时”。

方法二：使用VBA宏

如果你对VBA宏比较熟悉，可以通过编写一个简单的宏来自动关闭背景音乐。

  1. 打开VBA编辑器：

    • 按下Alt + F11键打开VBA编辑器。

  2. 插入新模块：

    • 在VBA编辑器中，右键点击“VBAProject (你的演示文稿名称)”。
    • 选择“插入” > “模块”。

  3. 编写宏代码： “`vba Private Sub SlideShowEnd() Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1) Application.ActiveWindow.View.Slide.Show Application.Wait (Now + TimeValue(“00:00:05”)) Application.ActiveWindow.View.GotoSlide (1)

-- 展开阅读全文 --