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軸負半軸