user_zgngxmin 发表于 2016-4-12 12:35:39

[求助]PPt中如何在VBA中引用某张幻灯片的控件对象?

我想用在PPT中使用VBA的SlideShowNextSlide事件,在幻灯片每次切换至下一张时触发该事件,在里面放代码(红色部分):
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
Dim Showpos As Integer
Showpos = Wn.View.CurrentShowPosition
if showpos=10 then
slides(10).ShockwaveFlash1.rewind
endif
End Sub
这代码是实现第十张幻灯片的一个flash控件,使其包含的动画复位至开始播放处。
问题是这样引用这一flash控件是错误的,我不知如何表示flash控件对象,请各位坛友帮助,谢谢!!

user_xuwff 发表于 2016-4-12 14:17:28

已解决.
原来的slides(10).ShockwaveFlash1.rewind
变成slides10.ShockwaveFlash1.rewind
去掉括号即可.
页: [1]
查看完整版本: [求助]PPt中如何在VBA中引用某张幻灯片的控件对象?