假设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 二次开发项目