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

如何使用 VBA 删除 MS Powerpoint 中的所有过渡？

How can I delete all transitions in MS Powerpoint with VBA?

powerpoint

vba