在中學數學的課件制作中，坐標系是不可缺少的，特別是《解析幾何》等方面的內容。可是，我們在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軸負半軸

　　選中[清空數據]命令按鈕，仍用上面的方法打開它的代碼編輯窗口，仍然找到這樣兩行代碼：

　　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 完成效果