用VBA对PPT对象编程

Question

在PowerPoint中，用VBA对PPT对象编程，欲通过对ActiveWindow.View.Slide.TimeLine.MainSequence(1).Behaviors.Add(msoAnimTypeMotion).MotionEffect.ByX 赋值，实现文本框的平滑滚动。
PPT播放时，文本框自动平滑移动，但是，只移动了一个页面宽度的距离后就自动停止了，没有移动到预设的位置。
请问：是什么原因？如何解决？
谢谢！

Answer 1

在PowerPoint中，如果想实现文本框的平滑滚动，需要在 VBA 中对 PPT 对象进行编程，并对 ActiveWindow.View.Slide.TimeLine.MainSequence 进行赋值。

如果 PPT 播放时，文本框只移动了一个页面宽度的距离后就自动停止了，没有移动到预设的位置，可能是因为动画设置不正确导致的。

为解决这个问题，您需要重新检查代码中的动画设置，确保已经正确地配置了移动的目标位置、速度等信息，再次进行测试。