PPT制作精确坐标系

在中学数学的课件制作中，坐标系是不可缺少的，特别是《解析几何》等方面的内容。可是，我们在PowerPoint中制作课件，坐标系通常是用线条组合而成的，很难做到量化上的精确。那么如何才能根据我们的需要灵活定制精确的坐标系呢?一起来看看吧。

参数面板的制作

首先在幻灯片编辑状态，点击菜单命令视图→工具栏→控件工具箱，打开控件工具箱工具栏，点击文字框控件。用鼠标拖放的方法在幻灯片编辑区拖放四个文字输入框，用绘图工具栏上的文本框工具给每一个文字输入框加上注释，最终效果如图1所示。其中前两个文字输入框分别接受坐标原点的横纵坐标(当然是相对于放映窗口左上角而言)，而第三个文字输入框单位则是指画出的坐标系中每一小格的长度(以磅为单位)，而长度则会接受每一个半轴所要画出的格数(也就是单位刻度的个数)。

图1设定界面

这些内容完成后，再点击控件工具箱中的命令按钮控件，同样用鼠标拖放的办法在幻灯片编辑窗口拖放出三个命令按钮。

命令按钮的代码编辑

选中第一个命令按钮，点击右键，在弹出的快捷菜单中选择属性命令，打开其属性设置对话框，点击Caption右侧属性栏，将其内容改为画坐标系(如图2)。用同样的方法将另外两个命令按钮的Caption属性修改为清空数据和清除图像。

图2设定按钮属性

选中[画坐标系]命令按钮，点击右键，在弹出的快捷菜单中选择查看代码命令，打开Microsoft Visual Basic编辑窗口，找到这样两行代码：

Private Sub CommandButton1_Click()

End Sub

在它们之间插入如下代码：

h = Val(TextBox1.Text)

k = Val(TextBox2.Text)

Length = Val(TextBox3.Text)

Number = Val(TextBox4.Text)

Dim xx

xx = 1

Do While xx Number

If xx Mod 5 = 0 Then

SlideShowWindows(1).View.DrawLine h + xx?Length, k - 7, h + xx?Length, k

SlideShowWindows(1).View.DrawLine h - xx?Length, k - 7, h - xx?Length, k

SlideShowWindows(1).View.DrawLine h, k - xx?Length, h + 7, k - xx?Length

SlideShowWindows(1).View.DrawLine h, k + xx?Length, h + 7, k + xx?Length

Else

SlideShowWindows(1).View.DrawLine h + xx?Length, k - 3, h + xx?Length, k

SlideShowWindows(1).View.DrawLine h - xx?Length, k - 3, h - xx?Length, k

SlideShowWindows(1).View.DrawLine h, k - xx?Length, h + 3, k - xx?Length

SlideShowWindows(1).View.DrawLine h, k + xx?Length, h + 3, k + xx?Length

End If

xx = xx + 1

Loop

SlideShowWindows(1).View.DrawLine h, k, h + xx?Length, k

"画x轴正半轴

SlideShowWindows(1).View.DrawLine h - xx?Length, k, h, k

"画x轴负半轴

SlideShowWindows(1).View.DrawLine h, k, h, k - xx?Length

"画y轴正半轴

SlideShowWindows(1).View.DrawLine h, k, h, k + xx?Length

"画y轴负半轴