转换PowerPoint动画aftereffect与VBA

Question

我有很多用PP '95编写的大型PowerPoint演示文稿(每张约800张幻灯片)，需要转换以供学生在当前版本的PowerPoint中查看。作者经常使用"HideOnNextClick"的文本，这被PP 2003起误解了。如果没有鼠标点击效果，文本(或任何具有此效果的内容)会立即消失。

如果效果不是幻灯片上的最后一个，可以通过设置计时来解决。触发类型的下一个效果使用:-

Dim e0 As Effect, e1 As Effect
........
If e0.EffectInformation.AfterEffect = msoAnimAfterEffectHideOnNextClick Then
            e1.Timing.TriggerType = msoAnimTriggerOnPageClick
End If 

问题是，如果它是最后一项，没有'下一项'采取'msoTriggerOnPageClick'。

手动更改"效果选项"…从"在下一次鼠标点击时隐藏"到"不要变暗"有预期的效果，但我已经用了好几天没有成功使用VBA。

我希望……

If e0.EffectInformation.AfterEffect = msoAnimAfterEffectHideOnNextClick Then
       Set e0.effConvert = e0.ConvertToAfterEffect _
    (Effect:=effConvert, After:=msoAnimAfterEffectNone)
End If

…会有用的，但是不行。ConvertToAfterEffect失败，提示"编译错误:未找到方法或数据成员"。

对于语法或正确方法的任何帮助都非常感谢。谢谢你

Answer 1

Sub chexAfter()
Dim e0 As Effect
Dim osld As Slide
Set osld = ActivePresentation.Slides(1)
For Each e0 In osld.TimeLine.MainSequence
If e0.EffectInformation.AfterEffect = msoAnimAfterEffectHideOnNextClick Then
Set e0 = osld.TimeLine.MainSequence.ConvertToAfterEffect _
(Effect:=e0, After:=msoAnimAfterEffectNone)
End If
Next
End Sub