馬震安
在PPT中實現圖表的交互效果可不是一件輕松的事,但如果使用一小段VBA代碼,將Excel數據與圖表連接起來,不輕松的事也變得輕松了。有了Excel數據與圖表的連接,通過表單控件中的下拉菜單就可以在圖表中根據菜單選擇,突出顯示所需要的數據圖表(圖1)。
1. 插入PPT圖表
新建空白幻燈片文件,選擇“插入”選項卡,點擊“對象”,在彈出的窗口中選擇“新建”,選定對象類型中的“Microsoft Excel Chart”,確定后,就會打開一個Excel窗口,在Chart1中右擊圖表,選擇“更改圖表類型”,在彈出的窗口中選擇所需要的折線圖;再點擊與這個圖表數據相關聯的Sheet1工作表,在工作表中輸入或粘貼好自己所需要的數據,這樣圖表也會根據輸入的數據發生相應的改變(圖2)。

在Sheet1工作表的相應空白單元格(如A13),設置一個下拉菜單。選定A13,選擇“數據”選項卡,點擊“數據驗證”下的“數據驗證”,在彈出窗口“設置”選項卡的允許處選擇“序列”,來源處選擇A2:A11單元格區域,這樣就在A13單元格形成了一個下拉菜單。接下來,在B13單元格中輸入“=INDEX(B2:B11,MATCH($A$13,$A$2:$A$11,0))”,這樣就會根據A13單元格的值在B13得到相應產品1月份的銷售值。拖動向右填充到M13,從而得到產品在1月-12月的銷售值(圖3)。
接下來,點擊Chart1,切換到圖表工作表,分別右擊每個折線圖,選擇“設置數據系列格式”,將它們的顏色設置為灰色;右擊圖表,選擇“選擇數據”,在彈出的窗口圖例項處點擊“添加”,在新彈出的窗口系列名稱處輸入“突出顯示”,在系列值處選擇Sheet1中的B13:M13單元格區域,將新添加的折線圖顏色設置為紅色、2磅,刪除圖例(圖4)。……