在中學(xué)數(shù)學(xué)的課件制作中，坐標(biāo)系是不可缺少的，特別是《解析幾何》等方面的內(nèi)容。可是，我們?cè)赑owerPoint中制作課件，坐標(biāo)系通常是用線條組合而成的，很難做到量化上的精確。那么如何才能根據(jù)我們的需要靈活定制精確的坐標(biāo)系呢？一起來(lái)看看吧。


　　參數(shù)面板的制作


　　首先在幻燈片編輯狀態(tài)，點(diǎn)擊菜單命令“視圖→工具欄→控件工具箱”，打開(kāi)“控件工具箱”工具欄，點(diǎn)擊“文字框”控件。用鼠標(biāo)拖放的方法在幻燈片編輯區(qū)拖放四個(gè)文字輸入框，用“繪圖”工具欄上的文本框工具給每一個(gè)文字輸入框加上注釋，最終效果如圖1所示。其中前兩個(gè)文字輸入框分別接受坐標(biāo)原點(diǎn)的橫縱坐標(biāo)（當(dāng)然是相對(duì)于放映窗口左上角而言），而第三個(gè)文字輸入框“單位”則是指畫出的坐標(biāo)系中每一小格的長(zhǎng)度（以磅為單位），而“長(zhǎng)度”則會(huì)接受每一個(gè)半軸所要畫出的格數(shù)（也就是單位刻度的個(gè)數(shù)）。

　　這些內(nèi)容完成后，再點(diǎn)擊“控件工具箱”中的“命令按鈕”控件，同樣用鼠標(biāo)拖放的辦法在幻燈片編輯窗口拖放出三個(gè)命令按鈕。

圖1 設(shè)定界面

　　 命令按鈕的代碼編輯


　　選中第一個(gè)命令按鈕，點(diǎn)擊右鍵，在彈出的快捷菜單中選擇“屬性”命令，打開(kāi)其屬性設(shè)置對(duì)話框，點(diǎn)擊“Caption”右側(cè)屬性欄，將其內(nèi)容改為“畫坐標(biāo)系”（如圖2）。用同樣的方法將另外兩個(gè)命令按鈕的“Caption”屬性修改為“清空數(shù)據(jù)”和“清除圖像”。

圖2 設(shè)定按鈕屬性

　　選中[畫坐標(biāo)系]命令按鈕，點(diǎn)擊右鍵，在彈出的快捷菜單中選擇“查看代碼”命令，打開(kāi)“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軸負(fù)半軸

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

　　'畫y軸正半軸

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

　　'畫y軸負(fù)半軸

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

　　Private Sub CommandButton2_Click()

　　End Sub

　　并在它們之間插入如下代碼：

　　TextBox1.Value = ""

　　TextBox2.Value = ""

　　TextBox3.Value = ""

　　TextBox4.Value = ""

　　而那個(gè)[清除圖像]按鈕，在它的代碼編輯窗口中輸入如下代碼：

　　Private Sub CommandButton3_Click()

　　 SlideShowWindows(1).View.EraseDrawing

　　End Sub


　　 實(shí)現(xiàn)效果


　　現(xiàn)在您就可以點(diǎn)擊PowerPoint菜單命令“幻燈片放映→觀看放映”觀看制作效果了。在各個(gè)參數(shù)輸入框中輸入我們希望的數(shù)據(jù)，然后點(diǎn)擊［畫坐標(biāo)系］命令按鈕，一個(gè)精確的坐標(biāo)系立即出現(xiàn)在我們的面前，圖3所示即為實(shí)現(xiàn)效果。點(diǎn)擊［清空數(shù)據(jù)］按鈕和［清除圖像］按鈕，則會(huì)清除輸入的數(shù)據(jù)或所畫出的坐標(biāo)系，可以重新進(jìn)行設(shè)置。

圖3 完成效果