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

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

'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方式幻灯片切换中删除对象。删除无效

有什么想法吗

提前谢谢。

这样就可以了：

sld.SlideShowTransition.EntryEffect=0

这样就可以了：

sld.SlideShowTransition.EntryEffect=0