如何让插入的音频在第一张ppt自动播放三遍

zzpsx

如何让插入的音频在第一张ppt自动播放三遍.zip (363.33 KB, 下载次数: 3)

2025-3-18 07:07 上传

点击文件名下载附件

Enocheasty

帮你问了AI，然后复制了答案过来。

在 PowerPoint 中，可以通过以下步骤让插入的音频在第一张 PPT 自动播放三遍：
插入音频：打开 PowerPoint 演示文稿，转到第一张幻灯片，点击 “插入” 选项卡，在 “媒体” 区域点击 “音频” 按钮，选择 “音频文件”，在弹出的对话框中找到并选择您的音频文件，然后点击 “插入”。
设置自动播放：插入音频后，点击出现的音频图标，在菜单栏上点击 “播放” 选项卡，在 “音频选项” 组中，将 “开始” 设置为 “自动”。
设置播放次数：选中音频图标，点击 “动画” 选项卡，在 “高级动画” 组中点击 “动画窗格” 按钮，在右侧弹出的动画窗格中找到该音频对应的动画效果，右键单击并选择 “计时”，在弹出的 “计时” 对话框中，将 “重复” 设置为 “3 次”，点击 “确定” 即可。

zzpsx

能否用vba实现？

lss001

zzpsx 发表于 2025-3-18 12:17
能否用vba实现？

Sub 动画播放次数设置()
    Dim shp As Shape
   
    With Application.ActivePresentation.Slides(1)
        For Each shp In .Shapes
            If shp.Type = 16 Then 'msoMedia = 16//形状类型：音频
               'msoAnimEffectMediaPlay = 83//动画类型：音频播放
                With .TimeLine.MainSequence.AddEffect(shp, 83)
                    'msoAnimTriggerAfterPrevious = 3 '上一动画之后
                    .Timing.TriggerType = 3 '动作类型
                    .Timing.RepeatCount = 3 '重复次数
                End With
            End If
        Next
    End With
   
End Sub

Enocheasty

zzpsx 发表于 2025-3-18 12:17
能否用vba实现？

我在AI中加了一句，将上面说的操作写成VBA

1. Sub PlayAudioThreeTimes()
   
2.     Dim sld As Slide
   
3.     Dim shp As Shape
   
4.     Dim eff As Effect
   
5.    
   
6.     ' 设置为第一张幻灯片
   
7.     Set sld = ActivePresentation.Slides(1)
   
8.    
   
9.     ' 遍历幻灯片中的所有形状
   
10.     For Each shp In sld.Shapes
    
11.         ' 检查形状是否为音频对象
    
12.         If shp.Type = msoMedia Then
    
13.             If shp.MediaType = ppMediaTypeSound Then
    
14.                 ' 设置音频自动播放
    
15.                 Set eff = sld.TimeLine.MainSequence.AddEffect(shp, msoAnimEffectMediaPlay, trigger:=msoAnimTriggerWithPrevious)
    
16.                 ' 设置音频播放次数为3次
    
17.                 eff.Timing.RepeatCount = 3
    
18.             End If
    
19.         End If
    
20.     Next shp
    
21. End Sub
    
22.    

复制代码