PPT是以演示為核心功能的工具，通常是把事先準(zhǔn)備好的內(nèi)容按設(shè)計(jì)效果進(jìn)行展示。但用它做教學(xué)課件，其交互功能一直飽受詬病，如果想在演示中隨機(jī)生成一些不確定的內(nèi)容，或者拖放幻燈片上的對(duì)象非常困難！本教程通過設(shè)計(jì)一個(gè)可以自已出題（1-100的加法口算練習(xí)）的PPT做為示例，希望幫助大家更好地了解如何通過VBA增強(qiáng)PPT的交互功能，效果如圖。
制作準(zhǔn)備：啟用開發(fā)工具。
單擊文件——選項(xiàng)——自定義功能區(qū)——勾選開發(fā)工具。
制作過程。
1、設(shè)計(jì)界面，添加相應(yīng)的控件。
添加方法：切換到開發(fā)工具，選擇相應(yīng)ActivX控件，本案例中使用的TextBox（文件框）和CommandButton（按鈕）兩種控件。選中之后，直接在幻燈片上按住左鍵，“畫”出控件大小。
可以在控件上右鍵單擊，設(shè)置其屬性——改變其外觀，對(duì)于文本框（TextBox）而言最重要的外觀屬性包括：文本內(nèi)容（Text）、文字字體（Font）、顏色（ForeColor）、背景（BackColor）和邊框（BorderStyle）、對(duì)齊方式（TextAlign）、多行（MultiLine）、滾動(dòng)條（ScroolBars）等。
對(duì)于按鈕（CommandButton）而言，最重要屬性是Caption屬性，可以改變按鈕上的文字。本案例中使用了三個(gè)文本框和兩個(gè)按鈕。
2、編寫或修改代碼，實(shí)現(xiàn)功能。
VBA是一種嵌入在office環(huán)境中運(yùn)行的可視化腳本語言，具有“面向?qū)ο缶幊獭?/strong>的特性，所謂面向?qū)ο?，可以簡單理解?strong>程序中任何一個(gè)物件都是Object，它們通過自已的名字引用，比如默認(rèn)添加到幻燈片的三個(gè)文本框，名字分別為：TextBox1、TextBox2、TextBox3，兩個(gè)按鈕分別為CommandButton1、CommandButton2，名字可以在屬性表中修改（Name），是唯一的，不能重復(fù)，不支持中文。每一個(gè)對(duì)象都有自已的屬性，通過.把它們聯(lián)系起來，比如文本框中的內(nèi)容，就可以通過text屬性來修改或讀取，寫作：TextBox1.text（即對(duì)象名稱.對(duì)象屬性），按鈕1上的文字可以寫成：CommandButton1.caption。
每一個(gè)對(duì)象也都有自已的方法（或稱之為行為）如文本框可以輸入文本、可以復(fù)制（copy），并且受事件驅(qū)動(dòng)：比如按鈕常見的有單擊、雙擊等。對(duì)象的屬性、方法和事件，可以雙擊進(jìn)入代碼窗口查看。
隨機(jī)生成口算計(jì)算題的核心是生成隨機(jī)數(shù)（Rnd），但它是生成一個(gè)0到1之間的隨機(jī)數(shù)，為了實(shí)現(xiàn)在1-100之間，可以修改為100*Rnd+1，取整數(shù)使用Int（），即：Int(100*Rnd+1)。
計(jì)算結(jié)果判斷使用if語句實(shí)現(xiàn)
反饋信息使用Msgbox()，即退出一個(gè)提示信息。
主要代碼：
TextBox1.Text = Int(Rnd * 100 + 1)
TextBox2.Text = Int(Rnd * 100 + 1)
If TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) Then
MsgBox ('恭喜您答對(duì)了！')
Else
MsgBox ('仔細(xì)再思考一下，重新輸入答案')
TextBox3.Text = ''
具體操作請看視頻操作過程。
注意問題。
1、文件保存問題，建議保存為啟用宏的格式，如PPTM。因?yàn)榘踩颍瑤в蠽BA代碼的PPT文件，在其它電腦上運(yùn)行時(shí)可能會(huì)被禁用，需要設(shè)置啟用。
2、代碼輸入時(shí)嚴(yán)格區(qū)分中英文符號(hào)。
3、雙擊幻燈片上自定義控件，可以進(jìn)入VBA代碼窗口，單擊下圖幻燈片圖標(biāo)，可以返回幻燈片編輯界面。
利用VBA可以輕松在PPT中實(shí)現(xiàn)動(dòng)態(tài)隨機(jī)點(diǎn)名和投資了，想一想如何實(shí)現(xiàn)呢？
聯(lián)系客服
