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