如何在PPT中批量插入音频

racher2006

如题，现有工作需要将很多音频文件（MP3）插入不同的PPT幻灯片中，如何用VBA实现：插入->音频->PC上的音频-“选择文件”->插入. 这一个过程。百度和帮助文件看了很多，依然没有头绪，唯一查到靠边的代码如下所示，但是无法运行，也没有“喇叭”图标，请高手指点一下。

With ActivePresentation.Slides(1).Shapes(1).AnimationSettings
    .Animate = True
    .TextLevelEffect = ppAnimateByAllLevels
    .SoundEffect.ImportFromFile "c:\bass.wav"
End With

racher2006

顶一下,期待高手给些线索.

weiyingde

你这个不是插入的音频，而是给动画添加的声音效果

信天翁107

同问，请问可以用代码批量插入音频吗？

leikaiyi123

参考吧：
Private Sub InsertSong() '插入歌曲
    On Error Resume Next
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    sw = ActivePresentation.PageSetup.SlideWidth    '720
    sh = ActivePresentation.PageSetup.SlideHeight    '540  405.13
    With fd
        .Title = "插入一首歌曲"
        .Filters.Clear
        .Filters.Add "歌曲", "*.mp3;*.wav;*.wma"
        .Show
        .AllowMultiSelect = True
        If .SelectedItems.Count = 0 Then Exit Sub
    End With
    With ActiveWindow.Selection.SlideRange(1)
        '.Shapes.AddMediaObject(fd.SelectedItems(1), 680, 500, 24, 24).AnimationSettings.PlaySettings.PlayOnEntry = msoTrue
        .Shapes.AddMediaObject(fd.SelectedItems(1), sw - 40, sh - 40, 24, 24).AnimationSettings.PlaySettings.PlayOnEntry = msoTrue
        .TimeLine.MainSequence(1).Timing.TriggerType = msoAnimTriggerWithPrevious
    End With
End Sub