㈠ 怎麼用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
SlideS(轉載自第一範文網http://www.diyifanwen.com,請保留此標記。)howWindows(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所示即為實現效果。點擊[清空數據]按鈕和[清除圖像]按鈕,則會清除輸入的數據或所畫出的坐標系,可以重新進行設置。
點擊放大圖片,可使文字變清晰
方法二:
操作步驟:
1、先將頁面版式設置為空白頁,在「插入」菜單欄中選擇「形狀」子欄,再在「線條」中選擇單箭頭,在空白頁上拉出橫、縱坐標;
2、再「插入」—「形狀」—「線條」中選擇直線,在橫、縱坐標上分別畫出需要的坐標點;
3、點擊「插入」菜單後選擇「文本框」子欄,根據個人需要選擇橫排或豎排文本框,寫入需要的文字內容,調整大小,拖到需要添加的位置;
4、根據數據描點時,可將原來描好的坐標點直接拉長使橫、縱坐標相交,但要將直線改為虛線的形式。
5、描好的各點之間的連線也是選擇直線畫出,注意要每兩點之間重新畫一次,也可以改變顏色、粗細。