馬震安

首先，新建一張空白幻燈片，設置好所需要的背景色，選擇“插入”選項卡，點擊對象，在彈出的窗口中選擇“新建”，在對象類型處選擇“Microsoft Excel Chart”，確定；在彈出的Excel編輯窗口，點擊數(shù)據(jù)窗口“Sheet1”，根據(jù)需要更改數(shù)據(jù)，刪除不必要的數(shù)據(jù)，增加需要的數(shù)據(jù)，還可以使用公式。比如，計劃產(chǎn)量是50，A廠產(chǎn)量為計劃產(chǎn)量*50%，B廠產(chǎn)量為計劃產(chǎn)量減去A廠產(chǎn)量（圖2）。再點擊圖表窗口的“Chart”，根據(jù)需要設置圖表類型，如柱形圖，添加好數(shù)據(jù)標簽。

在空白處點擊，返回到PPT窗口，將圖表拖放到合適位置。選擇“開發(fā)工具”選項卡（如果沒有，可以選擇“文件→選項→自定義功能區(qū)”進行添加），在控件處選擇所需要的控件，按住鼠標左鍵，在幻燈片合適位置拖動，畫出所需要的控件（如一個滾動條、兩個文本框）；右擊滾動條，選擇“屬性表”，在彈出的窗口中，通過BackColor、ForeColor設置好滾動條的背景色、前景色，通過LargeChange、SmallChange設置好最大、最小改變量，通過Max、Min設置好滾動條的最大值、最小值。同樣，文本框的屬性也是這樣設置。利用文本框給各個控件加上標示說明（圖3）。

接下來，選擇“開發(fā)工具”選項卡，點擊“Visual Basic”，在出現(xiàn)的VBA代碼編輯窗口中輸入如下代碼（圖4）：

Private Sub ScrollBar1_ Change（）

最后，在保存幻燈片時，將類型設置為啟用宏的演示文稿，擴展名為pptm。這樣，當播放幻燈片時，拖動滾動條，文本框控件中的值、圖表等就會產(chǎn)生相應的聯(lián)動效果了。