vba - 获取我的演示文稿中有多少动画

Question

我想创建一个按钮，用于计算演示文稿中每个切片有多少动画/效果。我想限制动画，所以我需要知道每个动画有多少。可以用VBA制作吗？

Answer 1

我找到了这个问题的解决方案：

  For Each slid In ActivePresentation.Slides
      If slid.TimeLine.MainSequence.Count >= 1 Then
        MsgBox "Number of animations per slide: " + Str(slid.TimeLine.MainSequence.Count)
    End If
  Next

有了这个，您可以计算我们的演示文稿中有多少动画

Answer 2

更简单地说，要获得幻灯片放映中所有动画中的一个，请使用

Dim count As Integer
count = 0
For Each slid In ActivePresentation.Slides
    If slid.TimeLine.MainSequence.count >= 1 Then
        count = count + slid.TimeLine.MainSequence.count
    End If
Next
MsgBox Str(count) + " number of animations"