ppt2010動畫層疊效果怎么添加圖文教程

ppt2010動畫層疊效果怎么添加圖文教程

　　用了PowerPoint 2010，大家都驚訝地發(fā)現(xiàn)，2003、2007中的層疊、伸展等一些動畫效果不見了。但用2003或2007添加這些效果再在2010中打開時，這些效果仍然顯示。也就是說，2010并沒有真正去掉這些動畫。那么如何在2010中使用這些動畫呢，一種方法是將這些動畫集中起來，建立“動畫庫”，需要時用格式刷一刷;另一種方法是用VBA添加這些動畫。接下里學(xué)習(xí)啦小編詳細(xì)跟大家介紹。

　　ppt2010動畫層疊效果的添加方法

　　具體代碼、操作步驟及相關(guān)問題：

　　1.按ALT+F11，打開VBA編輯器，插入“模塊”;

　　2.復(fù)制下列代碼：

　　Sub Add_Effect()

　　Set shp = ActiveWindow.Selection.ShapeRange(1)

　　For i = 0 To 1

　　With ActivePresentation.Slides(1).TimeLine _

　　.MainSequence.AddEffect(Shape:=shp, effectid:=17)

　　.Exit = i

　　End With

　　Next

　　End Sub

　　3.選中要添加的圖片或形狀，按ALT+F8 ，運行 Add_Effect

　　4.關(guān)鍵代碼：注意數(shù)字“17”，是“伸展”動畫的ID。進(jìn)入和相對應(yīng)的退出效果為一個ID，只是在添加

　　退出效果時，exit的屬性為ture。上述代碼同時添加了進(jìn)入效果和相對應(yīng)的退出效果，循環(huán)中的“0”表

　　false，“1”表true。

　　5.如何知道動畫ID?運行本實例所附的show_effect代碼，便可知道添加動畫效果的ID。