高分求解！急用！如何用vba 把ppt 中的所有文本框的动画效果设置为“波浪形”？ 我写的如图，但

高分求解！急用！如何用vba 把ppt 中的所有文本框的动画效果设置为“波浪形”？
我写的如图，但是不知道“波浪形”的效果在vba 中怎么说

用 shape 对象的 AnimationSettings 集合对象的 EntryEffect 属性只能添加进入效果，如果要添加强调效果需要利用 slide 对象的 TimeLine 子对象的 MainSequence 子对象的 AddEffect 方法，示例：

    Dim shp2 As Shape'定义一个形状对象
    Set shp2 = ActivePresentation.Slides(2).Shapes("标题 1")'将要添加效果的形状对象赋值给定义的 shp2，幻灯片编号要自己改，形状的名称要自己改！
    ActivePresentation.Slides(2).TimeLine.MainSequence.AddEffect(shp2, msoAnimEffectWave)'在幻灯片 2 的动画序列中添加一个 Effect，针对 shp2 添加 Effect 且类型为 msoAnimEffectWave（波浪形），幻灯片编号要自己改！

追问

但是他提示“缺少等号”

追答

错误出在我给你发的三行的哪一行了，AddEffect 是方法，可以不接收返回值。

追问

那怎么修改呢⊙_⊙

追答

按名称传参吧，按位置传参经常抽风报错，我也不知道为毛：

  Dim s As Slide
    For Each s In ActivePresentation.Slides
        For Each shp In s.Shapes
            s.TimeLine.MainSequence.AddEffect Shape:=shp, effectId:=msoAnimEffectWave
        Next
    Next

追问

颜色打印机的代码是身什么啊⊙_⊙

颜色打印机的代码是身什么啊⊙_⊙

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/4fp72mqv22s7m4qps2.html