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

[taixinltd]

本人在编写一个程序，程序中一个PPT文件，有两个窗口同时播放，出现了一个同步的问题

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

[send068]

友情up

[dsd999]

[Quote=引用 11 楼 taixinltd 的回复:]
to dsd999
第五个动画，就是在powerpoint中做的啊，不是代码生成的
[/Quote]

我知道你不是代码生成的。
但你说的“定位第5个动画”是需要用代码定位的吧。

[dsd999]

Application.Presentations(1).Slides(5)

[dsd999]

Sub test()

Dim sld As Slide

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

sld.Select

End Sub

[taixinltd]

to dsd999 :

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

[dsd999]

[Quote=引用 5 楼 taixinltd 的回复:]
to dsd999 :

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

我理解有误，我再看看。

[dsd999]

动画的意思是movie吗？

[dsd999]

Application.Presentations(1).Slides(2).Shapes(5)

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

Application.Presentations(1).Slides(2).Shapes不知能不能满足你的要求。

[taixinltd]

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

[icansaymyabc]

制作PPT的时候，每个动画你都手动给设置一个唯一的名称，然后直接用名称就能引用该动画了。

[ka1698]

不懂很多，但真是个有意义的议题

[dsd999]

楼主解决了没？



承接 office 二次开发项目

[taixinltd]

还是没有解决，我的意思是这样的，比如翻页的话，可以这样实现：
Pr.SlideShowWindow.View.GotoSlide(5,msoFalse);

那么能不能有类似的方法，翻到第5个动画呢？

[dsd999]

第5个动画不知你是怎么定义的？

如果你连着放了1-10个动画，把第1个动画删掉了，那现在那个动画是第5个。

建议你还是用名称来定位。

[不会编程的财务不是老司机]

我没想象出来翻到第5个动画是个什么效果，有什么实际意义没？

[line_us]

用对象定位，
首先要确定动画的对象名，
如果有索引号，直接就可以调用索引号指向选定的对象，
然后播放，
否则用对象名定位。

[taixinltd]

to line-us
你说的是思路,能否有具体的技术方法,如实现代码;