【视频教程】教你制作精美的PPT大转盘可随机抽奖 vba代码控制多次开始停止

首先祝大家圣诞快乐！也是我女儿满月快乐！

前几天也在头条上看到有个教制作抽奖转盘的，看了下，样子是出来了，但是核心的问题，抽奖没实现，所以并没什么卵用，我本人是玩excel的，ppt并不熟，但是无奈好奇害死猫，下功夫钻研了2天，用excel饼图做出了转盘终于是实现了点击按钮转盘告诉旋转，然后点暂停即可停止转盘，和真实转盘的体验很像，不敢独享，发出来大家一起玩，相信有些人公司开年会什么的，也许还能用，另外我视频里也讲解了核心的几个制作步骤，希望大家也能学点东西,好了废话少说，来看我的视频吧，有什么想了解的 欢迎吐槽和评论！

核心功能，转盘点击抽奖后转动转盘，点击停止就停止 箭头指向位置即为当前奖项

抽奖大转盘

抽奖大转盘制作步骤

VBA代码如下

Sub 抽奖()
Dim x
SlideShowWindows(1).View.State = ppSlideShowRunning
SlideShowWindows(1).View.FirstAnimationIsAutomatic
End Sub
Sub 停止()
SlideShowWindows(1).View.State = ppSlideShowPaused
End Sub