在 Powerpoint 中插入并自动播放音频文件？答案

【问题标题】：Insert and automatically play audio files in Powerpoint?在 Powerpoint 中插入并自动播放音频文件？
【发布时间】：2019-06-09 16:22:52
【问题描述】：

我有这个代码（感谢 Shyam Pillai）：

Sub SampleTest()
Call InsertAudio("G:\Music\track1.mp3", ActivePresentation.Slides(1))
Call InsertAudio("G:\Music\track2.mp3", ActivePresentation.Slides(2))

End Sub

Sub InsertAudio(Track As String, oSlide As Slide)
Dim oShp As Shape
Dim oEffect As Effect

'Add the audio shape
Set oShp = oSlide.Shapes.AddMediaObject2(Track, True, False, 10, 10)

'Set audio to play automatically
Set oEffect = oSlide.TimeLine.MainSequence.AddEffect(oShp, msoAnimEffectMediaPlay, , msoAnimTriggerWithPrevious)
oEffect.MoveTo 1

'Hide during slide show
With oEffect
    .EffectInformation.PlaySettings.HideWhileNotPlaying = True
End With

End Sub

代码有效，但我想知道我可以添加什么，所以当我运行代码时，它会打开一个对话框，我可以在其中插入文件中的音频列表，然后将其一一插入，幻灯片通过代码中的设置滑动（自动，在显示期间隐藏）。

提前感谢您的帮助

【问题讨论】：

欢迎来到 SO。当您说“它不起作用”时，请更具体。会发生什么，你尝试过什么？以下是有关如何在此论坛上提问的一些指南：stackoverflow.com/help/mcve
如果路径正确并且有适当的文件要处理，此代码在 2016 年对我来说工作得很好。确保您确实有一个名为 G:\Music\track1.mp3 的文件，并且它包含所有编解码器。
感谢您的回答。它确实有效，因此我将使用我想要使用代码实现的内容来更新问题，该代码将获取一个对话框，我可以在其中输入音频列表，然后将其插入到演示文稿中，逐张幻灯片，设置在代码
假设是 Windows 版本的 PowerPoint，请查找 FileDialog 的 VBA 帮助。您可以使用 FileDialog 对象返回用户选择的文件列表。这里有一个很好的解释和有用的例子：analystcave.com/vba-application-filedialog-select-file

标签： vba audio office365 ms-office powerpoint

【解决方案1】：

实际上，您可以添加一个 m3u 文件并播放一系列 mp3 文件，而不是手动添加 mp3 文件。 M3U 格式文件是这样的：

G:\音乐\track1.mp3 G:\音乐\track2.mp3 track3.mp3

如果 mp3 文件与 m3u 文件位于同一文件夹中，则此处可以省略详细路径。因此，您可以使用 VBA 或手动添加 m3u 文件，就像添加 mp3 文件一样。唯一的缺点是您不能将 mp3 文件嵌入到您的 pptx 文件中，并且您不能将 mp3 文件放在特定的幻灯片中。

【讨论】：