如何使用VBA删除MS Powerpoint中的所有转换？

Question

我们每周准备数百份Powerpoint文档以与屏幕阅读软件配合使用，并且需要从其中删除所有动画和过渡。 我想编写一个Powerpoint加载项，在加载文件时自动执行此操作。 我已经弄清楚了如何在我作为加载项导入的auto_open()子中使用以下代码删除所有动画：

'Loop Through Each Slide in ActivePresentation
  For Each sld In ActivePresentation.Slides

    'Loop through each animation on slide
      For x = sld.TimeLine.MainSequence.Count To 1 Step -1

        'Remove Each Animation
          sld.TimeLine.MainSequence.Item(x).Delete           

      Next x

  Next sld

但是，我不确定如何使用此方法删除过渡。 通过添加这一行，我实质上从视觉上解决了该问题，

sld.SlideShowTransition.Duration = 0

但是我想彻底删除过渡，因为它们会干扰客户的屏幕阅读软件。 以范式VBA（ SlideShowTransition.Delete ）删除对象不起作用。

有任何想法吗？

提前致谢。

Answer 1

这样就可以了：

sld.SlideShowTransition.EntryEffect=0