用PPT制作动画如何控制播放与暂停_IT百科

插入命令按钮

①制作(播放)按钮

在“控件工具箱”中选择“命令按钮”，在幻灯片中拖动，即可拖出一个命令按钮。调整好大小，在“属性”面板中作如下设置：“名称”中输入“cmd_play”，“caption”中输入“播放”。双击该按钮，进入vba编辑窗口，输入如下内容：

private

sub

cmd_play_click()

shockwaveflash1.playing

trueend

sub②制作(暂停)、(前进)、(后退)、(返回)、(结束)按钮

按钮制作的方法同上。“属性”面板中分别作如下设置：暂停按钮的“名称”为“cmd_pause”，“caption”为“暂停”；前进按钮按钮的“名称”为“cmd_forward”，“caption”为“前进”；后退按钮的“名称”为“cmd_back”，“caption”为“后退”；返回按钮的“名称”为“cmd_start”，“caption”为“返回”；结束按钮的“名称”为“cmd_end”，“caption”为“结束”。

分别为各个按钮加上vba，命令依次如下：

private

sub

cmd_pause_click()

shockwaveflash1.playing

falseend

subprivate

sub

cmd_forward_click()

shockwaveflash1.framenum

shockwaveflash1.playing

trueend

subprivate

sub

cmd_back_click()

shockwaveflash1.framenum

shockwaveflash1.playing

trueend

subprivate

sub

cmd_start_click()

shockwaveflash1.framenum

shockwaveflash1.playing

trueend

subprivate

sub

cmd_end_click()

shockwaveflash1.framenum

shockwaveflash1.totalframesend

sub说明：在(前进)、(后退)、(返回)按钮中，后面均加上一条播放命令，是因为在实际应用时，发现后面如果没有播放命令的话，flash影片会停止播放，所以这句是万万不可少的。

知识扩展：以上的设置都完成了，也许您播放给ppt的时候可能无法控制您的flash，原因极有可能就是您计算机的宏的安全性设得太高了，请单击“工具/宏/安全性”，将“安全级”设为“低”。

1、选中这个对象，在自定义动画中添加效果，选择进入，飞入或出现，再设置开始为“单击时”。

2、再次选中这个对象，在自定义动画中添加效果，选择退出，“消失”，再设置开始为“单击时”。

3、注意，在动画窗格中，消失的动画在后，想要使单击出现后几秒，对象再自动消失，可以将开始里设置成“之前”，然后在计时中设置延迟。

做了个演示文稿，中间做了一张幻灯片，用来播放一段电影。这个电影需要在好几个幻灯片中都要展示引用，又不想多做几张这个电影的幻灯片，就开始想能不能用这个一张幻灯片来解决所有问题呢？如果用ppt中默认的几种超级链接方式，都达不到预定的效果，那就是电影播放后，点一下这张幻灯片上唯一的一个按钮必须返回刚才的幻灯片。我也看到了，很多人在设计时，为了解决这个问题，在有电影的幻灯片下，竟然设置了多个按钮，以返回不同的上一个幻灯片。我通过研究，终于发现，用vba可以轻松解决这个问题，即使是50张幻灯片都来引用也没有问题。

放上制作好的图片：

[转载]巧用vba在ppt中灵活切换幻灯片X

步骤：1.制作好，多次引用的那张幻灯片。（我的是放电影的那张，就是第13张幻灯片）记住这张幻灯片的序号，在普通视图下看，即上图左边图圈1那部分序号。

2.利用控件箱，在这张幻灯片上放一个按钮，双击这个按钮，进入vba代码编辑窗口，把下面这段代码粘入其中：

Private Sub CommandButton1_Click()

SlideShowWindows(1).View.GotoSlide m

End Sub

也就是上图中的3部分。这段代码的意思就是单击按钮时，切换到第m张幻灯片。m的值在其他引用的按钮中设置。

3.通过控件箱，分别在另外几张你需要引用这个电影的幻灯片上，插入按钮。并双击按钮进入vba代码编辑窗口，给每个按钮分别写入代码。当然你可以把下面的代码粘入即可。

Private Sub CommandButton1_Click()

SlideShowWindows(1).View.GotoSlide 13

m = 5

End Sub

这段代码的意思就是单击按钮时，切换到第13张幻灯片，同时m设置为5。第13张幻灯片就是我的有电影的那张。

在每个按钮的代码中，你需要改变的只是m后的数字。如何改动呢?很容易，这个按钮在第几张幻灯片上，这个数字就设置为几（这个数字在普通视图下很容易看到，如圈1中的数字）。目的是让放置电影的那个多次引用的幻灯片，一会能通过这个数字返回来。

另一个按钮的代码：

Private Sub CommandButton1_Click()

SlideShowWindows(1).View.GotoSlide 13

m = 8

End Sub

4.插入一个类模块，在里面声明一个公共变量m，可以在各段代码中引用这个变量。

即上图中标6的地方。

你可以把下面这段代码复制使用。

Public m As Integer

好了，下面你就可以放映你的演示文稿了，尽情切换吧！好爽！哦，对了，为了不影响最后的美观，你可以把这个公共引用的幻灯片设置为隐藏。

当然，如果你不想用vba来 *** 作，也可以在多次引用的这张幻灯片上，放一个图形，然后通过“动作”设置，来链接到“最近的幻灯片”上，就可以了。做了个演示文稿，中间做了一张幻灯片，用来播放一段电影。这个电影需要在好几个幻灯片中都要展示引用，又不想多做几张这个电影的幻灯片，就开始想能不能用这个一张幻灯片来解决所有问题呢？如果用ppt中默认的几种超级链接方式，都达不到预定的效果，那就是电影播放后，点一下这张幻灯片上唯一的一个按钮必须返回刚才的幻灯片。我也看到了，很多人在设计时，为了解决这个问题，在有电影的幻灯片下，竟然设置了多个按钮，以返回不同的上一个幻灯片。我通过研究，终于发现，用vba可以轻松解决这个问题，即使是50张幻灯片都来引用也没有问题。

放上制作好的图片：

[转载]巧用vba在ppt中灵活切换幻灯片X

2.利用控件箱，在这张幻灯片上放一个按钮，双击这个按钮，进入vba代码编辑窗口，把下面这段代码粘入其中：

Private Sub CommandButton1_Click()

SlideShowWindows(1).View.GotoSlide m

End Sub

也就是上图中的3部分。这段代码的意思就是单击按钮时，切换到第m张幻灯片。m的值在其他引用的按钮中设置。

Private Sub CommandButton1_Click()

SlideShowWindows(1).View.GotoSlide 13

m = 5

End Sub

这段代码的意思就是单击按钮时，切换到第13张幻灯片，同时m设置为5。第13张幻灯片就是我的有电影的那张。

另一个按钮的代码：

Private Sub CommandButton1_Click()

SlideShowWindows(1).View.GotoSlide 13

m = 8

End Sub

4.插入一个类模块，在里面声明一个公共变量m，可以在各段代码中引用这个变量。

即上图中标6的地方。

你可以把下面这段代码复制使用。

Public m As Integer

好了，下面你就可以放映你的演示文稿了，尽情切换吧！好爽！哦，对了，为了不影响最后的美观，你可以把这个公共引用的幻灯片设置为隐藏。

当然，如果你不想用vba来 *** 作，也可以在多次引用的这张幻灯片上，放一个图形，然后通过“动作”设置，来链接到“最近的幻灯片”上，就可以了。

VBA是非常流行的应用程序开发语言VISUAL BASIC的子集。在ppt中想要实现编程效果,我们可以使用vba实现。那么具体怎么 *** 作呢?下面就是PPT使用VBA代码编程的教程，一起了解一下。

1、打开ppt，在上面的工具栏中找到【开发工具】并点击。