在一些娛樂(lè)活動(dòng)中，為了活躍現(xiàn)場(chǎng)的氣氛，主辦方往往會(huì)在活動(dòng)中添加抽獎(jiǎng)的環(huán)節(jié)。例)，。

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

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

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

4、雙擊幻燈片中的添加的命令按鈕，打開(kāi)VB編輯器窗口，輸入。

Private Sub CommandButton1_Click()

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

End Sub

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

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