怎样把抽奖程序嵌入PPT里面

在设计这个显示随机数之前，我们想来想想显示这个随机数都需要哪些东西。首先需要一个开始的按纽，点一下按纽才能开始显示；其次需要一个清空的按纽，点一下把刚才显示的随机数字清除掉；第三，还要有一个显示器，就是显示数字的地方。

准备工作：把开发工具栏添加到菜单上来。点office按钮--powerpoint选项--常用--第三项“在功能区显示开发工具选项卡”，这样就可以把开发工具添加到菜单栏了。

做第一个按纽：新建一张幻灯片--点击开发工具--命令按纽--在幻灯片中画一个按纽--双击刚画出的按纽--在d出的VB编程栏中输入如下代码：Label1Caption = 1 + Int(51 Rnd())，其中的51就是在51以内显示随机数，可以更改。还可以在caption中修改按纽的名字，比如起名“开始”。

做第二个按纽：用同样的方法画一个按纽--双击按纽--输入：Label1Caption = ""。同样可以给该按纽起名，比如“清空”。

做显示数字的标签：点击标签--画一个小方框，此方框就是显示数字的显示器--方框的代码中什么都不要输。

好了，现在播放幻灯片，就可以得到1到51中间的随机数了。

，然后新建几个空白幻灯片页面，在上面写上与抽奖相对应的奖项（例如：在一个页面上写：1号奖项：什么什么什么）然后回到抽奖页面（最开始制作的有有抽奖编号的页面）右键抽奖用的，选择“超链接”然后点击“书签”选项，在里面选择对应的幻灯片（就是刚才制作的写了奖项的幻灯片）如果这张是第一个抽奖号码就选择刚才制作的对应第一个抽奖号码的奖项，按“确定”在放幻灯片时点击，就会直接链接到那个奖项（别忘了在每一个奖项页面上按刚才的方法再插入一个超链接，链接到最开始的页面，方便返回！）

方法/步骤

绘制表盘。通过插入菜单中的形状，选择椭圆（用于绘制底盘）及饼形（用于绘制扇形分隔盘），按住shift键进行绘制。然后通过对扇形的旋转，缩放等 *** 作与圆进行拼接完成表盘制作。（这种方法是最直接的，但是 *** 作难度略大，调整也比较麻烦，因而我将介绍一种更巧妙的方法）

借助扇形图制作表盘。插入——图表——饼图，通过调节数据使得区域增加，同时保持值相等，这样就能轻松实现圆的等分。完成后，对扇形图进行格式颜色的修改（去除边框，调节单块扇形的颜色）

添加文字。添加需要的抽奖选项，尽量采用复制粘贴的方式，再对内容修改，确保文字大小格式的一致，同时，主要文字的对齐，以实现美观。完成后，按住shift键，选中文字与底盘进行组合。

制作指针。其实指针的制作并非想象的那般容易，需要制作出中心对称的图形以确保后期动画旋转正常进行，这里我采用了对一根指针复制粘贴出的第二根指针进行180°旋转，在组合完成后将第二根指针颜色改为白色。（自我感觉也有点麻烦，不过暂时没想到更好的办法，望指点）

添加动画。选中指针，在动画——添加动画——强调中，选择陀螺旋动画。（该动画能够实现对象的旋转，但是它是以对象中心为旋转点，也就为什么上一步需要把指针那么麻烦的制作成中心对称的图形了）

效果设置。在d出的动画窗格中，选中制定动画，打开效果设置。陀螺旋的效果栏不需要做更改，如果想获得更好效果，可以添加一个动画播放后的颜色变化。

计时选型设置。期间

更改为004秒（可自行选择，时间越短，转速越快，效果越高），重复

更改为直到幻灯片末尾（能够确保指针持续转动）。

触发器设置。触发器的设置能够实现点击按钮控制开始与停止。点开触发器，选择单击对象启动效果，将对象选择为抽奖的控制按钮（按钮只需要自行绘制一个矩形，添加自己需要的文字）。

检查，实现抽奖。播放幻灯片，查看效果，点击按钮开始，再次点击停止转动。这样就轻松实现了抽奖。如果旋转过程指针晃动严重，只需要再次调节指针确保位于图像中心。

在设计这个显示随机数之前，我们想来想想显示这个随机数都需要哪些东西。首先需要一个开始的按纽，点一下按纽才能开始显示；其次需要一个清空的按纽，点一下把刚才显示的随机数字清除掉；第三，还要有一个显示器，就是显示数字的地方。

准备工作：把开发工具栏添加到菜单上来。点office按钮--powerpoint选项--常用--第三项“在功能区显示开发工具选项卡”，这样就可以把开发工具添加到菜单栏了。

做第一个按纽：新建一张幻灯片--点击开发工具--命令按纽--在幻灯片中画一个按纽--双击刚画出的按纽--在d出的VB编程栏中输入如下代码：Label1Caption = 1 + Int(51 Rnd())，其中的51就是在51以内显示随机数，可以更改。还可以在caption中修改按纽的名字，比如起名“开始”。

做第二个按纽：用同样的方法画一个按纽--双击按纽--输入：Label1Caption = ""。同样可以给该按纽起名，比如“清空”。

做显示数字的标签：点击标签--画一个小方框，此方框就是显示数字的显示器--方框的代码中什么都不要输。

好了，现在播放幻灯片，就可以得到1到51中间的随机数了。

步骤就是这样：

1、新建ppt

2、打开“控件工具箱”， 步骤：菜单 视图>工具栏>控件工具箱。

3、点击控件箱上控件“命令按钮”， 在幻灯片1上画一个命令按钮CommandButton1,

4、点击控件箱上控件“标签”，在幻灯片1上画一个一个标签Label。

5、点击“命令按钮CommandButton1”右击鼠标，选“属性”，将CommandButton1的Caption属性设置为"抽奖开始",再如此方法，将Label1的Caption属性设置为空白。当然在属性中还可以设置字体、颜色等等。

6、点击在CommandButton1控件上右击，选“查看代码”，进入Visual Basic界面，编写代码：

Private Sub CommandButton1_Click()

Slide1Label1Caption = Int(Rnd 120 + 1)

End Sub

这句代码可以意思是“点击命令按钮CommandButton1生成一个1到120之间的随机整数，并把它输出到标签label1”上。”

还要注意一点，这里编写的VB程序实际上就是“宏”。很多人把病毒编写为宏，随着用户打开ppt文档，病毒就进入了你的电脑。所以为了安全，很多人都把宏禁用了。

但是宏如果被禁用了，那么我们刚才编写的程序就不起作用了。所以我们还应该启用宏，方法是ppt中的工具>选项菜单，“安全性”选项卡，“宏安全性”按钮，在d出的“安全性”窗口中就可以设置宏的安全级别。

当然这个最好做一个flash 软件 插入ppt

因为你的要求不是很清楚，所以大概做了个框架。

你还需要提供随机选号的范围，1~？？，附件的程序是用1~100作为选号范围的。

另外你一共需要选中多少个中奖号码？附件的中奖号码最多只能显示11个，如果需要显示更多的号码，可以将label3的字体做小点。

如果还有其他要求可以联系我。

以上就是关于怎样把抽奖程序嵌入PPT里面全部的内容，包括:怎样把抽奖程序嵌入PPT里面、用ppt做抽奖、如何使用PPT制作转盘抽奖的动画等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！