批量刪除Powerpoint文件中生成的動(dòng)畫效果的方法
發(fā)布時(shí)間：2012-05-30 11:37:28 作者：佚名 
我要評(píng)論
我要評(píng)論批量刪FLASH比較難的.下面介紹幾個(gè)好的方法
Powerpoint是微軟OFFICE系列辦公應(yīng)用軟件的重要組成部份之一，也是大家在日常的辦公中經(jīng)常用到的一款軟件。由于其集成了一些動(dòng)畫的功能，比較適合課件等的制作，因此受到廣泛的歡迎。不過(guò)，對(duì)于Powerpoint來(lái)說(shuō)，如何批量刪除其生成的ppt文件中的動(dòng)畫效果，是一件較為困難的事情。經(jīng)過(guò)試驗(yàn)找到了三種方法，希望能對(duì)大家有所幫助：
一，Powerpoint放映設(shè)置
打開Powerpoint，在其“放映設(shè)置”中，選中設(shè)為“播放時(shí)不帶動(dòng)畫”。這樣就可以達(dá)到同樣的效果。
二，Powerpoint自定義設(shè)置
打開Powerpoint，在“自定義動(dòng)畫”對(duì)話框中，選擇要?jiǎng)h除的動(dòng)畫序號(hào)（注：可以按ctrl鍵選擇多個(gè)序號(hào)），然后點(diǎn)擊“刪除”。
三，利用VBa
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
一，Powerpoint放映設(shè)置
打開Powerpoint，在其“放映設(shè)置”中，選中設(shè)為“播放時(shí)不帶動(dòng)畫”。這樣就可以達(dá)到同樣的效果。
二，Powerpoint自定義設(shè)置
打開Powerpoint，在“自定義動(dòng)畫”對(duì)話框中，選擇要?jiǎng)h除的動(dòng)畫序號(hào)（注：可以按ctrl鍵選擇多個(gè)序號(hào)），然后點(diǎn)擊“刪除”。
三，利用VBa
復(fù)制代碼
代碼如下: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
相關(guān)文章
ppt幻燈片怎么添加交互式動(dòng)畫? PPT制作按鈕交互動(dòng)畫效果全攻略
近期，不少用戶在PPT制作中希望添加點(diǎn)擊按鈕的動(dòng)畫效果，以增強(qiáng)演示的互動(dòng)性和趣味性,今天，我們就來(lái)詳細(xì)講解如何在PPT中輕松實(shí)現(xiàn)這一效果，讓你的演示更加生動(dòng)吸引人2026-02-13- 制作ppt通常需要經(jīng)過(guò)下載安裝軟件、梳理文字大綱、收集素材、統(tǒng)一風(fēng)格、編輯單頁(yè)幻燈片等步驟，詳細(xì)制作思路如下2026-02-13
ppt怎么壓縮文件大小? 這五種壓縮ppt方法簡(jiǎn)單又實(shí)用
ppt太大怎么壓縮變??？平時(shí)辦公經(jīng)常要做各種PPT文檔，內(nèi)容篇幅長(zhǎng)的話整個(gè)PPT文件就很占內(nèi)存，多個(gè)文件積累電腦內(nèi)存吃不消，下面我們就來(lái)看看詳細(xì)壓縮教程2025-05-08ppt圖片怎樣鏡像翻轉(zhuǎn)? PPT演示文稿將圖片進(jìn)行鏡像翻轉(zhuǎn)的方法
ppt中導(dǎo)入的圖片想要進(jìn)行鏡像翻轉(zhuǎn)，該怎么操作呢？我們可以使用旋轉(zhuǎn)工具實(shí)現(xiàn)，下面我們就來(lái)看看詳細(xì)的教程2024-09-12- 日常工作制作ppt時(shí)，經(jīng)常需要插入多張圖片，很多朋友都是一張一張插入，甚是繁瑣，下面小編教大家在ppt中一次性插入多張圖片2024-09-04
怎么將ppt中所有的文字設(shè)置為宋體? ppt一鍵替換字體的技巧
PPT內(nèi)容制作完成后，發(fā)現(xiàn)字體不合適需要更換，這時(shí)利用“替換字體”功能可高效地進(jìn)行批量更換操作，詳細(xì)請(qǐng)看下文介紹2024-07-31ppt等比例縮放圖片按什么鍵? PPT進(jìn)行中心等比縮放的方法
ppt插入的圖片，想要進(jìn)行縮放，該怎么操作呢？今天我們主要介紹中心等比縮放圖片的技巧，詳細(xì)請(qǐng)看下文介紹2024-07-31PPT幻燈片怎么插入word表格? PPT文稿導(dǎo)入word表格的教程
ppt幻燈片中想要插入word表格，該怎么將word文件導(dǎo)入到ppt文稿呢？下面我們就來(lái)看看詳細(xì)的教程2024-07-24ppt打印預(yù)設(shè)怎么用? ppt使用最近使用過(guò)的打印設(shè)置的開啟方法
經(jīng)常打印ppt文件，上一次打印的時(shí)候進(jìn)行了打印設(shè)置，這次想直接使用，該怎么操作呢？下面我們就來(lái)看看詳細(xì)的操作方法2024-07-17ppt怎么更改文本框出現(xiàn)的順序? PPT設(shè)置文本出場(chǎng)順序動(dòng)畫的技巧
在PPT中，我們可以使用多種方法來(lái)設(shè)置文本框的先后出現(xiàn)順序，下面我們就來(lái)分享最簡(jiǎn)單的方法，詳細(xì)請(qǐng)看下文介紹2024-07-17
