在一些娛樂活動中，為了活躍現(xiàn)場的氣氛，主辦方往往會在活動中添加抽獎(jiǎng)的環(huán)節(jié)。例如，主辦方希望在100名觀眾中抽出1名幸運(yùn)觀眾（如圖1所示），如何利用PowerPoint制作抽獎(jiǎng)幻燈片呢？此時(shí)可以按照以下步驟進(jìn)行操作。

圖1 單擊【抽獎(jiǎng)】按鈕從1~100中產(chǎn)生隨機(jī)數(shù)

（1）在PowerPoint 2007中，單擊【Office按鈕】，在隨即打開的下拉菜單中，單擊【PowerPoint選項(xiàng)】按鈕，打開“PowerPoint選項(xiàng)”對話框。

（2）在“PowerPoint首選使用選項(xiàng)”選項(xiàng)區(qū)域中，選中“在功能區(qū)顯示‘開發(fā)工具’選項(xiàng)卡”復(fù)選框，單擊【確定】按鈕，如圖2所示。

圖2 在功能區(qū)顯 “開發(fā)工具”選項(xiàng)卡

（3）在“開發(fā)工具”選項(xiàng)卡的“控件”選項(xiàng)組中，先后單擊【標(biāo)簽（ActiveX控件）】按鈕和【命令按鈕（ActiveX控件）】按鈕，在幻燈片中添加一個(gè)標(biāo)簽控件和一個(gè)命令按鈕控件，適當(dāng)調(diào)整控件屬性，并編輯按鈕的名稱，設(shè)置完成后如圖3所示。

圖3 向幻燈片中添加標(biāo)簽和命令按鈕

（4）雙擊幻燈片中的添加的命令按鈕，打開VB編輯器窗口，輸入如下代碼，如圖4所示。

Private Sub CommandButton1_Click()

Label1.Caption = 1 + Int(99 * Rnd())

End Sub

圖15.13 輸入VBA代碼產(chǎn)生1~100之間的一個(gè)隨機(jī)整數(shù)

（5）單擊【Office按鈕】，執(zhí)行下拉菜單中的【另存為】命令，打開“另存為”對話框，在“保存類型”設(shè)置為“啟用宏的PowerPoint演示文稿”，然后單擊【保存】按鈕，將其保存為后綴為“pptm”格式的文件即可。