假设PPT中的一页有10个动画，怎么直接定位PPT的第5个动画

假设PPT中的一页有10个动画，如何直接定位PPT的第5个动画？
本人在编写一个程序，程序中一个PPT文件，有两个窗口同时播放，出现了一个同步的问题

假设PPT中的一页有10个动画，如何直接定位PPT的第5个动画？

------解决方案--------------------------------------------------------
友情up
------解决方案--------------------------------------------------------

Application.Presentations(1).Slides(5)
------解决方案--------------------------------------------------------
Sub test()

Dim sld As Slide

Set sld = Application.Presentations(1).Slides(5)

sld.Select

End Sub
------解决方案--------------------------------------------------------

探讨

to dsd999 :

你的代码执行的结果是，翻到第5页，而非第5个动画；

------解决方案--------------------------------------------------------
动画的意思是movie吗？
------解决方案--------------------------------------------------------
Application.Presentations(1).Slides(2).Shapes(5)

“第5个动画”你是怎么定义的

Application.Presentations(1).Slides(2).Shapes不知能不能满足你的要求。
------解决方案--------------------------------------------------------

探讨

to dsd999
第五个动画，就是在powerpoint中做的啊，不是代码生成的

------解决方案--------------------------------------------------------
制作PPT的时候，每个动画你都手动给设置一个唯一的名称，然后直接用名称就能引用该动画了。
------解决方案--------------------------------------------------------
不懂很多，但真是个有意义的议题
------解决方案--------------------------------------------------------
楼主解决了没？



承接 office 二次开发项目