使用VBA程序制作随机播放PPT幻灯片的的方法
1、启动PowerPoint 2013并打开演示文稿,该演示文稿已经完成了标题页的制作和题目的添加 。使用技巧429介绍的方法在幻灯片中添加一个按钮控件,并在“属性”面板中更改控件的“Caption”属性值,如图1所示 。
图1 更改控件的“Caption”属性值
2、右击幻灯片中的按钮控件,选择快捷菜单中的“查看代码”命令,在打开的Visual Basic编辑器的代码窗口中输入程序代码,如图2所示 。具体的程序代码如下 。
图2 在代码窗口中输入程序代码
01 Private Sub CommandButton1_Click()
【然后在属性面板中更改控件的Caption属性值】02 Dim i As Integer,n As Integer’定义变量
03 i=Int((6*Rnd)+1)’获取1~6间的随机数
04 Randomize’初始化随机数
05 i=Int((6*Rnd)+1)’初始化后再次生成1~6间的随机数
06 n=i+1’向变量n赋值,该值为幻灯片的编号
07 With SlideShowWindows(1)
08.View.GotoSlide n’跳转到指定编号的幻灯片
09 End With
10 End Sub
3、复制标题页中的按钮,将其粘贴到第二张幻灯片中,然后在“属性”面板中更改控件的“Caption”属性值,如图3所示 。
图3 复制按钮并设置其“Caption”属性
4、右击幻灯片中的按钮控件,选择快捷菜单中的选择“查看代码”命令 。在打开的Visual Basic编辑器的代码窗口中为按钮添加Click事件响应程序,如图4所示 。具体的程序代码如下 。
图4 为按钮添加Click事件响应程序
01 Private Sub CommandButton1_Click()
02 With SlideShowWindows(1)
03 .View.GotoSlide 1’跳转到第一张幻灯片
04 End With
05 End Sub
5、将第二张幻灯片中的按钮复制到其后的幻灯片中,使用与步骤④相同的方法为这些按钮添加事件响应程序后,按“F5”键播放幻灯片,在标题页中单击“出题”按钮,如图5所示,PowerPoint将随机跳转到其后的一张幻灯片显示题目;单击题目页中的“回到首页”按钮,如图6所示,将跳转回出题页 。
图5 显示出题页
图6 随机出现题目
推荐阅读
- 会看到已经插入了一个很小的符号
- office2003怎么升级到office2007?
- 我们设定如下:单元格数值 等于 2
- 眉笔怎么换替换芯
- excel如何自动显示负数
- 淘宝店铺照片怎么拍的 淘宝开店需要什么证件
- 在选择出来的区域后的标识一列输入一个标识符号
- 大门朝北厕所最佳位置 大门在西南方向厕所在哪好
- 我们应该如何排版呢? 5、遵循4步走原则:明确排版基本风格