數學教學需精確座標系，手工畫線難量化。利用 ActiveX 控制項輸入參數，VBA 程式碼放映時動態繪製精確座標系。

參數介面製作

1. 「檢視」→「工具列」→「控制項工具箱」→ 插入四個文字方塊（TextBox）：原點 X、Y 座標、單位長度（磅）、半軸格數。
2. 用文字方塊工具加註標籤，再插入三個命令按鈕：畫座標系、清除資料、清除圖像。

命令按鈕屬性設定

右鍵按鈕→「屬性」→ 修改 Caption 為對應名稱。

VBA 核心程式碼（畫座標系按鈕）

Private Sub CommandButton1_Click()
  h = Val(TextBox1.Text)      '原點 X
  k = Val(TextBox2.Text)      '原點 Y
  Length = Val(TextBox3.Text) '單位長度(磅)
  Number = Val(TextBox4.Text) '半軸格數
  Dim xx
  xx = 1
  Do While xx < Number
    If xx Mod 5 = 0 Then      '每 5 格畫長刻度
      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 負半軸
End Sub

放映模式下輸入參數點擊按鈕，即時生成精確座標系；「清除圖像」按鈕可配合 SlideShowWindows(1).View.EraseDrawing 實現。教學示範極具彈性。