ppt2010教程如何添加層疊效果
用了PowerPoint 2010,大家都驚訝地發(fā)現(xiàn),2003、2007中的層疊、伸展等一些動畫效果不見了。但用2003或2007添加這些效果再在2010中打開時(shí),這些效果仍然顯示。那么到底去哪了?其實(shí)只是隱藏起來罷了,接下來學(xué)習(xí)啦小編舉例簡單的例子告訴大家ppt2010添加層疊效果的方法,歡迎大家來到學(xué)習(xí)啦學(xué)習(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 ,運(yùn)行 Add_Effect
4.關(guān)鍵代碼:注意數(shù)字“17”,是“伸展”動畫的ID。進(jìn)入和相對應(yīng)的退出效果為一個(gè)ID,只是在添加
退出效果時(shí),exit的屬性為ture。上述代碼同時(shí)添加了進(jìn)入效果和相對應(yīng)的退出效果,循環(huán)中的“0”表
false,“1”表true。
5.如何知道動畫ID?運(yùn)行本實(shí)例所附的show_effect代碼,便可知道添加動畫效果的ID。
猜你感興趣: