当前位置：首页 > article >正文

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

article 2025/2/1 8:53:33

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” 打开 “宏” 对话框，选择相应宏，点击 “运行”，即可弹出显示总时间的消息框。
在这里插入图片描述