我想用在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控件对象，请各位坛友帮助，谢谢！！
