花魁直播高品质美女在线视频互动社区 - 花魁直播官方版

 歡迎來到素材無憂網(wǎng),按 + 收藏我們
登錄 注冊(cè) 退出 找回密碼

ppt刪除所有動(dòng)畫效果

時(shí)間: 2020-02-15 13:01 閱讀: 作者:素材無憂網(wǎng)

在PPT中添加插入了很多動(dòng)畫效果,想要一個(gè)一個(gè)刪除未免太過麻煩了,我們?cè)谶@里使用一些代碼技巧來批量刪除PPT中所有動(dòng)畫,不懂的朋友們一起來學(xué)學(xué)。

  通過PPT軟件中的VBA來解決了,幾乎搜遍了所有的網(wǎng)站,最后終于找到了答案,將代碼給各位分享。

  代碼如下:

  

Sub removeALL()

  Dim I As Integer: Dim J As Integer

  Dim oActivePres As Object

  Set oActivePres = ActivePresentation

  With oActivePres

  For I = 1 To .Slides.Count

  If Val(Application.Version) < 10 Then

  For J = 1 To .Slides(I).Shapes.Count

  .Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse

  Next J

  Else

  For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1

  .Slides(I).TimeLine.MainSequence(J).Delete

  Next J

  End If

  Next I

  End With

  Set oActivePres = Nothing

  End Sub

  另附方法二:

  在PPT放映設(shè)置時(shí)把PPT設(shè)為“播放時(shí)不帶動(dòng)畫”就可以達(dá)到同樣效果。

一次性刪除PPT中所有動(dòng)畫效果

版權(quán)聲明: 本站資源均來自互聯(lián)網(wǎng)或會(huì)員發(fā)布,如果侵犯了您的權(quán)益請(qǐng)與我們聯(lián)系,我們將在24小時(shí)內(nèi)刪除!謝謝!

轉(zhuǎn)載請(qǐng)注明: ppt刪除所有動(dòng)畫效果

標(biāo)簽:  
相關(guān)文章
模板推薦