让ppt课件演绎灵动体验

《让ppt课件演绎灵动体验》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

让PPT课件演绎灵动体验——例谈PPT在演示过程中任意变化三角形形状的制作一、问题提出背景随着现代信息技术在学校教学中的普及深入，多媒体课件已成为优化课堂教学、提高教学效益的一个不可缺少的辅助手段。PowerPoint软件（简称PPT）与Word同出一门，易学易用，能够制作集文字、图像、声音、视频剪辑等融于一体的教学课件，被老师们广泛应用于课堂教学。然而，虽然PPT在显示静态图形时具有较强的性能，但其在多媒体素材集成和交互控制等方面效果并不理想。三角形作为一种基本形状，在数学、英语、自然、美术等多门学科教学中被提及运用，有时需要教师在教学中不断呈现各种样式的三角形以解析相关知识内容。这时，若只用静态图形展示将很难有充分说服力，如果将三角形做成可动态变化的模式，教师现场展示三角形各种变化过程，能更加有助于学生直观形象地生动学习。为了在课件中实现随心所欲地呈现图形变化过程，老师往往会借助其它软件制作，然后通过PPT调用，这样显然会降低PPT课件在演示时的流畅性。为此，本文通过“PPT在演示过程中任意变化三角形形状的制作”的实例，研究在PPT中运用VBA技术，进行动态绘图的方法，以促进对PPT绘图的应用。二、问题解决与实施1、解决鼠标拖曳问题 解决鼠标拖曳问题有两种方式：第一种是用幻灯片上的自选图形进行动作设置，然后运行宏，宏代码保存在模块中。第二种是采用控件，然后由控件的鼠标事件来完成。第一种方式由于需要“执行宏”操作，所以需要鼠标单击自选图形后移动鼠标操作，移动鼠标时不需要按键，这与通常的按鼠标左键拖曳有点不同，因此，本实例采用的是第二种方式，采用按鼠标左键拖曳的方式。2、解决动态画线问题在PPT中采用VBA画线方法有三种，它们是：DrawLine、AddLine、AddPolyLine。三种画线方法的应用对象、画线特点、删除方法如下表所示：画线方法应用对象画线特点删除方法DrawLineSlideShowWindow能显示画线过程的动画效果，画线速度可控，可改变线型的颜色，但不能改变线型的粗细，可画简单直线和复杂曲线。ErasDrawing，场景或屏幕发生变化时自动删除。AddLineShapes集合不能显示画线过程的动画效果，画线过程一次完成，速度不可控，但可改变线型的颜色和粗细，只能画简单直线。Delete AddPolyLineShapes集合不能显示画线过程的动画效果，画线过程一次完成，速度不可控，但可改变线型的颜色和粗细，可画简单直线和复杂曲线。Delete因此，本实例采用的是DrawLine与AddLine两种画线方法。3、具体实施过程1、在PPT中打开控件工具栏，拖三个图像控件，作为三个顶点，名称分别设为I1、I2、I3，调整好大小。BackColor属性设为想要的颜色，若使用图片，在Picture中加入需要的图片，将AutoSize属性设为True。2、双击I1控件，打开代码编写窗口，考虑到程序的需要，先定义四个变量：X0、Y0为整型数据，目的是储存鼠标的指针位置坐标，Down、m为逻辑型数据，其中Down为记录鼠标是否按下的状态变量，m为程序判断的中间变量。然后，分别选择MouseDown、MouseMove、MouseUp三种鼠标事件进行程序设计。当鼠标左键被按下时，便触发MouseDown事件。在MouseDown事件中，先设置线型的颜色（本实例选择蓝色）、鼠标状态变量，读取鼠标指针的位置坐标。代码如下：PrivateSubI1_MouseDown(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)ActivePresentation.SlideShowSettings.Run.View.PointerColor.RGB=RGB(0,0,255) Down=TrueX0=XY0=YEndSub当鼠标移动时，便触发MouseMove事件。在MouseMove事件中，读取鼠标指针的位置坐标，然后用Delete方法将原来连接此顶点的两条边线擦掉，此时若不指定被擦线的名称，它将删除所有的画线，因此三角形的三条边线都必须指定名称，如d1、d2、d3。指定线的名称的方法，可以采用先在幻灯片编辑窗口中画一条线段，然后打开脚本编辑器，将其中程序自动分配的名称改为指定的名称；也可以用AddLine方法画指定名称线段。接着再用AddLine方法使用相同的名称重画两条边线。当鼠标不停移动时，便需要不停地画线，但画线的痕迹不能保留，这可以用DrawLine方法来实现。问题是：当鼠标停止移动时（左键仍然按着），这时，用DrawLine方法画的线将自动被擦除，也就是连接此顶点的两条边线没了，当然，我们可以用AddLine方法使用相同的名称再重画这两条边线，但由于这时程序仍然在运行，当所画线与幻灯片上已有线重名时，程序将出错。因此，在这里便使用了一个状态参数m来控制不要AddLine方法重复画线，将此问题解决。具体代码如下：PrivateSubI1_MouseMove(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)IfDownThen‘如果按下鼠标左键。I1.Left=I1.Left+X-X0‘ 计算顶点随鼠标指针移动到新位置时的左边距。I1.Top=I1.Top+Y-Y0‘计算顶点随鼠标指针移动到新位置时的顶边距X0=X‘重新读取鼠标水平位置。Y0=Y‘重新读取鼠标垂直位置。m=False‘设置中间变量是假。OnErrorResumeNext‘若程序出错不要中断仍然执行下去。SlideShowWindows(1).View.Slide.Shapes("d1").Delete‘删除连接顶点的一条边。SlideShowWindows(1).View.Slide.Shapes("d2").Delete‘删除连接顶点的另一条边。ActivePresentation.SlideShowWindow.View.DrawLineI2.Left+I2.Width/2,I2.Top+I2.Height/2,I1.Left+I1.Width/2,I1.Top+I1.Height/2‘动态画一条边。ActivePresentation.SlideShowWindow.View.DrawLineI3.Left+I3.Width/2,I3.Top+I3.Height/2,I1.Left+I1.Width/2,I1.Top+I1.Height/2‘动态画另一条边。DoEvents‘产生一个中断以便释放系统资源。Ifm=FalseThen‘如果中间变量是假。WithSlideShowWindows(1).View.Slide.Shapes.AddLine(I2.Left+I2.Width/2,I2.Top+I2.Height/2,I1.Left+I1.Width/2,I1.Top+I1.Height/2)‘呈现一条边线。 .Name="d1"‘设置边线名称。.Line.ForeColor.RGB=RGB(0,0,255)‘设置边线颜色。.Line.DashStyle=msoLineSolid‘设置边线线型。.Line.Weight=1.25‘设置边线粗细。EndWithWithSlideShowWindows(1).View.Slide.Shapes.AddLine(I3.Left+I3.Width/2,I3.Top+I3.Height/2,I1.Left+I1.Width/2,I1.Top+I1.Height/2)‘呈现另一条边线。.Name="d2"‘设置边线名称。.Line.ForeColor.RGB=RGB(0,0,255)‘设置边线颜色。.Line.DashStyle=msoLineSolid‘设置边线线型。.Line.Weight=1.25‘设置边线粗细。EndWithm=True‘设置中间变量是真。EndIfEndIfEndSub当鼠标左键释放时，便触发MouseUp事件，在MouseUp事件中，鼠标状态变量重新设置，作一次幻灯片切换，还是切换到本幻灯片，以刷新幻灯片上的显示内容。编写代码如下：PrivateSubI1_MouseUp(ByValButtonAsInteger,ByValShiftAs Integer,ByValXAsSingle,ByValYAsSingle)Down=FalseSlideShowWindows(1).View.GotoSlide(14)EndSub以上是一个顶点的程序设计，其它两个顶点设计与此相似。在演示幻灯片前，应先将PPT的宏安全性设置为“中”或“低”，以保证程序能正常运行。三、实践体验就本例“PPT在演示过程中任意变化三角形形状的制作”在小学数学二年级《三角形的分类》一课中的运用实效而言，它提升了课堂学习的趣味性、直观性、自主性和探究型，它可以给学生创造一个实际“操作”几何图形的环境，学生和教师都可以任意拖动图形、观察图形、猜测和验证结论，在观察、探索、发现的过程中增加对各种图形的感性认识，形成一定的几何经验背景从而更有助于学生对数学的学习和理解，激发了学习的热情，体验到发现的快乐，提高课堂教学效率。通过灵活运用PPT软件中的VBA技术，可大大增强其演绎的灵动性，在创设情境、模型转化、形成表象、动态解析、过程展示等方面的优势为学生的学习提供丰富多彩的教学环境和有力的教育工具。本文仅仅是一个例证，我们还可以作更多尝试。诚然，如果借助几何画板等工具，我们也可达到相同制作效果。只是因为PPT是目前运用最广泛的教学软件之一，我们努力尝试挖掘其更广更深的自带功能，让它更好服务于教学实践。 2012年4月