简单的VBA抽奖游戏，可用于VBA教学，日常公司（职场、会议）抽奖
工具/原料
Windows
PowerPoint（本例为2013以上版本，不保证更低版本的兼容性）
方法/步骤
1、新建PowerPoint文件，保存成启用宏演示文稿，文件“转盘测试饼图”
2、选择“开发工具”选项卡
3、若无此选项卡，在任意选项卡中点击右键选择自定义功能区打开
4、插入“旭日图”
5、编辑“旭日图”说明：需要添加几个奖项，则设置几个相同的数值，本案例是设置6个奖项。
6、点击+，勾选数据标签，删除多余数据，只留旭日图，
7、插入一个“按钮”、一个“文本框”控件，插入一个向上箭头（其它方向也可以，代码略有不同）
8、排版后如下
9、设置按钮caption属性为“抽奖”
10、双击抽奖按钮，设置按钮的click事件
11、在反映幻灯片时点击抽奖按钮即可查看效果
12、代码说明：Randomize是初始化随机数必须配合Rnd必须使用的；Di葡矩酉缸miAsInteger：定义i为整形数字；i租涫疼迟=Int(Rnd*6)*60：i的值=（0-1）的随机数*6取整再*60（即i为0、60、1180、240、300之间的随机数，也就是箭头需要旋转的度数+30）；Slide1.Shapes(2).Rotation=i–30：箭头旋转0、60、1180、240、300度-30，说明，箭头初始指针方向为0度（上箭头），-30度则干好在旭日图“1”的中部，其它的类推；SelectCasei：以i作为case选择条件Case0，当i=0时，指针旋转-30度，文本框显示文本：“恭喜你，你抽中了一等奖”，其它类推。备注：箭头中的数字是为了确定灯片中图形的目录（索引）Slide1.Shapes(2)，确定目录（索引）的方式为MsgBoxSlide1.Shapes(n).TextFrame.TextRange.Text在完成调试之前确定箭头的目录（索引），调试出具体数值后删除。在本例中为2（n为其它数值时会报错）。根据图形的插入顺序可能会有所增减。鼠标停留在click事件区域中点击运行或者在幻灯片反映时即可看到效果