VBA在ppt中插入音频,并自动播放
from Using VBA to insert and automatically play audio files in Powerpoint
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