|
|
选中[画坐标系]命令按钮，点击右键，在弹出的快捷菜单中选择“查看代码”命令，打开“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轴负半轴
选中[清空数据]命令按钮，仍用上面的方法打开它的代码编辑窗口，仍然找到这样两行代码：
Private Sub CommandButton2_Click()
End Sub
并在它们之间插入如下代码：
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
而那个[清除图像]按钮，在它的代码编辑窗口中输入如下代码：
Private Sub CommandButton3_Click()
SlideShowWindows(1).View.EraseDrawing
End Sub
实现效果现在您就可以点击PowerPoint菜单命令“幻灯片放映→观看放映”观看制作效果了。在各个参数输入框中输入我们希望的数据，然后点击［画坐标系］命令按钮，一个精确的坐标系立即出现在我们的面前，图3所示即为实现效果。点击［清空数据］按钮和［清除图像］按钮，则会清除输入的数据或所画出的坐标系，可以重新进行设置。
图3 完成效果 |
|
