在一些娛樂活動中，為了活躍現場的氣氛，主辦方往往會在活動中添加抽獎的環節。例)，。

圖2 在功能區顯 “開發工具”選項卡

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

圖3 向幻燈片中添加標簽和命令按鈕

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

Private Sub CommandButton1_Click()

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

End Sub

圖4 輸入VBA代碼產生1~100之間的一個隨機整數

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