Bootstrap

PPT演示设置:插入音频&同步切换&播放时长计算

一、 插入音频及音频设置

1.插入音频:点击菜单栏插入-音频-选择PC上的音频(已存在的音频)或者录制音频(现场录制)
在这里插入图片描述
2. 点击PPT中音频文件喇叭图标-菜单栏找到播放菜单
开始设置为自动
② 勾选放映时隐藏
③ 其它:如果本音频只应用于此页PPT则不要勾选跨幻灯片播放(推荐!)(否则在播放过程中意外导致中断,则只能从头播放,并且当音频内容效果不佳时,分页音频调整起来更加方便)
在这里插入图片描述

二、设置页面切换和音频同步

点击菜单栏切换-效果选择(默认:声音设置为无声音-持续时长为自动)-在换片方式中勾选点击鼠标时设置自动换片时间,时长设置为音频时长(鼠标放到音频进度条最后会显示时长)
在这里插入图片描述

三、播放时长计算

1.手工计算
在切换选项中将每一页的自动换片时间相加。当幻灯片数量较多时,计算起来比较费时间。

2.快速计算
①添加宏:按下 Alt+F11 打开 VBA 编辑器。在VBA 编辑器的菜单栏点击 插入 菜单,选择 模块。在模块窗口中输入代码,然后关闭 VBA 编辑器。
在这里插入图片描述
代码如下:

Sub ElapsedTime()
    Dim osld As Slide
    Dim sngTime As Single
    
    ' 遍历所有幻灯片
    For Each osld In ActivePresentation.Slides
        If Not osld.SlideShowTransition.Hidden Then
            sngTime = sngTime + osld.SlideShowTransition.AdvanceTime
        End If
    Next osld
    
    ' 显示总时长
    MsgBox "Total time = " & Int(sngTime / 60) & " mins, " & (sngTime Mod 60) & " seconds."
End Sub

②运行宏:按下 “Alt+F8” 打开 “宏” 对话框,选择相应宏,点击 “运行”,即可弹出显示总时间的消息框。
在这里插入图片描述

;