下面的是PPT教程网给你带来的相关内容：

ppt里照片滚动播放:2019-07-10 用VBA在PPT批量插入幻灯片、图片

在B站看到几个用PPT播放BAD APPLE的示例，自己也做了一个

示例中的代码：

Sub PPT批量插入幻灯片及图片()
Dim pptPre As Presentation
Dim p As Integer
Set pptPre = ActivePresentation
For p = 1 To 999
    pptPre.Slides.Add p, ppLayoutTitleOnly  '新建幻灯片，插入图片，设置大小位置

    pptPre.Slides(p).Shapes.AddPicture FileName:="D:\excel_bad_apple\image\" & _
    Format(p, "000") & ".bmp", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
    Left:=55.11929, Top:=0, Width:=849.7614, Height:=540.7573
    
    With pptPre.Slides(p).SlideShowTransition '设置切换方式及切换时间
        .AdvanceOnClick = msoFalse '关闭鼠标单击切换
        .AdvanceOnTime = msoTrue '开启按时间切换
        .AdvanceTime = 0.1 '切换时间为0.1秒
    End With
Next p
End Sub

图片是之前做Excel公式版BAD APPLE时用批量从原视频导出的，每秒6帧，共1308张。实际测试时发现，在PPT中插入的音乐跨幻灯片播放到1千张左右时会停止播放ppt里照片滚动播放:2019-07-10 用VBA在PPT批量插入幻灯片、图片，所以代码改成了插入999张

涉及到的知识点：

VBA批量新建PPT幻灯片

VBA在PPT中批量插入图片ppt里照片滚动播放，并调整大小及位置

VBA批量设置PPT切换方式及切换时间

感谢你支持pptjcw.com网，我们将努力持续给你带路更多优秀实用教程！

上一篇：ppt动画效果怎么设置一个一个出来:ppt中怎么让文字以动画的形式一个一个的出现? 下一篇：没有了

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。