让ppt课件演绎灵动体验

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

1、让PPT课件演绎灵动体验——例谈PPT在演示过程中任意变化三角形形状的制作一、问题提出背景随着现代信息技术在学校教学中的普及深入，多媒体课件已成为优化课堂教学、提高教学效益的一个不可缺少的辅助手段。PowerPoint软件（简称PPT）与Word同出一门，易学易用，能够制作集文字、图像、声音、视频剪辑等融于一体的教学课件，被老师们广泛应用于课堂教学。然而，虽然PPT在显示静态图形时具有较强的性能，但其在多媒体素材集成和交互控制等方面效果并不理想。三角形作为一种基本形状，在数学、英语、自然、美术等多门学科教学中被提及运用

2、，有时需要教师在教学中不断呈现各种样式的三角形以解析相关知识内容。这时，若只用静态图形展示将很难有充分说服力，如果将三角形做成可动态变化的模式，教师现场展示三角形各种变化过程，能更加有助于学生直观形象地生动学习。为了在课件中实现随心所欲地呈现图形变化过程，老师往往会借助其它软件制作，然后通过PPT调用，这样显然会降低PPT课件在演示时的流畅性。为此，本文通过“PPT在演示过程中任意变化三角形形状的制作”的实例，研究在PPT中运用VBA技术，进行动态绘图的方法，以促进对PPT绘图的应用。二、问题解决与实施1、解决鼠标拖曳

3、问题解决鼠标拖曳问题有两种方式：第一种是用幻灯片上的自选图形进行动作设置，然后运行宏，宏代码保存在模块中。第二种是采用控件，然后由控件的鼠标事件来完成。第一种方式由于需要“执行宏”操作，所以需要鼠标单击自选图形后移动鼠标操作，移动鼠标时不需要按键，这与通常的按鼠标左键拖曳有点不同，因此，本实例采用的是第二种方式，采用按鼠标左键拖曳的方式。2、解决动态画线问题在PPT中采用VBA画线方法有三种，它们是：DrawLine、AddLine、AddPolyLine。三种画线方法的应用对象、画线特点、删除方法如下表所示：画线方法

4、应用对象画线特点删除方法DrawLineSlideShowWindow能显示画线过程的动画效果，画线速度可控，可改变线型的颜色，但不能改变线型的粗细，可画简单直线和复杂曲线。ErasDrawing，场景或屏幕发生变化时自动删除。AddLineShapes集合不能显示画线过程的动画效果，画线过程一次完成，速度不可控，但可改变线型的颜色和粗细，只能画简单直线。DeleteAddPolyLineShapes集合不能显示画线过程的动画效果，画线过程一次完成，速度不可控，但可改变线型的颜色和粗细，可画简单直线和复杂曲线。Dele

5、te因此，本实例采用的是DrawLine与AddLine两种画线方法。3、具体实施过程1、在PPT中打开控件工具栏，拖三个图像控件，作为三个顶点，名称分别设为I1、I2、I3，调整好大小。BackColor属性设为想要的颜色，若使用图片，在Picture中加入需要的图片，将AutoSize属性设为True。2、双击I1控件，打开代码编写窗口，考虑到程序的需要，先定义四个变量：X0、Y0为整型数据，目的是储存鼠标的指针位置坐标，Down、m为逻辑型数据，其中Down为记录鼠标是否按下的状态变量，m为程序判断的中间变量。然

6、后，分别选择MouseDown、MouseMove、MouseUp三种鼠标事件进行程序设计。当鼠标左键被按下时，便触发MouseDown事件。在MouseDown事件中，先设置线型的颜色（本实例选择蓝色）、鼠标状态变量，读取鼠标指针的位置坐标。代码如下：PrivateSubI1_MouseDown(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)ActivePresentation.SlideShowSettings.Run.

7、View.PointerColor.RGB=RGB(0,0,255)Down=TrueX0=XY0=YEndSub当鼠标移动时，便触发MouseMove事件。在MouseMove事件中，读取鼠标指针的位置坐标，然后用Delete方法将原来连接此顶点的两条边线擦掉，此时若不指定被擦线的名称，它将删除所有的画线，因此三角形的三条边线都必须指定名称，如d1、d2、d3。指定线的名称的方法，可以采用先在幻灯片编辑窗口中画一条线段，然后打开脚本编辑器，将其中程序自动分配的名称改为指定的名称；也可以用AddLine方法画指定名称线

8、段。接着再用AddLine方法使用相同的名称重画两条边线。当鼠标不停移动时，便需要不停地画线，但画线的痕迹不能保留，这可以用DrawLine方法来实现。问题是：当鼠标停止移动时（左键仍然按着），这时，用DrawLine方法画的线将自动被擦除，也就是连接此顶点的两条边线没了，当然，我们可以用AddLine方法使用相同的名称再重画这两