如何使用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