用PPT创建动态sin函数图像

  在专用的画函数图像软件中动态创建函数图像应该是一件非常轻松的事,但是这样的软件一般都是需要money的,并且画出的图像还不通用,这实在令人懊恼。其实,如果你对PPT控件及VBA代码非常熟悉的话,创建动态函数图像也不是件很难的事情。下面,笔者就向大家介绍如何利用PPT控件及VBA代码来创建动态sin函数图像。

  这个过程主要是向幻灯片中插入VBA控件。首先,打开PPT2003,新建一张空白幻灯片,选择“视图→工具栏→控件工具箱”,选择“命令按钮”,在幻灯片上画出按钮,并右击更改它的Caption属性为“画坐标轴”,属性更改完成后,再复制2个按钮,将Caption属性分别改为“画图像”和“清除”(图1)。

  接下来,我们还需要插入3个控件。选择“标签”并在幻灯片中画出该控件,并更改它的Caption属性为“A的值”,选择“文本框”按钮在幻灯片中画出该控件。接下来,选择“滚动条”按钮并在合适位置画出它,这个“滚动条”控件主要是改变文本框中的值,即用来设置A的值,设置它的Max和Min属性分别为0和20(图2)。

  这个过程主要是为每个按钮添加一段VBA代码,使按钮具有拖动功能。一提到编写代码,你可能就有些犯晕了。其实,程序代码也没那么神秘,在这里你可先将我的代码输入或复制到你的文件中,然后看看我给你的解释,一切就觉得“烟消云散”了,开始吧!

  首先,双击第一个按钮,这时就会进入VBA的编辑器。在第1行前回车,输入图中代码(图3)。

  为了能省去代码录入的时间,我将代码传到了网上,读者朋友们可以到新浪爱问空间地址

  要想使这些事件即VBA代码起作用,我们需要调整宏的安全性。选择“工具→宏→安全性”,把宏的安全性设置为“低”,这样你才能顺利的运行VBA代码。

您可能还会对下面的文章感兴趣: