批量修改动画声音

chenwelse

在PPT动画里面设置了声音（出现-效果-声音），现在我要修改成另外一个声音，但数量太多，而且涉及动画次序，不能用动画刷。

感觉保存后，这个声音就嵌在PPT文件里面了。有办法批量修改这个声音吗？

chenwelse

哪位大神指点一下？
想试用vBA，结果录制宏都没有

守候_CJ

将形状出现音效设置为与所选第一个形状的进入动画音效相同
一、使用方法
1.选中任何一页的某个形状，设置正确的音效

（设置完成依然保持对形状的选择状态，因为其他形状音效会以此图形为基准）
2.在PPT宏编辑器中插入模块，运行下列代码

（粘贴代码，运行）

3.完成

（设置完成）

（查看结果，完全正确）
二、代码

1. <div style="text-align: left;">Sub 将形状出现音效设置为与所选第一个形状相同()</div><div style="text-align: left;">    Dim prs As Presentation</div><div style="text-align: left;">    Dim sld As Slide</div><div style="text-align: left;">    Dim sp As Shape</div><div style="text-align: left;">    Dim sel As Selection</div><div style="text-align: left;">    Dim i As Long</div><div style="text-align: left;">   </div><div style="text-align: left;">    '17种系统音效</div><div style="text-align: left;">'    explode.wav</div><div style="text-align: left;">'    suction.wav</div><div style="text-align: left;">'    hammer.wav</div><div style="text-align: left;">'    type.wav</div><div style="text-align: left;">'    Click.wav</div><div style="text-align: left;">'    voltage.wav</div><div style="text-align: left;">'    chimes.wav</div><div style="text-align: left;">'    wind.wav</div><div style="text-align: left;">'    applause.wav</div><div style="text-align: left;">'    laser.wav</div><div style="text-align: left;">'    whoosh.wav</div><div style="text-align: left;">'    arrow.wav</div><div style="text-align: left;">'    cashreg.wav</div><div style="text-align: left;">'    push.wav</div><div style="text-align: left;">'    coin.wav</div><div style="text-align: left;">'    bomb.wav</div><div style="text-align: left;">'    camera.wav</div><div style="text-align: left;">
   
2. </div><div style="text-align: left;">    Set prs = ActivePresentation</div><div style="text-align: left;">    Set sel = prs.Windows(1).Selection</div><div style="text-align: left;">   </div><div style="text-align: left;">    For Each sld In prs.Slides</div><div style="text-align: left;">        For Each sp In sld.Shapes</div><div style="text-align: left;">            With sp.AnimationSettings</div><div style="text-align: left;">                If .EntryEffect = ppEffectCut Then</div><div style="text-align: left;">                    .SoundEffect.ImportFromFile sel.ShapeRange.Item(1).AnimationSettings.SoundEffect.Name</div><div style="text-align: left;">                    </div><div style="text-align: left;">                    '如果自己写音效，则用下面这句</div><div style="text-align: left;">                    '默认音效参看上面注释，如果自定义音效，请填写完整路径，只支持.wav格式</div><div style="text-align: left;">                    '.SoundEffect.ImportFromFile "wind.wav"</div><div style="text-align: left;">                    </div><div style="text-align: left;">                    i = i + 1</div><div style="text-align: left;">                End If</div><div style="text-align: left;">            End With</div><div style="text-align: left;">        Next</div><div style="text-align: left;">    Next</div><div style="text-align: left;">   </div><div style="text-align: left;">    Set prs = Nothing</div><div style="text-align: left;">    MsgBox Format(i, "完成，共设置了0个形状！")</div><div style="text-align: left;">End Sub</div>

复制代码