PPT中控件圖表巧聯(lián)動(dòng)

馬震安

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

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

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

Private Sub ScrollBar1_ Change（）

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