可实现数字自动滚动抽奖效果：一、文本框+上升动画模拟滚动；二、多页幻灯片轮播法；三、VBA脚本驱动随机滚动。各方法适配不同需求，支持MacBook Air M2系统。
如果您希望在年会或活动现场实现数字自动滚动、营造紧张抽奖氛围，但PPT中未呈现连续动态数字效果，则可能是由于动画类型选择不当或关键参数未配置。以下是实现该效果的具体操作路径：
成品ppt在线生成，百种模板可供选择☜☜☜☜☜点击使用；
本文运行环境：MacBook Air M2，macOS Sequoia。
一、使用文本框+上升动画模拟滚动
该方法利用单个文本框内多行数字的垂直位移动画，通过快速重复“上升”动作制造视觉滚动感，无需额外插件且兼容WPS与PowerPoint。
1、在幻灯片中央插入一个矩形形状作为显示区域，右键设置形状格式，填充色设为深蓝，边框设为白色加粗。
2、在矩形内插入文本框，输入全部候选数字，每行一个，例如“01”“02”“03”……“99”“100”，字体设为加粗、白色、字号80。
3、选中文本框，切换至“动画”选项卡，点击“添加动画”，在“进入”类中选择上升效果。
4、打开“动画窗格”，右键该动画→“效果选项”，在“效果”页签中将“方向”设为自底部；在“计时”页签中，“重复”设为直到下一次单击，“期间”设为0.3秒，“延迟”设为0秒。
5、再次右键该动画→“计时”→勾选与上一动画同时，确保启动无停顿。
二、多页幻灯片轮播法
此方案将每个数字独立置于一张幻灯片，依靠PPT内置的自动翻页机制形成高速轮换，视觉上等效于数字滚动，稳定性高且易于控制暂停/继续。
1、新建空白演示文稿，依次插入与候选人数等量的幻灯片（如100人则插入100张）。
2、在每张幻灯片中央插入文本框，仅输入对应数字，统一设置为黑体、120号、居中、白色，背景设为纯黑色。
3、全选所有幻灯片，在“切换”选项卡中，取消“单击鼠标时”切换，勾选“设置自动换片时间”，数值设为00:00:0.1（即100毫秒每页）。
4、点击“幻灯片放映”→“设置幻灯片放映”，弹出窗口中勾选循环放映，按ESC键终止，点击确定。
5、开始放映后，按空格键可暂停，再按一次继续，ESC退出放映。
三、VBA脚本驱动随机滚动（进阶）
适用于需真正随机终止、避免人为干预的正式场合，通过代码控制文本框内容刷新频率与最终停靠位置，突破PPT原生动画逻辑限制。
1、按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：
Sub StartRolling()
Dim i As Integer
Dim rng As Range
Dim slide As slide
Set slide = ActivePresentation.Slides(1)
For i = 1 To 200
slide.Shapes("RollBox").TextFrame.TextRange.Text = CStr(Int(Rnd * 100) + 1)
DoEvents
Application.Wait Now + TimeValue("00:00:00.05")
Next i
slide.Shapes("RollBox").TextFrame.TextRange.Text = CStr(Int(Rnd * 100) + 1)
End Sub
2、返回PPT，在第一张幻灯片中插入文本框，命名为RollBox（右键→“设置形状格式”→“大小与属性”→“名称”栏填写）。
3、插入按钮形状，右键→“指定宏”→选择StartRolling，即可单击触发滚动。
4、运行前确认已启用宏：点击“文件”→“选项”→“信任中心”→“信任中心设置”→“宏设置”→选择启用所有宏（仅限可信环境）。
