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 —


发布评论