隨著我國經濟的騰飛，學校大都配上了多**教室，老師們上課也都用上了課件。由於microsoft powerpoint 直觀易用，所以教師們大都用它來製作課件，然而由於powerpoint 相對於其它軟體來說互動性差，所以製作出來的課件總是感覺缺少活力。其實我們完全可以利用microsoft office中的vba程式設計來製作出互動性強的課件。
1． 顯示控制項工具箱
在powerpoint中選擇選單「檢視/工具欄/控制項工具箱」。或在工具欄處右擊，然後再選中控制項工具箱。其中我們常用的有核取方塊、文字框、命令按鈕、單選框、標籤。
（1）核取方塊（checkbox）：可以選擇多個選項，常用來設計多選題；
（2）文字框（textbox）：可以輸入文字，常用來設計填空題；
（3）命令按鈕（commandbutton）：用來確定選擇或輸入，也可設計超級鏈結；
（4）單選框（optionbutton）：只能選中乙個選項，常用來設計單選題或判斷題；
（5）標籤（label）：用來顯示文字資訊。
2、在幻燈片中插入控制項
單擊控制項工具箱上的工具按鈕，然後在幻燈片中拖動到適當大小即可。右擊控制項選擇屬性進行屬性設定，如圖2。
3、製作互動課件例項：
（1）製作填空題：
首先用文字框輸入題目，再在需要填寫答案的地方放上兩個文字框，在下面插入兩個命令按鈕，並把文字框的text屬性改為空，把命令按鈕的caption屬性分別改為「重新填寫」與「提交答案」，如圖3所示。
然後雙擊「重新填寫」按鈕，進入vba程式設計：在private sub commandbutton1_click()與end sub兩行中間輸入如下**：
= ""
= ""
意思使兩個文字框的text屬性為空，以便重新填寫。
雙擊「提交答案」按鈕，在private sub commandbutton2_click()與end sub兩行中間輸入：
if = "150" and = "125" then
a = msgbox("你真棒！是否繼續", vbyesno + vbquestion, "下一題") = vbyes
with slideshowwindows(1).view
.gotoslide 2
end with
else: a = msgbox("對不起！你做錯了")
end if
意思是如果兩個文字框填寫的數分別為150和125，則會彈出訊息框「你真棒！是否繼續」，如果點「是」則會進入第二張幻燈片，如果填錯了則會彈出「對不起！你做錯了」。
（2）製作單選題：用文字框輸入題目，在下面插入三個單選框與三個命令按鈕，並把單選框的value屬性設為false，caption屬性分別設為9.99、10.
0、10.00。三個命令按鈕的caption屬性分別設為「提交答案」、「重新選擇」和「下一題」。
另外在右邊的空白處插入乙個標籤，將它的caption屬性設為空。如圖4所示。
雙擊「提交答案」按鈕，private sub commandbutton1_click()與end sub兩行中間輸入如下**：
if = true then
= "你真棒!"
else: = "好好想想!"
end if
意思是如果第三個單選框的value屬性為true,即選擇的是第三個按鈕，則標籤顯示為「你真棒！」，否則顯示「好好想想！」。
雙擊「重新選擇」按鈕，在private sub commandbutton2_click()與end sub兩行中間輸入如下**
= false
= false
= false
= ""
即三個單選框均為不選中狀態。並將標籤的內容清空。
雙擊「下一題」按鈕，在private sub commandbutton3_click()與end sub兩行中間輸入如下**：
with slideshowwindows(1).view
.gotoslide 2
end with
也就是單擊下一題可進入第2張幻燈片，這裡的2可以視情況而定。
（3）製作多選題。首先輸入題目，插入四個核取方塊和三個命令按鈕，把四個核取方塊的value屬性設為false即不選中狀態，把caption屬性分別設為2、3、5、9。把三個命令按鈕的caption屬性分別設為「提交答案」、「重新選擇」、「下一題」。
在右邊空白處插入乙個標籤，將caption屬性設為空。如圖5所示。
雙擊「提交答案」按鈕，輸入如下**：
if = true and = true and = true and = false then
= "√"
else: = "×"
end if
意思是如果第
一、第二和第三個核取方塊的value屬性為true，即選中狀態，則在標籤中顯示「√」，否則顯示「×」。
雙擊「重新選擇」按鈕，輸入如下**：
= false
= false
= false
= false
= ""
即四個複選按鈕變為不選中狀態，並把標籤的內容清空。
「下一題」按鈕的**同上，這裡不在給出。
這裡只是給出幾個簡單的例子，而vba程式設計的功能十分強大，希望老師們能通過以上幾個例子，激起對vba程式設計的興趣，以便製作出更多精彩的課件。
在製作印章
在word2000中的製作印章方法簡介如下 1 用藝術字編輯印章文字 單擊 常用工具欄 上的 繪圖 按鈕，彈出 繪圖 工具欄，按其中的 插入藝術字 按鈕。在 藝術字型檔 對話方塊中選擇圓弧形樣式，下一步編輯藝術字文字。比如輸入 電腦愛好者協會 若章中還有文字的拼音，則要在文字和拼音前打幾個空格來把它...
在中製作印章
如何在word中製作印章 1 用藝術字編輯印章文字 單擊 常用工具欄 上的 繪圖 按鈕，彈出 繪圖 工具欄，按其中的 插入藝術字 按鈕。在 藝術字型檔 對話方塊中選擇圓弧形樣式，下一步編輯藝術字文字。比如輸入 電腦愛好者協會 若章中還有文字的拼音，則要在文字和拼音前打幾個空格來把它們分開。設定好它們...
在CorelDRAW中製作齒輪
1 開啟coreldraw，按著ctrl鍵，使用ellipse tool畫乙個圓形 然後將它複製，並按著shift鍵向內拖動這個複製物件將它縮小 選中這兩個同心圓，按ctrl l鍵進行組合，現在得到乙個圓環，這是齒輪的輪盤，如圖。2 現在製作乙個輪齒。使用rectangle tool畫乙個小矩形，將...