如何使用VBA程序制作随机播放PPT幻灯片

1、启动PowerPoint

2013并打开演示文稿，该演示文稿已经完成了标题页的制作和题目的添加。使用技巧429介绍的方法在幻灯片中添加一个按钮控件，并在“属性”面板中更改控件的“Caption”属性值。

2、右击幻灯片中的按钮控件，选择快捷菜单中的“查看代码”命令，在打开的Visual

Basic编辑器的代码窗口中输入程序代码。具体的程序代码如下。

01

Private

Sub

CommandButton1_Click()

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”属性值。

4、右击幻灯片中的按钮控件，选择快捷菜单中的选择“查看代码”命令。在打开的Visual

Basic编辑器的代码窗口中为按钮添加Click事件响应程序。具体的程序代码如下。

01

Private

Sub

CommandButton1_Click()

02

With

SlideShowWindows(1)

03

.View.GotoSlide

1'跳转到第一张幻灯片

04

End

With

05

End

Sub

5、将第二张幻灯片中的按钮复制到其后的幻灯片中，使用与步骤④相闷兄旦同的方法为这些按钮添加事件响应程序后，按“F5”键播放幻灯片，在标题页中单击“出题”按钮，PowerPoint将随机跳转到其后的一张幻灯片显示题目单击题目页中的“回到首页”按钮，如图6所示，将跳转回出题页。

希望通过以上方法步骤大家可以学会制作随机播放PPT幻灯片的方法。

ppt即幻灯片。将ppt设置随机播放方法如下:

1、使用WPS演示打开幻灯片文稿。

2、点击幻灯片放映选项。

3、选择幻灯片切换命令。

4、在打开的闭或罩幻灯片切换窗口，选择随机。

5、轿闹单击应用于所有幻灯片按钮。

6、点击保存按钮。

7、ppt随机播放设置团哪完成。

---