简介一份面向高中物理总复习的精品课件聚焦“抛体运动与圆周运动”专题适用于高三备考学生及物理教师备课参考。课件以体系构建和考情快报开篇系统讲解运动的合成与分解的等时性、独立性、等效性平抛运动的速度与位移关系及两条重要推论并用无支撑、有支撑对比表格梳理竖直平面圆周运动最高点的临界条件。后续结合历年高考真题给出运动合成与分解类选择题的解题指导与逐项分析帮助读者明确合运动与分运动性质、掌握超重失重判断和相遇问题的分析方法。资源压缩包内共有1个PPT文件大小约2.09MB演示文稿形式便于课堂投屏或学生自主复习。目前已有48人学习浏览适合希望快速搭建曲线运动知识框架、提升综合应用能力的同学。1. 课件第3讲的开局抛体与圆周不只是画线而是参数动画这份《完美版课件第3讲 抛体运动与圆周运动.ppt》真正值钱的部分不是封面的排版而是两段运动的演示逻辑。物理课件里抛体运动难在轨迹随初速度、角度、重力加速度实时变化圆周运动难在速度方向每帧都不同、向心力方向始终指向圆心。把公式截图贴进幻灯片学生看到的是结论不是过程。常见做法是把小球做成一个可被 VBA 驱动的形状在每一帧重新计算它的坐标再写回 Left 和 Top 属性。这样老师改一个参数课件就能重新画一条轨迹。下面就用这份第3讲为例说清楚“抛体与圆周运动类 PPT 课件”从公式到可运行动画的完整路径。2. 用 VBA 逐帧驱动抛体运动把运动公式换算成 PPT 坐标2.1 为什么 PPT 自带的“动作路径”做不出真正的抛体PowerPoint 的“动画-添加动作路径”里有直线、弧形、自定义路径。自定义路径看起来可以画抛物线但它是一条编辑期画死的曲线和运动学公式没有任何绑定关系。老师在课堂上想改一个初速度就必须重新画一条路径想对比三个不同抛射角就要复制三份路径并手工对齐。动作路径只解决“从 A 到 B 怎么走”不解决“每一帧的位置由什么公式决定”。因此能用参数驱动的小球才是做第3类课件的基础。具体机制是VBA 读入 vx、vy、g 三个参数按匀变速运动公式算出小球当前坐标再把计算结果写进 Shape.Left 和 Shape.Top。每一帧都这样算一次屏幕上就会出现连续运动。这样得出的轨迹不是画出来的而是“算出来的”参数一变曲线自动跟着变。2.2 一个最小抛体动画的 VBA 实现在 PPT 里按 AltF11 打开 VBA 编辑器插入一个模块粘贴下面的代码。运行前先在“第3讲.ppt”第3张幻灯片上插入一个正圆并把形状名称改成Ball。Sub RunParabola() Dim oSlide As Slide Dim oBall As Shape, oDot As Shape Dim x0 As Double, y0 As Double Dim vx As Double, vy0 As Double, g As Double Dim scale As Double, dt As Double, t As Double Dim px As Double, py As Double Dim i As Long, n As Long Set oSlide Application.ActivePresentation.Slides(3) 清掉上一轮留下的轨迹点前缀 Pb_ 专属于本段演示 For n oSlide.Shapes.Count To 1 Step -1 If Left(oSlide.Shapes(n).Name, 3) Pb_ Then oSlide.Shapes(n).Delete End If Next n On Error Resume Next Set oBall oSlide.Shapes(Ball) On Error GoTo 0 If oBall Is Nothing Then MsgBox 请在第 3 页插入一个小圆并将形状名称改为 Ball Exit Sub End If 参数区位移单位为“物理单位”乘以 scale 后转成 PPT 磅值 x0 160 y0 300 vx 4 vy0 -8 g 1 scale 6 dt 0.05 For i 0 To 360 t i * dt px x0 vx * t * scale py y0 vy0 * t * scale 0.5 * g * t * t * scale oBall.Left px - oBall.Width / 2 oBall.Top py - oBall.Height / 2 轨迹点不需要每帧都画隔 8 帧画一个圆点即可 If i Mod 8 0 Then Set oDot oSlide.Shapes.AddShape(msoShapeOval, px - 1, py - 1, 2, 2) oDot.Name Pb_ i oDot.Line.Visible msoFalse oDot.Fill.ForeColor.RGB RGB(180, 40, 40) End If DoEvents Next i End Sub这段代码做了三件事先清理上一轮运行留下的轨迹点避免重复运行时旧路径叠加然后从幻灯片里按名称找到Ball这个小球最后按时间 t 逐帧计算位置并立即把新坐标赋给小球。核心参数如下表建议在做第3讲课件时把这张参数表直接放在备注栏里方便课堂现场调整参数示例值作用vx4水平“物理速度”乘 scale 后得到屏幕像素速度vy0-8竖直初速度PPT 坐标向下为正向上发射必须写负值g1重力加速度保持正值表示随时间推移越来越向下scale6物理单位到 PPT 磅值的缩放系数控制整条轨迹的尺寸dt0.05每帧时间间隔数值越小动画越慢而平滑2.3 PPT 坐标系与“y 轴向下”的换算抛体运动在课本里的公式是 y y0 vy0·t ½gt²默认竖直向上为正。但 PPT 的坐标系原点是幻灯片左上角x 向右增大y 向下增大。直接把教材公式抄进代码会得到一个“倒着飞”的抛体。所以在代码里必须把初速度的符号反转vy0 取 -8表示向上运动一段后再下落。位置公式整体变成py y0 vy0 * t * scale 0.5 * g * t * t * scale其中 vy0 本身是负值这样抛物线的前半段会让 py 变小小球看起来是向上走的。很多课件把轨迹做成“先向下再向上”的怪样子都是因为这个符号没有处理。验证方法很简单让 vy0 0轨迹应当只有水平位移和向下的加速下落如果图形变成先迅速下沉再弹起说明你在公式里用了“向上的通用公式”。注意scale 只负责整条轨迹的缩放不影响运动形状。轨迹出界时优先调 scale不要盲目改 g。把 g 从 1 改成 9.8 之前要确认初速度也按同一套“物理单位”换算否则动画会在一两帧内飞出页面。2.4 轨迹点太多卡顿怎么办VBA 逐帧动画最怕累积大量形状。每 8 帧画一个 2×2 磅的小圆点跑完 360 帧会留下约 45 个图层点PowerPoint 还能承受。如果为了画面细腻改成每帧都画一场 40 分钟的课讲到第三遍时形状数量翻三倍切换页面都会卡。建议把轨迹点统一加上Pb_前缀并在每次动画开始前做一次清理。上面代码开头的循环就是干这件事的。另外如果课堂上需要反复演示可以直接把这段清理循环绑定到一个按钮上按钮文字写“重置轨迹”比每次都进入 VBA 编辑器按 F5 更顺手。3. 圆周运动的向心力与速度方向用 VBA 做绕圆心旋转与标注3.1 为什么 Shape.Rotation 不能直接当圆周运动用许多老师第一次尝试圆周运动动画时会直接设置小球的 Rotation 属性。但 PPT 里的 Rotation 是形状绕自己的中心旋转不是绕幻灯片上的某个圆心旋转。如果小球本身是个正圆旋转后视觉上根本没有位移如果小球是个箭头旋转后也只是原地转圈不会绕圆心走轨迹。圆周运动的位置同样要手动按参数方程计算。设定圆心坐标 cx、cy 和半径 r让角度 a 从 0 累加到 2π每个角度计算一次px cx r * Cos(a) py cy - r * Sin(a)这里的 Sin 前加了负号是因为屏幕坐标系 y 向下。如果不加负号小球会沿着“视觉上的顺时针”运动和物理课本里常见的俯视逆时针方向相反。3.2 圆周运动 VBA 代码包含切向速度箭头和向心力箭头在幻灯片第 3 页上放一个小圆点命名为CenterDot再放一个运动小球命名为Mover。运行下面代码前先把第 3 章也要用到的旧轨迹清理干净。Sub RunCircle() Dim oSlide As Slide Dim oBall As Shape, oCenter As Shape, oDot As Shape Dim vLine As Shape, rLine As Shape Dim cx As Double, cy As Double, r As Double Dim a As Double, bx As Double, by As Double Dim sp As Double Dim i As Long, n As Long Set oSlide Application.ActivePresentation.Slides(3) 清理本轮演示用过的轨迹和标注线前缀 Cr_ 专用 For n oSlide.Shapes.Count To 1 Step -1 If Left(oSlide.Shapes(n).Name, 3) Cr_ Then oSlide.Shapes(n).Delete End If Next n On Error Resume Next Set oBall oSlide.Shapes(Mover) Set oCenter oSlide.Shapes(CenterDot) On Error GoTo 0 If oBall Is Nothing Or oCenter Is Nothing Then MsgBox 请把运动小球命名为 Mover圆心点命名为 CenterDot Exit Sub End If cx oCenter.Left oCenter.Width / 2 cy oCenter.Top oCenter.Height / 2 r 90 sp 45 For i 0 To 120 a i * 3 * 3.14159265 / 180 oBall.Left cx r * Cos(a) - oBall.Width / 2 oBall.Top cy - r * Sin(a) - oBall.Height / 2 oBall.Rotation a * 180 / 3.14159265 If i Mod 10 0 Then Set oDot oSlide.Shapes.AddShape(msoShapeOval, _ oBall.Left oBall.Width / 2 - 1, _ oBall.Top oBall.Height / 2 - 1, 2, 2) oDot.Name Cr_ i oDot.Line.Visible msoFalse oDot.Fill.ForeColor.RGB RGB(30, 100, 200) End If If i Mod 30 0 Then bx oBall.Left oBall.Width / 2 by oBall.Top oBall.Height / 2 红色箭头从球指向圆心代表向心力方向 Set rLine oSlide.Shapes.AddLine(bx, by, cx, cy) rLine.Name Cr_ i _R rLine.Line.ForeColor.RGB RGB(200, 40, 40) rLine.Line.EndArrowheadStyle msoArrowheadTriangle 绿色箭头沿切线方向代表该位置的速度方向 Set vLine oSlide.Shapes.AddLine(bx, by, _ bx - sp * Sin(a), by - sp * Cos(a)) vLine.Name Cr_ i _V vLine.Line.ForeColor.RGB RGB(0, 130, 70) End If DoEvents Next i End Sub这段代码在 120 帧内完成一圈旋转角度步长为 3 度。每 10 帧记录一个轨迹点每 30 帧画一组红绿箭头。红色箭头从小球位置指向圆心表示向心力绿色箭头是切向速度方向由位移公式对角度求导得到。参数示例值含义r90圆周半径单位是磅决定圆的大小每帧角度3 度角速度的视觉表示改大转得快dt0.05 秒若一帧约 0.05 秒角速度约为 60 度/秒即 1.05 rad/ssp45速度箭头长度太短看不见太长遮挡轨迹3.3 让姿态方向跟着速度走上面的代码里有一行oBall.Rotation a * 180 / 3.14159265。如果 Mover 不是正圆而是一个一端带尖的图形就能看到它一边绕圆心运动一边自动调整姿态。姿态角度和位置角度同步变化学生可以直观看到“圆周运动时物体方向一直在转”这是静态截图做不到的效果。如果更希望突出速度方向可以不用旋转小球把绿色箭头画长一点并加粗线宽。两种方式各有用途箭头适合讲“质点在某一点的瞬时速度方向”旋转图形适合讲“刚体绕圆心运动时的姿态变化”。课件里建议两种都做用布尔变量控制是否显示箭头。3.4 演示完怎么快速复位圆周运动跑完一圈后小球停在起点轨迹和箭头留在页面上。再次点击播放并不会自动清理。常见做法是在右下角放一个“重置”按钮指定宏为下面这段简单的清理逻辑Sub ClearCircle() Dim oSlide As Slide Dim n As Long Set oSlide Application.ActivePresentation.Slides(3) For n oSlide.Shapes.Count To 1 Step -1 If Left(oSlide.Shapes(n).Name, 3) Cr_ Then oSlide.Shapes(n).Delete End If Next n End Sub这样每次演示完成后点一下按钮就能回到干净页面不需要重新打开文件。4. 把“第3讲”做成一节课件系列命名、母版与动画参数集中管理4.1 “第3讲”不是孤立文件应该与整套课件共用母版物理课件往往有一整章第3讲只是其中一部分。单独做好一个 PPT 容易难在10讲放在一起时风格统一。常见做法是先打开第1讲进入“视图-幻灯片母版”把标题字号、页脚、页码、课程名称统一设置好再从这个母版派生出第3讲。后续想改课程名称或页脚只需要改母版所有讲次同步变化。不要为第3讲单独设计一套配色和字体。抛体运动与圆周运动这讲内容里图表多颜色要留给轨迹线和箭头。母版建议只用一套中性色正文黑色、标题深蓝、强调色统一用一种讲课时需要强调的地方再用动画和箭头颜色突出。4.2 用命名前缀管理运动形状VBA 代码里最怕写死 Shapes(3)、Shapes(4) 这种索引。老师在编辑课件时随时可能插入一张图片或文本框索引立刻失效。次日在课堂上放映时宏找不到对象报错也看不明白。在第3讲课件里建议给所有参与运动的形状加上统一前缀。这样代码可以通过名称稳定定位也方便写清理逻辑时一次性识别。前缀用途示例Ball_运动质点Ball_A、Ball_BCenter_圆心、参考点CenterDotParam_可调参数文本框Param_g、Param_vxAxis_坐标轴或参考线Axis_originBtn_触发按钮Btn_Run、Btn_Reset名称中不要带空格和中文。PowerPoint 形状重命名的方法是在“选择窗格”里双击名称或者通过简单 VBA 代码一次重命名。4.3 把 vx、vy0、g 从代码里提到参数页每次调参数都要打开 VBA 编辑器改代码对课堂演示来说太慢。常见做法是在第3讲课件的最后一页放一个“参数区”放三个文本框分别命名为 Param_vx、Param_vy、Param_g。运行时用一段通用函数读取文本框里的数字。Function GetParam(oSlide As Slide, sName As String) As Double Dim oShp As Shape On Error Resume Next Set oShp oSlide.Shapes(sName) On Error GoTo 0 If oShp Is Nothing Then GetParam 0 Else GetParam Val(Replace(oShp.TextFrame.TextRange.Text, ,, .)) End If End FunctionGetParam接受幻灯片对象和形状名称找到文本框后读取内容用Replace把可能的小数逗号替换成点号再由Val转成数值。调用时只需在 RunParabola 里把固定参数改为vx GetParam(oSlide, Param_vx) vy0 -GetParam(oSlide, Param_vy) g GetParam(oSlide, Param_g)这里把 Param_vy 读取后再取负是因为文本框里写的是“向上为正”的物理初速度进入 PPT 坐标系前需要符号翻转。参数集中到页面上以后老师可以在讲课前直接在幻灯片里改数字不用接触代码。4.4 保存格式宏课件与旧版本兼容写入 VBA 的 PPT 无法以普通 .pptx 保存并保留代码。在“另存为”时选择“PowerPoint 启用宏的演示文稿”即 .pptm 格式。如果仍想获得 .ppt 扩展名PowerPoint 会提示部分功能丢失通常不建议。团队内部分发时把 .pptm 和 .pptx 两个文件同时发出一个用于课堂播放动画效果一个用于日常内容编辑和打印讲义。打开 .pptm 时PowerPoint 会显示“已禁止宏”或“启用内容”的安全提示。建议在正式上课前到教室电脑上测试一次宏是否可用。如果目标机器有杀毒软件拦截 VBA备选方案是把动画预录成视频片段再嵌入到静态版 .pptx 中播放效果接近但无法实时改参数。5. 完美版课件的验收从参数复现到双球对照5.1 用“双球对照”验证参数变化是否生效只做一个小球的动画看不出参数改动的意义。在课件里再放一个Ball_B用不同颜色标记让两个球从同一位置同一次运行就能直观对比初速度大小或重力加速度对轨迹的影响。Sub RunCompare() Dim oSlide As Slide Dim oBallA As Shape, oBallB As Shape Dim i As Long, n As Long Dim t As Double, dt As Double Dim vx As Double, g As Double, y0 As Double Set oSlide Application.ActivePresentation.Slides(3) Set oBallA oSlide.Shapes(Ball_A) Set oBallB oSlide.Shapes(Ball_B) dt 0.05 vx 4 g 1 y0 300 For i 0 To 360 t i * dt oBallA.Left 160 vx * t * 6 - oBallA.Width / 2 oBallA.Top y0 - 8 * t * 6 0.5 * g * t * t * 6 - oBallA.Height / 2 oBallB.Left 160 vx * 1.3 * t * 6 - oBallB.Width / 2 oBallB.Top y0 - 8 * t * 6 0.5 * g * t * t * 6 - oBallB.Height / 2 DoEvents Next i End Sub两个球的区别只在水平初速度上一个用 vx一个用 vx×1.3。最终看到的轨迹应该是 A 球落点更近B 球落点更远但高度相同。如果高度也不同说明两套初速度参数在代码里写串了。5.2 验收清单检查项判定标准失败时先看哪里抛体是否先升后落vy0 为负时轨迹先向上PPT 坐标 y 轴方向是否漏掉负号轨迹是否左右对称上升与下降阶段关于最高点对称重力加速度 g 是否恒定dt 是否均匀圆周是否首尾相接最后一帧位置回到起始点循环角度是否累加到 360 度箭头方向是否正确速度箭头沿切线向心力箭头指向圆心切线向量是否对角度求导正确宏运行是否流畅整段动画无卡顿轨迹点不叠加轨迹点是否每帧都画清理循环是否生效参数修改是否即时改文本框后重跑轨迹随之变化GetParam 是否读取到对象名称把这套 VBA 和参数表存成个人模板下次再做类似课件时只需要替换小球图形和课堂文案第3讲这一类运动演示内容就能持续复用。本文还有配套的精品资源点击获取 用VBA在PPT中实现抛体与圆周运动参数动画
简介一份面向高中物理总复习的精品课件聚焦“抛体运动与圆周运动”专题适用于高三备考学生及物理教师备课参考。课件以体系构建和考情快报开篇系统讲解运动的合成与分解的等时性、独立性、等效性平抛运动的速度与位移关系及两条重要推论并用无支撑、有支撑对比表格梳理竖直平面圆周运动最高点的临界条件。后续结合历年高考真题给出运动合成与分解类选择题的解题指导与逐项分析帮助读者明确合运动与分运动性质、掌握超重失重判断和相遇问题的分析方法。资源压缩包内共有1个PPT文件大小约2.09MB演示文稿形式便于课堂投屏或学生自主复习。目前已有48人学习浏览适合希望快速搭建曲线运动知识框架、提升综合应用能力的同学。1. 课件第3讲的开局抛体与圆周不只是画线而是参数动画这份《完美版课件第3讲 抛体运动与圆周运动.ppt》真正值钱的部分不是封面的排版而是两段运动的演示逻辑。物理课件里抛体运动难在轨迹随初速度、角度、重力加速度实时变化圆周运动难在速度方向每帧都不同、向心力方向始终指向圆心。把公式截图贴进幻灯片学生看到的是结论不是过程。常见做法是把小球做成一个可被 VBA 驱动的形状在每一帧重新计算它的坐标再写回 Left 和 Top 属性。这样老师改一个参数课件就能重新画一条轨迹。下面就用这份第3讲为例说清楚“抛体与圆周运动类 PPT 课件”从公式到可运行动画的完整路径。2. 用 VBA 逐帧驱动抛体运动把运动公式换算成 PPT 坐标2.1 为什么 PPT 自带的“动作路径”做不出真正的抛体PowerPoint 的“动画-添加动作路径”里有直线、弧形、自定义路径。自定义路径看起来可以画抛物线但它是一条编辑期画死的曲线和运动学公式没有任何绑定关系。老师在课堂上想改一个初速度就必须重新画一条路径想对比三个不同抛射角就要复制三份路径并手工对齐。动作路径只解决“从 A 到 B 怎么走”不解决“每一帧的位置由什么公式决定”。因此能用参数驱动的小球才是做第3类课件的基础。具体机制是VBA 读入 vx、vy、g 三个参数按匀变速运动公式算出小球当前坐标再把计算结果写进 Shape.Left 和 Shape.Top。每一帧都这样算一次屏幕上就会出现连续运动。这样得出的轨迹不是画出来的而是“算出来的”参数一变曲线自动跟着变。2.2 一个最小抛体动画的 VBA 实现在 PPT 里按 AltF11 打开 VBA 编辑器插入一个模块粘贴下面的代码。运行前先在“第3讲.ppt”第3张幻灯片上插入一个正圆并把形状名称改成Ball。Sub RunParabola() Dim oSlide As Slide Dim oBall As Shape, oDot As Shape Dim x0 As Double, y0 As Double Dim vx As Double, vy0 As Double, g As Double Dim scale As Double, dt As Double, t As Double Dim px As Double, py As Double Dim i As Long, n As Long Set oSlide Application.ActivePresentation.Slides(3) 清掉上一轮留下的轨迹点前缀 Pb_ 专属于本段演示 For n oSlide.Shapes.Count To 1 Step -1 If Left(oSlide.Shapes(n).Name, 3) Pb_ Then oSlide.Shapes(n).Delete End If Next n On Error Resume Next Set oBall oSlide.Shapes(Ball) On Error GoTo 0 If oBall Is Nothing Then MsgBox 请在第 3 页插入一个小圆并将形状名称改为 Ball Exit Sub End If 参数区位移单位为“物理单位”乘以 scale 后转成 PPT 磅值 x0 160 y0 300 vx 4 vy0 -8 g 1 scale 6 dt 0.05 For i 0 To 360 t i * dt px x0 vx * t * scale py y0 vy0 * t * scale 0.5 * g * t * t * scale oBall.Left px - oBall.Width / 2 oBall.Top py - oBall.Height / 2 轨迹点不需要每帧都画隔 8 帧画一个圆点即可 If i Mod 8 0 Then Set oDot oSlide.Shapes.AddShape(msoShapeOval, px - 1, py - 1, 2, 2) oDot.Name Pb_ i oDot.Line.Visible msoFalse oDot.Fill.ForeColor.RGB RGB(180, 40, 40) End If DoEvents Next i End Sub这段代码做了三件事先清理上一轮运行留下的轨迹点避免重复运行时旧路径叠加然后从幻灯片里按名称找到Ball这个小球最后按时间 t 逐帧计算位置并立即把新坐标赋给小球。核心参数如下表建议在做第3讲课件时把这张参数表直接放在备注栏里方便课堂现场调整参数示例值作用vx4水平“物理速度”乘 scale 后得到屏幕像素速度vy0-8竖直初速度PPT 坐标向下为正向上发射必须写负值g1重力加速度保持正值表示随时间推移越来越向下scale6物理单位到 PPT 磅值的缩放系数控制整条轨迹的尺寸dt0.05每帧时间间隔数值越小动画越慢而平滑2.3 PPT 坐标系与“y 轴向下”的换算抛体运动在课本里的公式是 y y0 vy0·t ½gt²默认竖直向上为正。但 PPT 的坐标系原点是幻灯片左上角x 向右增大y 向下增大。直接把教材公式抄进代码会得到一个“倒着飞”的抛体。所以在代码里必须把初速度的符号反转vy0 取 -8表示向上运动一段后再下落。位置公式整体变成py y0 vy0 * t * scale 0.5 * g * t * t * scale其中 vy0 本身是负值这样抛物线的前半段会让 py 变小小球看起来是向上走的。很多课件把轨迹做成“先向下再向上”的怪样子都是因为这个符号没有处理。验证方法很简单让 vy0 0轨迹应当只有水平位移和向下的加速下落如果图形变成先迅速下沉再弹起说明你在公式里用了“向上的通用公式”。注意scale 只负责整条轨迹的缩放不影响运动形状。轨迹出界时优先调 scale不要盲目改 g。把 g 从 1 改成 9.8 之前要确认初速度也按同一套“物理单位”换算否则动画会在一两帧内飞出页面。2.4 轨迹点太多卡顿怎么办VBA 逐帧动画最怕累积大量形状。每 8 帧画一个 2×2 磅的小圆点跑完 360 帧会留下约 45 个图层点PowerPoint 还能承受。如果为了画面细腻改成每帧都画一场 40 分钟的课讲到第三遍时形状数量翻三倍切换页面都会卡。建议把轨迹点统一加上Pb_前缀并在每次动画开始前做一次清理。上面代码开头的循环就是干这件事的。另外如果课堂上需要反复演示可以直接把这段清理循环绑定到一个按钮上按钮文字写“重置轨迹”比每次都进入 VBA 编辑器按 F5 更顺手。3. 圆周运动的向心力与速度方向用 VBA 做绕圆心旋转与标注3.1 为什么 Shape.Rotation 不能直接当圆周运动用许多老师第一次尝试圆周运动动画时会直接设置小球的 Rotation 属性。但 PPT 里的 Rotation 是形状绕自己的中心旋转不是绕幻灯片上的某个圆心旋转。如果小球本身是个正圆旋转后视觉上根本没有位移如果小球是个箭头旋转后也只是原地转圈不会绕圆心走轨迹。圆周运动的位置同样要手动按参数方程计算。设定圆心坐标 cx、cy 和半径 r让角度 a 从 0 累加到 2π每个角度计算一次px cx r * Cos(a) py cy - r * Sin(a)这里的 Sin 前加了负号是因为屏幕坐标系 y 向下。如果不加负号小球会沿着“视觉上的顺时针”运动和物理课本里常见的俯视逆时针方向相反。3.2 圆周运动 VBA 代码包含切向速度箭头和向心力箭头在幻灯片第 3 页上放一个小圆点命名为CenterDot再放一个运动小球命名为Mover。运行下面代码前先把第 3 章也要用到的旧轨迹清理干净。Sub RunCircle() Dim oSlide As Slide Dim oBall As Shape, oCenter As Shape, oDot As Shape Dim vLine As Shape, rLine As Shape Dim cx As Double, cy As Double, r As Double Dim a As Double, bx As Double, by As Double Dim sp As Double Dim i As Long, n As Long Set oSlide Application.ActivePresentation.Slides(3) 清理本轮演示用过的轨迹和标注线前缀 Cr_ 专用 For n oSlide.Shapes.Count To 1 Step -1 If Left(oSlide.Shapes(n).Name, 3) Cr_ Then oSlide.Shapes(n).Delete End If Next n On Error Resume Next Set oBall oSlide.Shapes(Mover) Set oCenter oSlide.Shapes(CenterDot) On Error GoTo 0 If oBall Is Nothing Or oCenter Is Nothing Then MsgBox 请把运动小球命名为 Mover圆心点命名为 CenterDot Exit Sub End If cx oCenter.Left oCenter.Width / 2 cy oCenter.Top oCenter.Height / 2 r 90 sp 45 For i 0 To 120 a i * 3 * 3.14159265 / 180 oBall.Left cx r * Cos(a) - oBall.Width / 2 oBall.Top cy - r * Sin(a) - oBall.Height / 2 oBall.Rotation a * 180 / 3.14159265 If i Mod 10 0 Then Set oDot oSlide.Shapes.AddShape(msoShapeOval, _ oBall.Left oBall.Width / 2 - 1, _ oBall.Top oBall.Height / 2 - 1, 2, 2) oDot.Name Cr_ i oDot.Line.Visible msoFalse oDot.Fill.ForeColor.RGB RGB(30, 100, 200) End If If i Mod 30 0 Then bx oBall.Left oBall.Width / 2 by oBall.Top oBall.Height / 2 红色箭头从球指向圆心代表向心力方向 Set rLine oSlide.Shapes.AddLine(bx, by, cx, cy) rLine.Name Cr_ i _R rLine.Line.ForeColor.RGB RGB(200, 40, 40) rLine.Line.EndArrowheadStyle msoArrowheadTriangle 绿色箭头沿切线方向代表该位置的速度方向 Set vLine oSlide.Shapes.AddLine(bx, by, _ bx - sp * Sin(a), by - sp * Cos(a)) vLine.Name Cr_ i _V vLine.Line.ForeColor.RGB RGB(0, 130, 70) End If DoEvents Next i End Sub这段代码在 120 帧内完成一圈旋转角度步长为 3 度。每 10 帧记录一个轨迹点每 30 帧画一组红绿箭头。红色箭头从小球位置指向圆心表示向心力绿色箭头是切向速度方向由位移公式对角度求导得到。参数示例值含义r90圆周半径单位是磅决定圆的大小每帧角度3 度角速度的视觉表示改大转得快dt0.05 秒若一帧约 0.05 秒角速度约为 60 度/秒即 1.05 rad/ssp45速度箭头长度太短看不见太长遮挡轨迹3.3 让姿态方向跟着速度走上面的代码里有一行oBall.Rotation a * 180 / 3.14159265。如果 Mover 不是正圆而是一个一端带尖的图形就能看到它一边绕圆心运动一边自动调整姿态。姿态角度和位置角度同步变化学生可以直观看到“圆周运动时物体方向一直在转”这是静态截图做不到的效果。如果更希望突出速度方向可以不用旋转小球把绿色箭头画长一点并加粗线宽。两种方式各有用途箭头适合讲“质点在某一点的瞬时速度方向”旋转图形适合讲“刚体绕圆心运动时的姿态变化”。课件里建议两种都做用布尔变量控制是否显示箭头。3.4 演示完怎么快速复位圆周运动跑完一圈后小球停在起点轨迹和箭头留在页面上。再次点击播放并不会自动清理。常见做法是在右下角放一个“重置”按钮指定宏为下面这段简单的清理逻辑Sub ClearCircle() Dim oSlide As Slide Dim n As Long Set oSlide Application.ActivePresentation.Slides(3) For n oSlide.Shapes.Count To 1 Step -1 If Left(oSlide.Shapes(n).Name, 3) Cr_ Then oSlide.Shapes(n).Delete End If Next n End Sub这样每次演示完成后点一下按钮就能回到干净页面不需要重新打开文件。4. 把“第3讲”做成一节课件系列命名、母版与动画参数集中管理4.1 “第3讲”不是孤立文件应该与整套课件共用母版物理课件往往有一整章第3讲只是其中一部分。单独做好一个 PPT 容易难在10讲放在一起时风格统一。常见做法是先打开第1讲进入“视图-幻灯片母版”把标题字号、页脚、页码、课程名称统一设置好再从这个母版派生出第3讲。后续想改课程名称或页脚只需要改母版所有讲次同步变化。不要为第3讲单独设计一套配色和字体。抛体运动与圆周运动这讲内容里图表多颜色要留给轨迹线和箭头。母版建议只用一套中性色正文黑色、标题深蓝、强调色统一用一种讲课时需要强调的地方再用动画和箭头颜色突出。4.2 用命名前缀管理运动形状VBA 代码里最怕写死 Shapes(3)、Shapes(4) 这种索引。老师在编辑课件时随时可能插入一张图片或文本框索引立刻失效。次日在课堂上放映时宏找不到对象报错也看不明白。在第3讲课件里建议给所有参与运动的形状加上统一前缀。这样代码可以通过名称稳定定位也方便写清理逻辑时一次性识别。前缀用途示例Ball_运动质点Ball_A、Ball_BCenter_圆心、参考点CenterDotParam_可调参数文本框Param_g、Param_vxAxis_坐标轴或参考线Axis_originBtn_触发按钮Btn_Run、Btn_Reset名称中不要带空格和中文。PowerPoint 形状重命名的方法是在“选择窗格”里双击名称或者通过简单 VBA 代码一次重命名。4.3 把 vx、vy0、g 从代码里提到参数页每次调参数都要打开 VBA 编辑器改代码对课堂演示来说太慢。常见做法是在第3讲课件的最后一页放一个“参数区”放三个文本框分别命名为 Param_vx、Param_vy、Param_g。运行时用一段通用函数读取文本框里的数字。Function GetParam(oSlide As Slide, sName As String) As Double Dim oShp As Shape On Error Resume Next Set oShp oSlide.Shapes(sName) On Error GoTo 0 If oShp Is Nothing Then GetParam 0 Else GetParam Val(Replace(oShp.TextFrame.TextRange.Text, ,, .)) End If End FunctionGetParam接受幻灯片对象和形状名称找到文本框后读取内容用Replace把可能的小数逗号替换成点号再由Val转成数值。调用时只需在 RunParabola 里把固定参数改为vx GetParam(oSlide, Param_vx) vy0 -GetParam(oSlide, Param_vy) g GetParam(oSlide, Param_g)这里把 Param_vy 读取后再取负是因为文本框里写的是“向上为正”的物理初速度进入 PPT 坐标系前需要符号翻转。参数集中到页面上以后老师可以在讲课前直接在幻灯片里改数字不用接触代码。4.4 保存格式宏课件与旧版本兼容写入 VBA 的 PPT 无法以普通 .pptx 保存并保留代码。在“另存为”时选择“PowerPoint 启用宏的演示文稿”即 .pptm 格式。如果仍想获得 .ppt 扩展名PowerPoint 会提示部分功能丢失通常不建议。团队内部分发时把 .pptm 和 .pptx 两个文件同时发出一个用于课堂播放动画效果一个用于日常内容编辑和打印讲义。打开 .pptm 时PowerPoint 会显示“已禁止宏”或“启用内容”的安全提示。建议在正式上课前到教室电脑上测试一次宏是否可用。如果目标机器有杀毒软件拦截 VBA备选方案是把动画预录成视频片段再嵌入到静态版 .pptx 中播放效果接近但无法实时改参数。5. 完美版课件的验收从参数复现到双球对照5.1 用“双球对照”验证参数变化是否生效只做一个小球的动画看不出参数改动的意义。在课件里再放一个Ball_B用不同颜色标记让两个球从同一位置同一次运行就能直观对比初速度大小或重力加速度对轨迹的影响。Sub RunCompare() Dim oSlide As Slide Dim oBallA As Shape, oBallB As Shape Dim i As Long, n As Long Dim t As Double, dt As Double Dim vx As Double, g As Double, y0 As Double Set oSlide Application.ActivePresentation.Slides(3) Set oBallA oSlide.Shapes(Ball_A) Set oBallB oSlide.Shapes(Ball_B) dt 0.05 vx 4 g 1 y0 300 For i 0 To 360 t i * dt oBallA.Left 160 vx * t * 6 - oBallA.Width / 2 oBallA.Top y0 - 8 * t * 6 0.5 * g * t * t * 6 - oBallA.Height / 2 oBallB.Left 160 vx * 1.3 * t * 6 - oBallB.Width / 2 oBallB.Top y0 - 8 * t * 6 0.5 * g * t * t * 6 - oBallB.Height / 2 DoEvents Next i End Sub两个球的区别只在水平初速度上一个用 vx一个用 vx×1.3。最终看到的轨迹应该是 A 球落点更近B 球落点更远但高度相同。如果高度也不同说明两套初速度参数在代码里写串了。5.2 验收清单检查项判定标准失败时先看哪里抛体是否先升后落vy0 为负时轨迹先向上PPT 坐标 y 轴方向是否漏掉负号轨迹是否左右对称上升与下降阶段关于最高点对称重力加速度 g 是否恒定dt 是否均匀圆周是否首尾相接最后一帧位置回到起始点循环角度是否累加到 360 度箭头方向是否正确速度箭头沿切线向心力箭头指向圆心切线向量是否对角度求导正确宏运行是否流畅整段动画无卡顿轨迹点不叠加轨迹点是否每帧都画清理循环是否生效参数修改是否即时改文本框后重跑轨迹随之变化GetParam 是否读取到对象名称把这套 VBA 和参数表存成个人模板下次再做类似课件时只需要替换小球图形和课堂文案第3讲这一类运动演示内容就能持续复用。本文还有配套的精品资源点击获取