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"

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

2 个答案: