2024年1月19日发(作者:)

如何让PPT中的Flast自动从头开始播放

(对倒计时有用)

一、插入flash

1.右击菜单栏空白处,点击“自定义功能区”

2.勾选“开发工具”

3.点击,在弹出的选项里选择果没有的,需要下载安装。

4.在幻灯片上拖出合适的大小,如图:

,如

双击,在弹出的代码编辑窗口中输入

Private Sub ShockwaveFlash1_OnReadyStateChange(ByVal

newState As Long)

‘rewind 是返回到falsh的第一帧。

‘play是播放命令

End Sub

代码中的Slide1,指的是第1张幻灯片,ShockwaveFlash1是第1个flash动画。如果有多张幻灯片Slide后面的数值会依次增加,如果1张幻灯片上有多个flash动画,ShockwaveFlash后面的数值会依次增加。

二、设置自动播放

在VBA窗口,单击插入“模块”

输入代码:

Sub OnSlideShowPageChange()

End Sub

根据实际的flash数量调整slide和flash后面的数字。

— 2 —

— 3 —