用shape對象的集合對象的EntryEffect屬性只能添加進入效果,如果要添加強調效果需要利用slide對象的TimeLine子對象的子對象的AddEffect方法,示例:
Dimshp2AsShape'定義壹個形狀對象
Setshp2=.Slides(2).Shapes("標題1")'將要添加效果的形狀對象賦值給定義的shp2,幻燈片編號要自己改,形狀的名稱要自己改!
Slides(2).TimeLine..AddEffect(shp2,)'在幻燈片2的動畫序列中添加壹個Effect,針對shp2添加Effect且類型為(波浪形),幻燈片編號要自己改!